Return to parameters.pl CVS log

Up to [Local Repository] / processmail

Added new files

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