Return to collection.pl CVS log

Up to [Local Repository] / processmail

Annotation of processmail/collection.pl, revision 1.1

1.1     ! boris       1: #!/usr/local/bin/perl
        !             2: #
        !             3: #$Id: collection.pl,v 2.2 1998/11/27 20:51:18 boris Exp $
        !             4: #
        !             5: # Собрание сочинений
        !             6: #
        !             7:     use Getopt::Std; 
        !             8: 
        !             9: $usage = 'collection.pl $Revision: 2.2 $, $Date: 1998/11/27 20:51:18 $'. "\n".
        !            10: "Usage: collection.pl [-d] [-t table_file] [-m mail_file] [-o results] \n";
        !            11: 
        !            12: require 'parameters.pl';
        !            13: require 'subroutines.pl';
        !            14: 
        !            15: die $usage unless getopts('t:m:o:d');
        !            16: 
        !            17: $DEBUG=$opt_d;
        !            18: 
        !            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:     print "\nВОПРОС $i:\n";
        !            61:     print "\nЗАСЧИТАНО:\n";
        !            62:     anondump(\%teams,\@answers,$i,'+');
        !            63:     print "\nНЕ ЗАСЧИТАНО:\n";
        !            64:     anondump(\%teams,\@answers,$i,'-');
        !            65:     print "\nНЕ ЯСНО:\n";
        !            66:     anondump(\%teams,\@answers,$i,'?');
        !            67: }
        !            68: print "***\n";
        !            69: 
        !            70: 
        !            71: 
        !            72: 
        !            73: 
        !            74: 
        !            75: