processmail/reminder.pl - diff

Return to reminder.pl CVS log

Up to [Local Repository] / processmail

version 3.2, 2013/10/11 15:39:35	version 3.0, 2008/03/23 17:50:50
Line 1	Line 1
#!/usr/bin/perl	#!/usr/local/bin/perl
#	#
#$Id$	#$Id$
#	#
Line 41 else	Line 41 else
}	}
readmail(\%teams);	readmail(\%teams);
close(INFILE);	close(INFILE);

#	#
# Пишем мейл	# Пишем мейл
#	#
Line 55 else	Line 54 else
}	}
select OUTFILE;	select OUTFILE;
&printheader;	&printheader;
my $numletters=0;
foreach $team (keys %teams)	foreach $team (keys %teams)
{	{
my $num=$teams{$team}->{'numletters'};	my $num=$teams{$team}->{'numletters'};
print "$team [$num]\n";	print "$team [$num]\n";
$numletters += $num;
}	}

print "\n------------------\n";
printf("Всего команд: %3d\n", scalar keys %teams);
printf("Всего писем: %3d\n", $numletters);

&printfooter;	&printfooter;

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