version 2.2, 2005/01/24 03:16:35
|
version 3.0, 2008/03/23 17:50:50
|
Line 2
|
Line 2
|
# |
# |
#$Id$ |
#$Id$ |
# |
# |
$MAXQUEST=30; |
# |
|
# Количество зачётов |
|
$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 |
# |
# |
Line 11 $address = 'z-info@chgk.info';
|
Line 82 $address = 'z-info@chgk.info';
|
# |
# |
# Обратный адрес дежурной команды и ее название |
# Обратный адрес дежурной команды и ее название |
# |
# |
$fromaddress = 'borisv@lk.net'; |
$fromaddress = 'Boris Veytsman <borisv@lk.net>'; |
$DK = '"Дракоша"'; |
$DK = '"Дракоша"'; |
# |
# |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# системах надо как-то исхитряться... |
# системах надо как-то исхитряться... На самый худой конец, используйте |
|
# $date=''; |
# |
# |
$date = "export TZ='Europe/Moscow'; date"; |
$date = "export TZ='Europe/Moscow'; date"; |
|
|
Line 38 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 52 Good luck
|
Line 124 Good luck
|
-Robot |
-Robot |
END |
END |
|
|
# print `fortune /usr/local/share/games/fortunes/`; |
|
|
|
} |
} |