version 1.1, 2002/02/04 17:22:28
|
version 3.0, 2008/03/23 17:50:50
|
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 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; |