Return to parameters.pl CVS log

Up to [Local Repository] / processmail

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: }