[BACK]Return to processmail.pl CVS log [TXT] [DIR] Up to [Local Repository] / processmail

Diff for /processmail/processmail.pl between versions 2.1 and 3.2

version 2.1, 2005/01/24 03:14:49 version 3.2, 2013/10/11 15:39:35
Line 1 Line 1
 #!/usr/local/bin/perl  #!/usr/bin/perl
 #$Id$  #$Id$
 #  #
 #  #
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);  
 #  #
 # ðÉÛÅÍ ÉÚÍÅÎÅÎÎÕÀ ÔÁÂÌÉÃÕ × ÆÁÊÌ.  # ðÉÛÅÍ ÉÚÍÅÎÅÎÎÕÀ ÔÁÂÌÉÃÕ × ÆÁÊÌ.
 #  #
Line 64  for ($i=1;$i<=$MAXQUEST;$i++) Line 67  for ($i=1;$i<=$MAXQUEST;$i++)
 }  }
 print "***\n";  print "***\n";
   
   #
   # îÁ ×ÓÑËÉÊ ÓÌÕÞÁÊ ÐÒÏ×ÅÒÑÅÍ ÎÁ ÎÁÌÉÞÉÅ ËÏÍÁÎÄ Ó ÄÕÂÌÉÒÕÀÝÉÍÉÓÑ ÎÏÍÅÒÁÍÉ.
   #
   check_dup_numbers(\%teams);
Removed from v.2.1  
changed lines
  Added in v.3.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>