Annotation of processmail/parameters.pl, revision 2.2
2.1 boris 1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
2: #
3: #$Id: parameters.pl,v 1.2 1998/11/18 17:44:26 boris Exp $
4: #
2.2 ! boris 5: $MAXQUEST=30;
2.1 boris 6: #
7: # Адрес листа z-info
8: #
2.2 ! boris 9: $address = 'z-info@chgk.info';
! 10: #$address="boris";
2.1 boris 11: #
12: # Обратный адрес дежурной команды и ее название
13: #
2.2 ! boris 14: $fromaddress = 'borisv@lk.net';
! 15: $DK = '"Дракоша"';
2.1 boris 16: #
17: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
18: # время. В Линуксе zdump это делает хорошо. В других операционных
19: # системах надо как-то исхитряться...
20: #
2.2 ! boris 21: $date = "export TZ='Europe/Moscow'; date";
2.1 boris 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
2.2 ! boris 41: print "На момент ", `$date`, "сданы ответы от команд:\n\n";
2.1 boris 42: }
43:
44:
45: sub printfooter
46: {
47: print <<END;
48:
49: --
50: Good luck
51:
52: -Robot
53: END
2.2 ! boris 54:
! 55: # print `fortune /usr/local/share/games/fortunes/`;
! 56:
2.1 boris 57: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>