processmail/reminder.pl - diff

Return to reminder.pl CVS log

Up to [Local Repository] / processmail

version 1.2, 2002/02/04 17:32:41	version 3.1, 2008/03/24 16:01:47
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 ( @{$FILES[$opt_r]} ) {
	open (INFILE, $file);
	readmail(\%teams);
	close (INFILE);
	}
}	}
else	else
{	{
Line 35 else	Line 41 else
}	}
readmail(\%teams);	readmail(\%teams);
close(INFILE);	close(INFILE);

#	#
# Пишем мейл	# Пишем мейл
#	#
Line 56 foreach $team (keys %teams)	Line 63 foreach $team (keys %teams)

&printfooter;	&printfooter;

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