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