Интер-Cоя
первая страница      поиск   карта сайта          

<< возврат

#!/usr/bin/perl ################################################################################################## # # Православный календарь! # # Автор - бесменный веб-мастер www.soyka.ru Борис Бикбов (bgab@orc.ru) ## ################################################################################################ # Обработка GET $in = $ENV{'QUERY_STRING'}; $path = "/ozd-pit/img/"; @month=qw( Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь ); @wday=qw( Пн Вт Ср Чт Пт Сб Вс ); @number=( [4,4,5,4,5,6,8,0,0,0,0,0,0,8,0,0,0,6,8,0,0,0,0,2,0,2,0,0,0,0,2], [0,2,0,0,0,0,0,0,0,0,0,3,0,3,8,3,0,0,1,1,1,1,1,1,1,7,3,5], [3,5,3,3,5,3,5,3,5,3,3,5,3,5,3,5,3,3,5,3,5,3,5,3,3,5,3,5,3,5,3], [3,5,3,5,3,5,8,8,5,3,5,3,6,3,9,9,9,9,9,9,9,0,0,0,2,0,2,0,0,0], [0,2,0,2,0,0,0,0,2,0,2,0,0,0,0,2,0,2,0,0,0,0,0,8,0,0,0,0,0,2,0], [2,0,8,0,0,0,0,0,0,0,4,2,5,2,5,2,2,4,2,5,2,5,2,2,4,2,5,2,5,2], [2,4,2,5,2,5,8,2,4,2,5,8,4,0,0,0,0,4,0,4,0,0,0,0,4,0,4,0,0,0,0], [4,0,4,0,0,0,0,4,0,4,0,0,0,4,5,4,5,3,8,5,4,5,4,5,3,3,5,8,4,0,4], [0,0,0,0,4,0,4,0,0,0,8,4,0,4,0,0,0,0,4,0,8,0,0,0,0,4,8,4,0,0], [0,0,4,0,4,0,0,0,0,4,0,4,0,8,0,0,4,0,4,0,0,0,0,4,0,4,0,0,0,0,4], [0,4,0,0,0,0,4,0,4,0,0,0,0,4,0,4,0,0,0,0,4,0,4,0,0,0,0,5,2,5], [2,2,4,8,5,2,5,2,2,4,2,5,2,5,2,2,4,2,5,4,5,2,2,4,4,5,4,5,2,2,4] ); @number_days = (31,28,31,30,31,30,31,31,30,31,30,31); @frase=( "Можно все", "Все, кроме мяса", "Только растительная пища с постным маслом и рыба", "Только растительная пища с постным маслом", "Только растительная пища без постного масла", "Только холодная растительная пища, неподогретое питье", "Воздержание от пищи весь день, до звезды", "Воздержание от пищи в течение суток", "Праздник", "Пасхальная неделя" ); print "Content-type: text/html\n\n"; #Беру дату @tm=localtime($tml=time); ($sec,$min,$hour,$mday,$m,$year,$wenday,$yday,$isdst) = localtime(time); $year = $year +1900; if($in != null){ $m=$in; } print "\n"; print "\n"; print "\n"; for ($i=0; $i< 7; $i++){ print"\n"; } print ""; # Вычисление сдвига для этого месяца $shift=(localtime($tml-=$tm[0]+60*($tm[1]+$tm[2]*60+$tm[3]*1440)))[6]; # print "$shift
\n"; # Начинаю рисовать календарь $counter = 0; print "\n"; for ($i=0; $i < $shift; $i++){ print "\n"; $counter++; } for ($i=1; $i <= $number_days[$m]; $i++){ print "\n"; $counter++; if ($counter==7) { print "\n"; $counter=0; } } if ($counter != 7 && $counter != 0) { for ($j=$counter; $j < 7; $j++){ print "\n"; } } print "\n"; print "\n"; print "
$month[$m] $year года
$wday[$i]
 \n"; print "
$i  
\n"; # Здесь идет алгоритм выбора картинки print "".$frase[$number[$m][$i-1]].""; print "
 
\n";

<< возврат


Мы даем россиянам здоровье
 © Интер-Cоя, 1999-2001