version 2.1, 2005/01/24 03:14:49
|
version 3.0, 2008/03/23 17:50:50
|
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 ( @{$FILES[$i]} ) { |
|
open (INFILE, $file); |
|
readmail(\%teams); |
|
collect_answers(\%teams,\@answers); |
|
close (INFILE); |
|
} |
} |
} |
readmail(\%teams); |
|
close(INFILE); |
|
# |
|
# þÉÓÔÉÍ ÈÜÛ %answers |
|
# |
|
collect_answers(\%teams,\@answers); |
|
# |
# |
# ðÉÛÅÍ ÉÚÍÅÎÅÎÎÕÀ ÔÁÂÌÉÃÕ × ÆÁÊÌ. |
# ðÉÛÅÍ ÉÚÍÅÎÅÎÎÕÀ ÔÁÂÌÉÃÕ × ÆÁÊÌ. |
# |
# |