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

Diff for /processmail/collection.pl between versions 3.1 and 3.2

version 3.1, 2008/03/24 16:01:47 version 3.2, 2013/10/11 15:39:35
Line 1 Line 1
 #!/usr/local/bin/perl  #!/usr/bin/perl
 #  #
 #$Id$  #$Id$
 #  #
 # Собрание сочинений  # Собрание сочинений
 #  #
     use Getopt::Std;   
   use Getopt::Std; 
   
 $usage =   $usage = 
 "Usage: collection.pl [-d] [-t table_file]  [-o results] \n";  "Usage: collection.pl [-d] [-s|-m] [-t table_file]  [-o results] \n";
   
 require 'parameters.pl';  require 'parameters.pl';
 require 'subroutines.pl';  require 'subroutines.pl';
   
 die $usage unless getopts('t:o:d');  die $usage unless getopts('t:o:dsm');
   
 $DEBUG=$opt_d;  $DEBUG=$opt_d;
   $SHORT=$opt_s;
   $MEDIUM=$opt_m;
   
 # Находим максимальный вопрос  # Находим максимальный вопрос
 $MAXQUEST=1;  $MAXQUEST=1;
Line 61  if ($opt_o) Line 64  if ($opt_o)
 for ($i=1;$i<=$MAXQUEST;$i++)  for ($i=1;$i<=$MAXQUEST;$i++)
 {  {
     print "\nВОПРОС $i:\n";      print "\nВОПРОС $i:\n";
     print "\nЗАСЧИТАНО:\n";      if ( ! $SHORT || countanswers(\%teams,\@answers,$i,'+') ) {
     anondump(\%teams,\@answers,$i,'+');          print "\nЗАСЧИТАНО:\n";
     print "\nНЕ ЗАСЧИТАНО:\n";          anondump(\%teams,\@answers,$i,'+');
     anondump(\%teams,\@answers,$i,'-');      }
     print "\nНЕ ЯСНО:\n";      if ( ! $SHORT || countanswers(\%teams,\@answers,$i,'+') ) {
     anondump(\%teams,\@answers,$i,'?');          print "\nНЕ ЗАСЧИТАНО:\n";
           anondump(\%teams,\@answers,$i,'-');
       }
       if ( ! ($SHORT || $MEDIUM) || countanswers(\%teams,\@answers,$i,'?') ) {
           print "\nНЕ ЯСНО:\n";
           anondump(\%teams,\@answers,$i,'?');
       }
       print "\n";                         # Added by LG for better readability
 }  }
 print "***\n";  print "***\n";
   
Removed from v.3.1  
changed lines
  Added in v.3.2

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