processmail/collection.pl - diff

Return to collection.pl CVS log

Up to [Local Repository] / processmail

version 1.4, 2005/02/16 22:25:59	version 3.1, 2008/03/24 16:01:47
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 (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);
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 69 for ($i=1;$i<=$MAXQUEST;$i++)	Line 70 for ($i=1;$i<=$MAXQUEST;$i++)
}	}
print "***\n";	print "***\n";

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