Return to processmail.pl CVS log

Up to [Local Repository] / processmail

Annotation of processmail/processmail.pl, revision 2.1

2.1     ! boris       1: #!/usr/local/bin/perl
        !             2: #$Id: processmail.pl,v 2.4 1998/11/27 19:53:24 boris Exp $
        !             3: #
        !             4: #
        !             5: # Исходные файлы и параметры
        !             6: #
        !             7: 
        !             8:     use Getopt::Std; 
        !             9: 
        !            10: $usage = 'processmail.pl $Revision: 2.4 $, $Date: 1998/11/27 19:53:24 $'. "\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: