processmail/collection.pl - diff

Return to collection.pl CVS log

Up to [Local Repository] / processmail

version 3.1, 2008/03/24 16:01:47	version 3.0, 2008/03/23 17:50:49
Line 42 if ($opt_t)	Line 42 if ($opt_t)
# Читаем ответы команд	# Читаем ответы команд
#	#
for (my $i=1; $i<=$ROUNDS; $i++) {	for (my $i=1; $i<=$ROUNDS; $i++) {
foreach my $file ( @{$FILES[$i]} ) {	foreach my $file (split /\s+/, $FILES[$i]) {
open (INFILE, $file);	open (INFILE, $file);
readmail(\%teams);	readmail(\%teams);
collect_answers(\%teams,\@answers);	collect_answers(\%teams,\@answers);
Line 50 for (my $i=1; $i<=$ROUNDS; $i++) {	Line 50 for (my $i=1; $i<=$ROUNDS; $i++) {
}	}
}	}

#
# Пишем измененную таблицу в файл.	# Пишем измененную таблицу в файл.
#	#
if ($opt_o)	if ($opt_o)
Line 70 for ($i=1;$i<=$MAXQUEST;$i++)	Line 69 for ($i=1;$i<=$MAXQUEST;$i++)
}	}
print "***\n";	print "***\n";

#
# На всякий случай проверяем на наличие команд с дублирующимися номерами.
#
check_dup_numbers(\%teams);