Mahtan/wagic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updated Supported Card list for 0.17

Browse Source 
had to modify the Miki syntax to Wiki.  Didn't realize they were different, hence the different versions.
This commit is contained in:
techdragon.nguyen@gmail.com
2012-01-03 05:27:15 +00:00
parent 8b29665aa9
commit fa63e635ae
3 changed files with 12212 additions and 12391 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17537
projects/mtg/tools/miki/cardList.html
View File

File diff suppressed because it is too large Load Diff

53
projects/mtg/tools/miki/createHTMLList_SupportedCards.pl
View File

@@ -1,6 +1,17 @@
#!/bin/perl #!/bin/perl
use Getopt::Std; use Getopt::Std;
#############################################################
# creates the Wiki page for supported cards.
# MUST EDIT THE pageName and VERSION variables for each release
#
#############################################################
my $pageName = "SupportedCardList017";
my $VERSION = "0.17";
#############################################################
#--- DO NOT EDIT BEYOND THIS LINE UNLESS YOU WANT TO CHANGE THE FORMAT!#
#############################################################
# declare the perl command line flags/options we want to allow # declare the perl command line flags/options we want to allow
my %options=(); my %options=();
@@ -27,7 +38,6 @@ while ( <INFILE> )
if ($line =~ /^\d/ ) if ($line =~ /^\d/ )
{ {
push @{$data->{"0-9"}}, $line; push @{$data->{"0-9"}}, $line;
}
} }
else else
{ {
@@ -51,11 +61,17 @@ open OUTFILE, ">$outputFile" || die "$0: Can't write to $outputFile. $!\n";
#print index keys of cards #print index keys of cards
# print the miki card count information # print the miki card count information
print OUTFILE<<WIKI;
#summary Supported Card List for $VERSION
= Introduction =
Supported Card list for $VERSION, includes Borderline cards
= Details = = Details =
$summaryMessage $summaryMessage
MIKI
WIKI WIKI
print OUTFILE $headerRow . "\n";; print OUTFILE $headerRow . "\n";;
@@ -64,27 +80,30 @@ foreach my $key ( @keys )
{ {
my $cardCount = $#{$data->{$key}} + 1; my $cardCount = $#{$data->{$key}} + 1;
print "Processing $key ($cardCount cards)\n"; print "Processing $key ($cardCount cards)\n";
print OUTFILE "<h2 style=\"width: 100%\"><span id=\"$key\">"; print OUTFILE "==$key";
print OUTFILE "$key" ; print OUTFILE " ($cardCount cards)";
print OUTFILE " ($cardCount)" if ($cardCount > 10 ); print OUTFILE " _Back to [$pageName#Details Top]_" if ( $key ne "A");
print OUTFILE "==\n"; print OUTFILE "==\n";
print OUTFILE "<ul id=\"index_$key\">\n";
print OUTFILE map "\t<li>$_</li>\n", @{$data->{$key}};
print OUTFILE map " # $_\n", @{$data->{$key}}; print OUTFILE map " # $_\n", @{$data->{$key}};
} }
close OUTFILE; close OUTFILE;
print "$totalCardCount Processed\n"; print "$totalCardCount Processed\n";
sub getHeader sub getHeader
{ {
my $listRef = shift; my $listRef = shift;
my @list = map "<li style=\"display:inline; list-style-type: none; right-padding: 5px\" >[[#$_]]</li>", @{$listRef}; my @list = ();
my $header;
foreach my $key ( @keys )
{
my $cardCount = $#{$data->{$key}} + 1;
$header = "[$pageName#${key}_(${cardCount}_cards)_Back_to $key]";
push @list, $header;
} }
shift( @list ); # remove the link to the first set of cards shift( @list ); # remove the link to the first set of cards
my $listItems = join " ", @list; my $listItems = join " ", @list;
return "\n$listItems\n"; return "\n$listItems\n";

7013
projects/mtg/tools/miki/todoList.html
View File

File diff suppressed because it is too large Load Diff