Return to reminder.pl CVS log | Up to [Local Repository] / processmail |
version 1.1, 2002/02/04 17:22:28 | version 1.2, 2002/02/04 17:32:41 |
---|---|
Line 50 select OUTFILE; | Line 50 select OUTFILE; |
&printheader; | &printheader; |
foreach $team (keys %teams) | foreach $team (keys %teams) |
{ | { |
print "$team\n"; | my $num=$teams{$team}->{'numletters'}; |
print "$team [$num]\n"; | |
} | } |
&printfooter; | &printfooter; |