1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
2: #
3: #$Id: parameters.pl,v 3.0 2008/03/23 17:50:50 boris Exp $
4: #
5: #
6: # Количество зачётов
7: $ROUNDS=2;
8:
9: ###############################################################
10: # Следующие настройки индивидуальны для каждого раунда, начиная
11: # с первого
12: ###############################################################
13:
14: # Первый раунд
15:
16: # Название раунда
17:
18: $NAME[1]="Спринт";
19:
20: # Вопросы раунда
21:
22: $MINQUEST[1]=1;
23: $MAXQUEST[1]=12;
24:
25: # Файлы раунда. Следующий перекрывает предыдущий.
26: # Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
27: # $FILES[1] = [ "sprint.mail", "sprint-extra.mail" ];
28: #
29: # ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
30:
31: $FILES[1]= [ 'sprint.mail' ];
32:
33: # Внезачётные вопросы раунда. В квадратных скобках, номера разделены ЗАПЯТЫМИ.
34: # Во втором раунде эти вопросы тоже будут вне зачёта (но можно будет и
35: # учесть, см. ниже описание $NOCOUNT[2]).
36: # $NOCOUNT[1] = [];
37: # $NOCOUNT[1] = [ 2, 3, 4 ];
38:
39: $NOCOUNT[1]= [];
40:
41:
42: # Второй раунд
43:
44: # Название раунда
45:
46: $NAME[2]="Стайер";
47:
48: # Вопросы раунда
49:
50: $MINQUEST[2]=1;
51: $MAXQUEST[2]=18;
52:
53: # Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
54: # $FILES[2] = [ 'predvarit.mail', 'osnovn.mail' ];
55: #
56: # ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
57:
58: $FILES[2]= [ 'stayer.mail' ];
59:
60: # Внезачётные вопросы в этом раунде. В квадратных скобках, через ЗАПЯТУЮ.
61: # Этот список ДОБАВЛЯЕТСЯ к уже перечисленным в $NOCOUNT[1]. Однако
62: # если вы хотите исключить какой-то из ранее указанных вопросов (например,
63: # в гипотетической ситуации "вопрос номер 5 был исправлен слишком поздно,
64: # поэтому в Спринте не учитывается, а для Стайера используется"), то
65: # укажите его номер со знаком минус: "3 -5 6"
66: # $NOCOUNT[2] = [];
67: # $NOCOUNT[2] = [ 3, -5, 6 ];
68:
69: $NOCOUNT[2]= [];
70:
71:
72: #########################################################
73: # Теперь общие настройки
74: #########################################################
75:
76:
77: #
78: # Адрес листа z-info
79: #
80: $address = 'z-info@chgk.info';
81: #$address="boris";
82: #
83: # Обратный адрес дежурной команды и ее название
84: #
85: $fromaddress = 'Boris Veytsman <borisv@lk.net>';
86: $DK = '"Дракоша"';
87: #
88: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
89: # время. В Линуксе zdump это делает хорошо. В других операционных
90: # системах надо как-то исхитряться... На самый худой конец, используйте
91: # $date='';
92: #
93: $date = "export TZ='Europe/Moscow'; date";
94:
95: #
96: # Процедуры, которые печатают заголовок и конец мейла-напоминания
97: #
98: sub printheader
99: {
100: print <<"END";
101: To: $address
102: From: $fromaddress
103: Subject: Svodka
104: MIME-Version: 1.0
105: Content-type: text/plain; charset=koi8-r
106: Content-Transfer-Encoding: 8bit\n
107:
108: Уважаемые знатоки!
109:
110: С вами говорит робот команды $DK
111:
112: END
113: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n";
114: }
115:
116:
117: sub printfooter
118: {
119: print <<END;
120:
121: --
122: Good luck
123:
124: -Robot
125: END
126:
127: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>