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>