{{ ## ДО СЛЕДУЮЩЕЙ ПАРЫ ФИГУРНЫХ СКОБОК НИЧЕГО НЕ МЕНЯЙТЕ MAIN:{ if($wantedit eq 'yes' or $error) { $OUT .=qq`
Login :Password :
$error`; last MAIN; } $OUT .= qq` Нижайше просим не менять табличный вид записи праздников,
а при добавлении новых внимательно прочитать .
`; my ($day,$month,$year,$day2)=(localtime)[3..6]; if($day2 eq '1') {$day2 = 'Понедельник'} if($day2 eq '2') {$day2 = 'Вторник'} if($day2 eq '3') {$day2 = 'Среда'} if($day2 eq '4') {$day2 = 'Четверг'} if($day2 eq '5') {$day2 = 'Пятница'} if($day2 eq '6') {$day2 = 'Суббота'} if($day2 eq '0') {$day2 = 'Воскресенье'} if ($month < 10) { $month = '0'.($month+1) } if ($day < 10) { $day = '0'.$day } $OUT .= qq` Сегодня $day2
$day.$month.${\($year+1900)}
`; $OUT .= "
`; } $OUT .= "
Programming by mr bik (c) 2001
\n"; }}