version 2.1, 2005/01/24 03:14:49
|
version 3.1, 2008/03/24 16:01:47
|
Line 2
|
Line 2
|
# |
# |
#$Id$ |
#$Id$ |
# |
# |
$MAXQUEST=12; |
# |
|
# Количество зачётов |
|
$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 |
# Адрес листа z-info |
# |
# |
$address = 'z-info@lists.neystadt.org'; |
$address = 'z-info@chgk.info'; |
|
#$address="boris"; |
# |
# |
# Обратный адрес дежурной команды и ее название |
# Обратный адрес дежурной команды и ее название |
# |
# |
$fromaddress = 'boris@plmsc.psu.edu'; |
$fromaddress = 'Boris Veytsman <borisv@lk.net>'; |
$DK = '"Катамаран"'; |
$DK = '"Дракоша"'; |
# |
# |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# системах надо как-то исхитряться... |
# системах надо как-то исхитряться... На самый худой конец, используйте |
|
# $date=''; |
# |
# |
$date = "zdump /usr/lib/zoneinfo/Europe/Moscow |sed -e 's/^[^ ]*//'"; |
$date = "export TZ='Europe/Moscow'; date"; |
|
|
# |
# |
# Процедуры, которые печатают заголовок и конец мейла-напоминания |
# Процедуры, которые печатают заголовок и конец мейла-напоминания |
Line 37 Content-Transfer-Encoding: 8bit\n
|
Line 110 Content-Transfer-Encoding: 8bit\n
|
С вами говорит робот команды $DK |
С вами говорит робот команды $DK |
|
|
END |
END |
print "На момент", `$date`, "сданы ответы от команд:\n\n"; |
print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n"; |
} |
} |
|
|
|
|
Line 50 Good luck
|
Line 123 Good luck
|
|
|
-Robot |
-Robot |
END |
END |
|
|
} |
} |