--- processmail/processmail.pl 2008/03/24 16:01:47 3.1 +++ processmail/processmail.pl 2008/03/23 17:50:50 3.0 @@ -1,5 +1,5 @@ #!/usr/local/bin/perl -#$Id: processmail.pl,v 3.1 2008/03/24 16:01:47 boris Exp $ +#$Id: processmail.pl,v 3.0 2008/03/23 17:50:50 boris Exp $ # # # Исходные файлы и параметры @@ -7,7 +7,7 @@ use Getopt::Std; -$usage = 'processmail.pl $Revision: 3.1 $, $Date: 2008/03/24 16:01:47 $'. "\n". +$usage = 'processmail.pl $Revision: 3.0 $, $Date: 2008/03/23 17:50:50 $'. "\n". "Usage: processmail.pl [-d] [-t table_file] [-o results] \n"; require 'parameters.pl'; @@ -67,7 +67,4 @@ for ($i=1;$i<=$MAXQUEST;$i++) } print "***\n"; -# -# На всякий случай проверяем на наличие команд с дублирующимися номерами. -# -check_dup_numbers(\%teams); +