Annotation of processmail/parameters.pl, revision 2.4
2.1 boris 1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
2: #
2.4 ! boris 3: #$Id: parameters.pl,v 2.3 2005/02/15 19:27:51 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:
25: # Файлы раунда. Следующий перекрывает предыдущий:
26:
27: $FILES[1]='sprint.mail';
28:
29:
30: # Второй раунд
31:
32: # Название раунда
33:
34: $NAME[2]="Стайер";
35:
36: # Вопросы раунда
37:
38: $MINQUEST[2]=1;
39: $MAXQUEST[2]=18;
40:
41: # Файлы раунда. Следующий перекрывает предыдущий. Файлы разделены
42: # ПРОБЕЛАМИ
43:
44: $FILES[2]='stayer.mail';
45:
46: #########################################################
47: # Теперь общие настройки
48: #########################################################
49:
50:
2.1 boris 51: #
52: # Адрес листа z-info
53: #
2.2 boris 54: $address = 'z-info@chgk.info';
55: #$address="boris";
2.1 boris 56: #
57: # Обратный адрес дежурной команды и ее название
58: #
2.2 boris 59: $fromaddress = 'borisv@lk.net';
60: $DK = '"Дракоша"';
2.1 boris 61: #
62: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
63: # время. В Линуксе zdump это делает хорошо. В других операционных
64: # системах надо как-то исхитряться...
65: #
2.2 boris 66: $date = "export TZ='Europe/Moscow'; date";
2.1 boris 67:
68: #
69: # Процедуры, которые печатают заголовок и конец мейла-напоминания
70: #
71: sub printheader
72: {
73: print <<"END";
74: To: $address
75: From: $fromaddress
76: Subject: Svodka
77: MIME-Version: 1.0
78: Content-type: text/plain; charset=koi8-r
79: Content-Transfer-Encoding: 8bit\n
80:
81: Уважаемые знатоки!
82:
83: С вами говорит робот команды $DK
84:
85: END
2.3 boris 86: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n";
2.1 boris 87: }
88:
89:
90: sub printfooter
91: {
92: print <<END;
93:
94: --
95: Good luck
96:
97: -Robot
98: END
2.2 boris 99:
2.1 boris 100: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>