version 1.3, 2005/02/15 19:27:51
|
version 3.1, 2008/03/24 16:01:47
|
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); |
Line 41 else
|
Line 41 else
|
} |
} |
readmail(\%teams); |
readmail(\%teams); |
close(INFILE); |
close(INFILE); |
|
|
# |
# |
# Пишем мейл |
# Пишем мейл |
# |
# |
Line 62 foreach $team (keys %teams)
|
Line 63 foreach $team (keys %teams)
|
|
|
&printfooter; |
&printfooter; |
|
|
|
# |
|
# На всякий случай проверяем на наличие команд с дублирующимися номерами. |
|
# |
|
check_dup_numbers(\%teams); |