#!/usr/bin/perl
#$Id: processmail.pl,v 3.3 2013/10/30 19:28:30 boris Exp $
#
#
# Исходные файлы и параметры
#
use Getopt::Std;
$usage = 'processmail.pl $Revision: 3.3 $, $Date: 2013/10/30 19:28:30 $'. "\n".
"Usage: processmail.pl [-d] [-t table_file] [-o results] \n";
require 'parameters.pl';
require 'subroutines.pl';
die $usage unless getopts('t:o:d');
$DEBUG=$opt_d;
# Находим максимальный и минимальный вопрос и слегка подстраховываемся.
$MINQUEST=1e99;
$MAXQUEST=-1;
for (my $r=1; $r<=$ROUNDS; $r++) {
if ($MINQUEST>$MINQUEST[$r]) {
$MINQUEST=$MINQUEST[$r];
}
if ($MAXQUEST<$MAXQUEST[$r]) {
$MAXQUEST=$MAXQUEST[$r];
}
}
if ($MINQUEST < 0 || $MAXQUEST < 0) {
die "Отрицательные номера вопросов не поддерживаются!\n";
}
my %teams;
my @answers;
#
# Читаем старые результаты
#
if ($opt_t)
{
die "Cannot open $opt_t\n" unless open(INFILE,$opt_t);
readhash(\@answers);
close(INFILE);
}
#
# Читаем ответы команд для ВСЕХ зачётов
#
for (my $r=1; $r<=$ROUNDS; $r++) {
foreach my $file ( @{$FILES[$r]} ) {
open (INFILE, $file);
readmail(\%teams);
collect_answers(\%teams,\@answers);
close (INFILE);
}
}
#
# Пишем измененную таблицу в файл.
#
if ($opt_o)
{
die "Cannot open $opt_o\n" unless open(OUTFILE,">$opt_o");
select OUTFILE;
}
for ($i=$MINQUEST;$i<=$MAXQUEST;$i++)
{
foreach $symbol ('+','-','?')
{
dumphash(\%teams,\@answers,$i,$symbol);
}
}
print "***\n";
#
# На всякий случай проверяем на наличие команд с дублирующимися номерами.
#
check_dup_numbers(\%teams);
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>