version 2.1, 2005/01/24 03:14:49
|
version 2.2, 2005/01/24 03:16:35
|
Line 2
|
Line 2
|
# |
# |
#$Id$ |
#$Id$ |
# |
# |
$MAXQUEST=12; |
$MAXQUEST=30; |
# |
# |
# Адрес листа z-info |
# Адрес листа z-info |
# |
# |
$address = 'z-info@lists.neystadt.org'; |
$address = 'z-info@chgk.info'; |
|
#$address="boris"; |
# |
# |
# Обратный адрес дежурной команды и ее название |
# Обратный адрес дежурной команды и ее название |
# |
# |
$fromaddress = 'boris@plmsc.psu.edu'; |
$fromaddress = 'borisv@lk.net'; |
$DK = '"Катамаран"'; |
$DK = '"Дракоша"'; |
# |
# |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# время. В Линуксе zdump это делает хорошо. В других операционных |
# системах надо как-то исхитряться... |
# системах надо как-то исхитряться... |
# |
# |
$date = "zdump /usr/lib/zoneinfo/Europe/Moscow |sed -e 's/^[^ ]*//'"; |
$date = "export TZ='Europe/Moscow'; date"; |
|
|
# |
# |
# Процедуры, которые печатают заголовок и конец мейла-напоминания |
# Процедуры, которые печатают заголовок и конец мейла-напоминания |
Line 37 Content-Transfer-Encoding: 8bit\n
|
Line 38 Content-Transfer-Encoding: 8bit\n
|
С вами говорит робот команды $DK |
С вами говорит робот команды $DK |
|
|
END |
END |
print "На момент", `$date`, "сданы ответы от команд:\n\n"; |
print "На момент ", `$date`, "сданы ответы от команд:\n\n"; |
} |
} |
|
|
|
|
Line 50 Good luck
|
Line 51 Good luck
|
|
|
-Robot |
-Robot |
END |
END |
|
|
|
# print `fortune /usr/local/share/games/fortunes/`; |
|
|
} |
} |