processmail/reminder.pl - diff

Return to reminder.pl CVS log

Up to [Local Repository] / processmail

version 1.1, 2002/02/04 17:22:28	version 1.3, 2005/02/15 19:27:51
Line 11	Line 11
use Getopt::Std;	use Getopt::Std;

$usage = 'reminder.pl $Revision$, $Date$'. "\n".	$usage = 'reminder.pl $Revision$, $Date$'. "\n".
"Usage: reminder.pl [-d] [-m mail_file] [-o results] \n";	"Usage: reminder.pl [-d] [-r round] [-o results] \n";

require 'parameters.pl';	require 'parameters.pl';
require 'subroutines.pl';	require 'subroutines.pl';

die $usage unless getopts('t:m:o:d');	die $usage unless getopts('r:o:d');

$DEBUG=$opt_d;	$DEBUG=$opt_d;

Line 25 my %teams;	Line 25 my %teams;
#	#
# Читаем ответы команд	# Читаем ответы команд
#	#
if ($opt_m)	$round=0;
	if ($opt_r)
{	{
die "Cannot open $opt_m\n" unless open(INFILE,$opt_m)	$round=$opt_r;
	foreach my $file (split /\s+/, $FILES[$opt_r]) {
	open (INFILE, $file);
	readmail(\%teams);
	close (INFILE);
	}
}	}
else	else
{	{
Line 50 select OUTFILE;	Line 56 select OUTFILE;
&printheader;	&printheader;
foreach $team (keys %teams)	foreach $team (keys %teams)
{	{
print "$team\n";	my $num=$teams{$team}->{'numletters'};
	print "$team [$num]\n";
}	}

&printfooter;	&printfooter;