# В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки" # #$Id: parameters.pl,v 2.4 2005/02/20 03:24:43 boris Exp $ # # # Количество зачётов $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'; ######################################################### # Теперь общие настройки ######################################################### # # Адрес листа z-info # $address = 'z-info@chgk.info'; #$address="boris"; # # Обратный адрес дежурной команды и ее название # $fromaddress = 'borisv@lk.net'; $DK = '"Дракоша"'; # # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ # время. В Линуксе zdump это делает хорошо. В других операционных # системах надо как-то исхитряться... # $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 <