processmail/processmail.pl - diff

Return to processmail.pl CVS log

Up to [Local Repository] / processmail

version 2.3, 2005/02/15 19:27:51	version 3.2, 2013/10/11 15:39:35
Line 1	Line 1
#!/usr/local/bin/perl	#!/usr/bin/perl
#$Id$	#$Id$
#	#
#	#
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);
Line 67 for ($i=1;$i<=$MAXQUEST;$i++)	Line 67 for ($i=1;$i<=$MAXQUEST;$i++)
}	}
print "***\n";	print "***\n";

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