

# В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
#
#$Id: parameters.pl,v 1.2 1998/11/18 17:44:26 boris Exp $
#
$MAXQUEST=12;
#
# Адрес листа z-info
#
$address = 'z-info@lists.neystadt.org';
#$address='grisha@mit.edu';
#
# Обратный адрес дежурной команды и ее название
#
$fromaddress = 'grisha@mit.edu';
$DK = 'Avesta i Bostonskie chajniki';

#
# $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
# время. В Линуксе zdump это делает хорошо. В других операционных 
# системах надо как-то исхитряться...
#
#$date = "zdump  /usr/lib/zoneinfo/Europe/Moscow |sed -e 's/^[^ ]*//'";

$timediff=8;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+$timediff*3600);

if ($sec<10){$sec="0$sec";}
if ($min<10){$sec="0$min";}
if ($hour<10){$sec="0$hour";}

$date = 'echo " "'."$hour:$min:$sec".'" "';

#
# Процедуры, которые печатают заголовок и конец мейла-напоминания
#
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
}
