processmail/reminder.pl - diff

Return to reminder.pl CVS log

Up to [Local Repository] / processmail

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);