![]() ![]() | ![]() |
version 1.3, 2005/02/15 19:27:51 | version 3.0, 2008/03/23 17:50:50 |
---|---|
Line 29 $round=0; | Line 29 $round=0; |
if ($opt_r) | if ($opt_r) |
{ | { |
$round=$opt_r; | $round=$opt_r; |
foreach my $file (split /\s+/, $FILES[$opt_r]) { | foreach my $file ( @{$FILES[$opt_r]} ) { |
open (INFILE, $file); | open (INFILE, $file); |
readmail(\%teams); | readmail(\%teams); |
close (INFILE); | close (INFILE); |