version 2.1, 2005/01/24 03:14:49
|
version 2.3, 2005/02/15 19:27:51
|
Line 2
|
Line 2
|
# |
# |
#$Id$ |
#$Id$ |
# |
# |
$MAXQUEST=12; |
# |
|
# Количество зачётов |
|
$ROUNDS=2; |
|
|
|
############################################################### |
|
# Следующие настройки индивидуальны для каждого раунда, начиная |
|
# с первого |
|
############################################################### |
|
|
|
# Первый раунд |
|
|
|
# Название раунда |
|
|
|
$NAME[1]="Спринт"; |
|
|
|
# Вопросы раунда |
|
|
|
$MINQUEST[1]=1; |
|
$MAXQUEST[1]=12; |
|
|
|
# Файлы раунда. Следующий перекрывает предыдущий: |
|
|
|
$FILES[1]='sprint.mail'; |
|
|
|
|
|
# Второй раунд |
|
|
|
# Название раунда |
|
|
|
$NAME[2]="Стайер"; |
|
|
|
# Вопросы раунда |
|
|
|
$MINQUEST[2]=1; |
|
$MAXQUEST[2]=18; |
|
|
|
# Файлы раунда. Следующий перекрывает предыдущий. Файлы разделены |
|
# ПРОБЕЛАМИ |
|
|
|
$FILES[2]='stayer.mail'; |
|
|
|
######################################################### |
|
# Теперь общие настройки |
|
######################################################### |
|
|
|
#Использовать ли формат ИЧБ для вывода |
|
$ICHB=0; |
|
|
# |
# |
# Адрес листа z-info |
# Адрес листа z-info |
# |
# |
$address = 'z-info@lists.neystadt.org'; |
$address = 'z-info@chgk.info'; |
|
#$address="boris"; |
# |
# |
# Обратный адрес дежурной команды и ее название |
# Обратный адрес дежурной команды и ее название |
# |
# |
$fromaddress = 'boris@plmsc.psu.edu'; |
$fromaddress = 'borisv@lk.net'; |
$DK = '"Катамаран"'; |
$DK = '"Дракоша"'; |
# |
# |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# системах надо как-то исхитряться... |
# системах надо как-то исхитряться... |
# |
# |
$date = "zdump /usr/lib/zoneinfo/Europe/Moscow |sed -e 's/^[^ ]*//'"; |
$date = "export TZ='Europe/Moscow'; date"; |
|
|
# |
# |
# Процедуры, которые печатают заголовок и конец мейла-напоминания |
# Процедуры, которые печатают заголовок и конец мейла-напоминания |
Line 37 Content-Transfer-Encoding: 8bit\n
|
Line 85 Content-Transfer-Encoding: 8bit\n
|
С вами говорит робот команды $DK |
С вами говорит робот команды $DK |
|
|
END |
END |
print "На момент", `$date`, "сданы ответы от команд:\n\n"; |
print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n"; |
} |
} |
|
|
|
|
Line 50 Good luck
|
Line 98 Good luck
|
|
|
-Robot |
-Robot |
END |
END |
|
|
|
# print `fortune /usr/local/share/games/fortunes/`; |
|
|
} |
} |