processmail/reminder.pl - diff

Return to reminder.pl CVS log

Up to [Local Repository] / processmail

version 3.1, 2008/03/24 16:01:47	version 3.2, 2013/10/11 15:39:35
Line 1	Line 1
#!/usr/local/bin/perl	#!/usr/bin/perl
#	#
#$Id$	#$Id$
#	#
Line 55 else	Line 55 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;

#	#