Помогите чайнику разобраться.
Почему-то неправильно отображаются дни недели на сайте.
www.cultura.ru .
Нашел в папке cgi-bin вот такой файл:
sub GetDayName{
local($InputData)=@_;
local($y, $m, $d);
$InputData=~ /(\\d)(\\d)(\\d)(\\d)(\\d)(\\d)(\\d)(\\d)/;
$y="$1$2$3$4";
if($5 eq "0") {$m="$6";}
else{$m="$5$6";}
if($7 eq "0") {$d="$8"}
else {$d="$7$8";}
local(@dayName, @mounthName, @dayInMounth);
local($dayOfTheWeek);
@dayName=("понедельник","вторник","среда","четверг","пятница","суббота","воскресенье");
@mounthName=("января","февраля","марта","апреля","мая","июня","июля","августа","сентября","октября","ноября","декабря");
@dayInMounth=(0,31,60,91,121,152,182,213,244,274,305,335,366);
#$test="test.txt";
#open(OUT,">$test");
if($y>=1996){
$dayOfTheWeek=(($y-1996)*365+@dayInMounth[$m-1]+$d+int(($y-1996)/4))%7;
if(($y-1996)%4==0 && $m<3) {$dayOfTheWeek--;}
}
else{
$dayOfTheWeek=((1996-$y)*365-@dayInMounth[$m-1]-$d+int((1996-$y)/4))%7;
if((1996-$y)%4==0 && $m>2) {$dayOfTheWeek--;}
$dayOfTheWeek=6-$dayOfTheWeek;
}
#print OUT "$d @mounthName[$m-1] $y (@dayName[$dayOfTheWeek])";
#close(OUT);
return ("$d @mounthName[$m-1] $y (@dayName[$dayOfTheWeek])");
}
1;
може в нем дело?
