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