# В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
#
#$Id: parameters.pl,v 2.2 2005/01/24 03:16:35 boris Exp $
#
$MAXQUEST=30;
#
# Адрес листа z-info
#
$address = 'z-info@chgk.info';
#$address="boris";
#
# Обратный адрес дежурной команды и ее название
#
$fromaddress = 'borisv@lk.net';
$DK = '"Дракоша"';
#
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
# время. В Линуксе zdump это делает хорошо. В других операционных
# системах надо как-то исхитряться...
#
$date = "export TZ='Europe/Moscow'; date";
#
# Процедуры, которые печатают заголовок и конец мейла-напоминания
#
sub printheader
{
print <<"END";
To: $address
From: $fromaddress
Subject: Svodka
MIME-Version: 1.0
Content-type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit\n
Уважаемые знатоки!
С вами говорит робот команды $DK
END
print "На момент ", `$date`, "сданы ответы от команд:\n\n";
}
sub printfooter
{
print <<END;
--
Good luck
-Robot
END
# print `fortune /usr/local/share/games/fortunes/`;
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>