Return to processmail.pl CVS log

Up to [Local Repository] / processmail

Added new files

    1: #!/usr/local/bin/perl
    2: #$Id: processmail.pl,v 2.1 2005/01/24 03:14:49 boris Exp $
    3: #
    4: #
    5: # Исходные файлы и параметры
    6: #
    7: 
    8:     use Getopt::Std; 
    9: 
   10: $usage = 'processmail.pl $Revision: 2.1 $, $Date: 2005/01/24 03:14:49 $'. "\n".
   11: "Usage: processmail.pl [-d] [-t table_file] [-m mail_file]  [-o results] \n";
   12: 
   13: require 'parameters.pl';
   14: require 'subroutines.pl';
   15: 
   16: die $usage unless getopts('t:m:o:d');
   17: 
   18: $DEBUG=$opt_d;
   19: 
   20: 
   21: my %teams;
   22: my @answers;
   23: #
   24: # Читаем старые результаты
   25: #
   26: if ($opt_t)
   27: {
   28:     die "Cannot open $opt_t\n" unless open(INFILE,$opt_t);
   29:     readhash(\@answers);
   30:     close(INFILE);
   31: }
   32: 
   33: #
   34: # Читаем ответы команд
   35: #
   36: if ($opt_m)
   37: {
   38:     die "Cannot open $opt_m\n" unless open(INFILE,$opt_m)
   39: }
   40: else
   41: {
   42:     *INFILE=*STDIN;
   43: }
   44: readmail(\%teams);
   45: close(INFILE);
   46: #
   47: # Чистим хэш %answers
   48: #
   49: collect_answers(\%teams,\@answers);
   50: #
   51: # Пишем измененную таблицу в файл.
   52: #
   53: if ($opt_o)
   54: { 
   55:     die "Cannot open $opt_o\n" unless open(OUTFILE,">$opt_o");
   56:     select OUTFILE;
   57: }
   58: for ($i=1;$i<=$MAXQUEST;$i++)
   59: {
   60:     foreach $symbol ('+','-','?')
   61:     {
   62: 	dumphash(\%teams,\@answers,$i,$symbol);
   63:     }
   64: }
   65: print "***\n";
   66: 
   67: