1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
2: #
3: #$Id: parameters.pl,v 2.3 2005/02/15 19:27:51 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';
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: #Использовать ли формат ИЧБ для вывода
51: $ICHB=0;
52:
53: #
54: # Адрес листа z-info
55: #
56: $address = 'z-info@chgk.info';
57: #$address="boris";
58: #
59: # Обратный адрес дежурной команды и ее название
60: #
61: $fromaddress = 'borisv@lk.net';
62: $DK = '"Дракоша"';
63: #
64: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
65: # время. В Линуксе zdump это делает хорошо. В других операционных
66: # системах надо как-то исхитряться...
67: #
68: $date = "export TZ='Europe/Moscow'; date";
69:
70: #
71: # Процедуры, которые печатают заголовок и конец мейла-напоминания
72: #
73: sub printheader
74: {
75: print <<"END";
76: To: $address
77: From: $fromaddress
78: Subject: Svodka
79: MIME-Version: 1.0
80: Content-type: text/plain; charset=koi8-r
81: Content-Transfer-Encoding: 8bit\n
82:
83: Уважаемые знатоки!
84:
85: С вами говорит робот команды $DK
86:
87: END
88: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n";
89: }
90:
91:
92: sub printfooter
93: {
94: print <<END;
95:
96: --
97: Good luck
98:
99: -Robot
100: END
101:
102: # print `fortune /usr/local/share/games/fortunes/`;
103:
104: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>