Return to processmail.pl CVS log | Up to [Local Repository] / processmail |
version 2.3, 2005/02/15 19:27:51 | version 3.0, 2008/03/23 17:50:50 |
---|---|
Line 42 for (my $i=1; $i<=$ROUNDS; $i++) { | Line 42 for (my $i=1; $i<=$ROUNDS; $i++) { |
} | } |
for (my $i=1; $i<=$ROUNDS; $i++) { | for (my $i=1; $i<=$ROUNDS; $i++) { |
foreach my $file (split /\s+/, $FILES[$i]) { | foreach my $file ( @{$FILES[$i]} ) { |
open (INFILE, $file); | open (INFILE, $file); |
readmail(\%teams); | readmail(\%teams); |
collect_answers(\%teams,\@answers); | collect_answers(\%teams,\@answers); |