1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
2: #
3: #$Id: parameters.pl,v 2.2 2005/01/24 03:16:35 boris Exp $
4: #
5: $MAXQUEST=30;
6: #
7: # Адрес листа z-info
8: #
9: $address = 'z-info@chgk.info';
10: #$address="boris";
11: #
12: # Обратный адрес дежурной команды и ее название
13: #
14: $fromaddress = 'borisv@lk.net';
15: $DK = '"Дракоша"';
16: #
17: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
18: # время. В Линуксе zdump это делает хорошо. В других операционных
19: # системах надо как-то исхитряться...
20: #
21: $date = "export TZ='Europe/Moscow'; date";
22:
23: #
24: # Процедуры, которые печатают заголовок и конец мейла-напоминания
25: #
26: sub printheader
27: {
28: print <<"END";
29: To: $address
30: From: $fromaddress
31: Subject: Svodka
32: MIME-Version: 1.0
33: Content-type: text/plain; charset=koi8-r
34: Content-Transfer-Encoding: 8bit\n
35:
36: Уважаемые знатоки!
37:
38: С вами говорит робот команды $DK
39:
40: END
41: print "На момент ", `$date`, "сданы ответы от команд:\n\n";
42: }
43:
44:
45: sub printfooter
46: {
47: print <<END;
48:
49: --
50: Good luck
51:
52: -Robot
53: END
54:
55: # print `fortune /usr/local/share/games/fortunes/`;
56:
57: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>