# В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
#
#$Id: parameters.pl,v 3.0 2008/03/23 17:50:50 boris Exp $
#
#
# Количество зачётов
$ROUNDS=2;
###############################################################
# Следующие настройки индивидуальны для каждого раунда, начиная
# с первого
###############################################################
# Первый раунд
# Название раунда
$NAME[1]="Спринт";
# Вопросы раунда
$MINQUEST[1]=1;
$MAXQUEST[1]=12;
# Файлы раунда. Следующий перекрывает предыдущий.
# Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
# $FILES[1] = [ "sprint.mail", "sprint-extra.mail" ];
#
# ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
$FILES[1]= [ 'sprint.mail' ];
# Внезачётные вопросы раунда. В квадратных скобках, номера разделены ЗАПЯТЫМИ.
# Во втором раунде эти вопросы тоже будут вне зачёта (но можно будет и
# учесть, см. ниже описание $NOCOUNT[2]).
# $NOCOUNT[1] = [];
# $NOCOUNT[1] = [ 2, 3, 4 ];
$NOCOUNT[1]= [];
# Второй раунд
# Название раунда
$NAME[2]="Стайер";
# Вопросы раунда
$MINQUEST[2]=1;
$MAXQUEST[2]=18;
# Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
# $FILES[2] = [ 'predvarit.mail', 'osnovn.mail' ];
#
# ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
$FILES[2]= [ 'stayer.mail' ];
# Внезачётные вопросы в этом раунде. В квадратных скобках, через ЗАПЯТУЮ.
# Этот список ДОБАВЛЯЕТСЯ к уже перечисленным в $NOCOUNT[1]. Однако
# если вы хотите исключить какой-то из ранее указанных вопросов (например,
# в гипотетической ситуации "вопрос номер 5 был исправлен слишком поздно,
# поэтому в Спринте не учитывается, а для Стайера используется"), то
# укажите его номер со знаком минус: "3 -5 6"
# $NOCOUNT[2] = [];
# $NOCOUNT[2] = [ 3, -5, 6 ];
$NOCOUNT[2]= [];
#########################################################
# Теперь общие настройки
#########################################################
#
# Адрес листа z-info
#
$address = 'z-info@chgk.info';
#$address="boris";
#
# Обратный адрес дежурной команды и ее название
#
$fromaddress = 'Boris Veytsman <borisv@lk.net>';
$DK = '"Дракоша"';
#
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
# время. В Линуксе zdump это делает хорошо. В других операционных
# системах надо как-то исхитряться... На самый худой конец, используйте
# $date='';
#
$date = "export TZ='Europe/Moscow'; date";
#
# Процедуры, которые печатают заголовок и конец мейла-напоминания
#
sub printheader
{
print <<"END";
To: $address
From: $fromaddress
Subject: Svodka
MIME-Version: 1.0
Content-type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit\n
Уважаемые знатоки!
С вами говорит робот команды $DK
END
print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n";
}
sub printfooter
{
print <<END;
--
Good luck
-Robot
END
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>