91 lines
1.9 KiB
Perl
91 lines
1.9 KiB
Perl
#!/bin/perl
|
|
|
|
use Getopt::Std;
|
|
|
|
# declare the perl command line flags/options we want to allow
|
|
my %options=();
|
|
getopts("i:t:", \%options);
|
|
|
|
my $currentIndex = 0;
|
|
my %data = ();
|
|
|
|
my $outputFile = "cardList.html";
|
|
if ( $options{t} =~ /todo/i)
|
|
{
|
|
$outputFile = "todoList.html";
|
|
}
|
|
|
|
print "Processing $options{i}\n";
|
|
open INFILE, "<$options{i}" || die "$options{i} can't open for reading. $!\n";
|
|
while ( <INFILE> )
|
|
{
|
|
s/
|
|
//;
|
|
s/\n//;
|
|
my $line = $_;
|
|
my $currentIndex = uc substr($line,0,1);
|
|
if ($line =~ /^\d/ )
|
|
{
|
|
push @{$data->{"0-9"}}, $line;
|
|
}
|
|
|
|
else
|
|
{
|
|
push @{$data->{$currentIndex}}, $line;
|
|
}
|
|
}
|
|
close INFILE;
|
|
|
|
my @keys = sort keys %$data;
|
|
foreach (@keys)
|
|
{
|
|
my $cardCount = scalar @{$data->{$_}};
|
|
# print $_ . " => $cardCount \n";
|
|
$totalCardCount += $cardCount;
|
|
}
|
|
my $summaryMessage = "There are a total of $totalCardCount cards supported in this release.";
|
|
my $headerRow = &getHeader( \@keys );
|
|
|
|
open OUTFILE, ">$outputFile" || die "$0: Can't write to $outputFile. $!\n";
|
|
|
|
#print index keys of cards
|
|
|
|
# print the miki card count information
|
|
|
|
print OUTFILE<<MIKI;
|
|
$summaryMessage
|
|
|
|
MIKI
|
|
|
|
|
|
print OUTFILE $headerRow . "\n";;
|
|
|
|
foreach my $key ( @keys )
|
|
{
|
|
my $cardCount = $#{$data->{$key}} + 1;
|
|
print OUTFILE "<h2 style=\"width: 100%\"><span id=\"$key\">";
|
|
print OUTFILE "$key" ;
|
|
print OUTFILE " ($cardCount)" if ($cardCount > 10 );
|
|
print OUTFILE "</span> <span style=\"font-size:small; float: right;\">Back to [[#Top]]</span></h2>\n";
|
|
|
|
print OUTFILE "<ul id=\"index_$key\">\n";
|
|
print OUTFILE map "\t<li>$_</li>\n", @{$data->{$key}};
|
|
print OUTFILE "</ul>\n\n";
|
|
close OUTFILE;
|
|
|
|
}
|
|
|
|
print "$totalCardCount Processed\n";
|
|
|
|
|
|
sub getHeader
|
|
{
|
|
my $listRef = shift;
|
|
my @list = map "<li style=\"display:inline; list-style-type: none; right-padding: 5px\" >[[#$_]]</li>", @{$listRef};
|
|
|
|
shift( @list ); # remove the link to the first set of cards
|
|
my $listItems = join "\n", @list;
|
|
|
|
return "__NOTOC__ \n<ul id=\"Top\">\n$listItems\n</ul>\n";
|
|
|
|
}
|