|
version 2.2, 2005/01/24 03:16:35
|
version 2.3, 2005/02/15 19:27:51
|
|
Line 8
|
Line 8
|
| use Getopt::Std; |
use Getopt::Std; |
| |
|
| $usage = 'processmail.pl $Revision$, $Date$'. "\n". |
$usage = 'processmail.pl $Revision$, $Date$'. "\n". |
| "Usage: processmail.pl [-d] [-t table_file] [-m mail_file] [-o results] \n"; |
"Usage: processmail.pl [-d] [-t table_file] [-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('t:o:d'); |
| |
|
| $DEBUG=$opt_d; |
$DEBUG=$opt_d; |
| |
|
|
Line 31 if ($opt_t)
|
Line 31 if ($opt_t)
|
| } |
} |
| |
|
| # |
# |
| # þÉÔÁÅÍ ÏÔ×ÅÔÙ ËÏÍÁÎÄ |
# þÉÔÁÅÍ ÏÔ×ÅÔÙ ËÏÍÁÎÄ ÄÌÑ ÷óåè ÚÁÞ£ÔÏ× |
| # |
# |
| if ($opt_m) |
|
| { |
$MAXQUEST=1; |
| die "Cannot open $opt_m\n" unless open(INFILE,$opt_m) |
for (my $i=1; $i<=$ROUNDS; $i++) { |
| |
if ($MAXQUEST<$MAXQUEST[$i]) { |
| |
$MAXQUEST=$MAXQUEST[$i]; |
| |
} |
| } |
} |
| else |
|
| { |
for (my $i=1; $i<=$ROUNDS; $i++) { |
| *INFILE=*STDIN; |
foreach my $file (split /\s+/, $FILES[$i]) { |
| |
open (INFILE, $file); |
| |
readmail(\%teams); |
| |
collect_answers(\%teams,\@answers); |
| |
close (INFILE); |
| |
} |
| } |
} |
| readmail(\%teams); |
|
| close(INFILE); |
|
| # |
|
| # þÉÓÔÉÍ ÈÜÛ %answers |
|
| # |
|
| collect_answers(\%teams,\@answers); |
|
| # |
# |
| # ðÉÛÅÍ ÉÚÍÅÎÅÎÎÕÀ ÔÁÂÌÉÃÕ × ÆÁÊÌ. |
# ðÉÛÅÍ ÉÚÍÅÎÅÎÎÕÀ ÔÁÂÌÉÃÕ × ÆÁÊÌ. |
| # |
# |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to processmail.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / processmail