Автор Тема: Проблема с днями недели в CGI скрипте  (Прочитано 3539 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Cultura

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://cultura.ru
Помогите чайнику разобраться.
Почему-то неправильно отображаются дни недели на сайте.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;

може в нем дело?

Оффлайн Cultura

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://cultura.ru
Проблема с днями недели в CGI скрипте
« Ответ #1 : 29 Апреля 2006, 16:13:46 »
а за деньги?

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28