|
version 1.2, 2002/02/04 17:32:41
|
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 |
| { |
{ |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to reminder.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / processmail