{{
## ДО СЛЕДУЮЩЕЙ ПАРЫ ФИГУРНЫХ СКОБОК НИЧЕГО НЕ МЕНЯЙТЕ
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 .= "Сегодня $day2
$day.$month.${\($year+1900)}
";
## gh hol sh smp bad hor
$OUT .='';
foreach my $all (sort { $days{$a} cmp $days{$b} } keys %days){
my ($about, $day, $typ) = split('~', $all);
my $year = $year+1900 - $1 if $day =~m|^(?:\d+?\.\d+?)\/(\d+)|;
if ($year =~m|\w+1$|) {$year = "($year год назад)"}
if ($year =~m`\w+(?:2|3|4)$`) {$year = "($year года назад)"}
if ($year =~m`\w+(?:5|6|7|8|9|0)$`) {$year = "($year лет назад)"}
$OUT .= qq`| $day | $about$year |
`;
}
my $pr = ' :: ';
$OUT .= '
';
if($test eq 'back') {
$OUT .= 'Неделю назад'
} else {
$OUT .= "Неделю назад"
}
$OUT .= "$pr";
if($test eq 'reality') {
$OUT .= 'Reality'
} else {
$OUT .= "Reality"
}
$OUT .= "$pr";
if($test eq 'forward') {
$OUT .= 'Неделю вперед'
} else {
$OUT .= "Неделю вперед"
}
$OUT .= '';
$OUT .= "
Programming by mr bik (c) 2001\n";
}}