Annotation of processmail/parameters.pl, revision 3.0
2.1 boris 1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
2: #
3.0 ! boris 3: #$Id: parameters.pl,v 2.4 2005/02/20 03:24:43 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: # Вопросы раунда
21:
22: $MINQUEST[1]=1;
23: $MAXQUEST[1]=12;
24:
3.0 ! boris 25: # Файлы раунда. Следующий перекрывает предыдущий.
! 26: # Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
! 27: # $FILES[1] = [ "sprint.mail", "sprint-extra.mail" ];
! 28: #
! 29: # ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
! 30:
! 31: $FILES[1]= [ 'sprint.mail' ];
2.3 boris 32:
3.0 ! boris 33: # Внезачётные вопросы раунда. В квадратных скобках, номера разделены ЗАПЯТЫМИ.
! 34: # Во втором раунде эти вопросы тоже будут вне зачёта (но можно будет и
! 35: # учесть, см. ниже описание $NOCOUNT[2]).
! 36: # $NOCOUNT[1] = [];
! 37: # $NOCOUNT[1] = [ 2, 3, 4 ];
! 38:
! 39: $NOCOUNT[1]= [];
2.3 boris 40:
41:
42: # Второй раунд
43:
44: # Название раунда
45:
46: $NAME[2]="Стайер";
47:
48: # Вопросы раунда
49:
50: $MINQUEST[2]=1;
51: $MAXQUEST[2]=18;
52:
3.0 ! boris 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]= [];
2.3 boris 70:
71:
72: #########################################################
73: # Теперь общие настройки
74: #########################################################
75:
76:
2.1 boris 77: #
78: # Адрес листа z-info
79: #
2.2 boris 80: $address = 'z-info@chgk.info';
81: #$address="boris";
2.1 boris 82: #
83: # Обратный адрес дежурной команды и ее название
84: #
3.0 ! boris 85: $fromaddress = 'Boris Veytsman <borisv@lk.net>';
2.2 boris 86: $DK = '"Дракоша"';
2.1 boris 87: #
88: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
89: # время. В Линуксе zdump это делает хорошо. В других операционных
3.0 ! boris 90: # системах надо как-то исхитряться... На самый худой конец, используйте
! 91: # $date='';
2.1 boris 92: #
2.2 boris 93: $date = "export TZ='Europe/Moscow'; date";
2.1 boris 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
2.3 boris 113: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n";
2.1 boris 114: }
115:
116:
117: sub printfooter
118: {
119: print <<END;
120:
121: --
122: Good luck
123:
124: -Robot
125: END
2.2 boris 126:
2.1 boris 127: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>