Return to parameters.pl CVS log

Up to [Local Repository] / processmail

Added new files

    1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
    2: #
    3: #$Id: parameters.pl,v 2.1 2005/01/24 03:14:49 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: }