Annotation of processmail/parameters.pl, revision 2.1
2.1 ! boris 1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
! 2: #
! 3: #$Id: parameters.pl,v 1.2 1998/11/18 17:44:26 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>