|
#!/usr/bin/perl#use strict;use Text::Template;use HTML::Template;use Time::Local;use Astro::Time;use Date::DayOfWeek;##########require '/home/radish/www/lib/stdin.pm';%data = &c::get_stdin;#print 'Content-Type: text/html
';#print 'date: '.$data{'date'}.'
';$_ = $data{'date'};$Year = substr($_, 0, 4);$Month = substr($_, 4, 2);$Day = substr($_, 6, 2);if($Day>31){ $Day=1; $Month++;}if($Month>12){ $Month=1; $Year++;}my $Template_file = '/home/radish/www/htdocs/getalife/events/tpl/cal.tpl';if ($Year > 1900 and $Month >= 1 and $Month <= 12 and $Day >= 1 and $Day <= 31){ $Weekday = (localtime(timelocal(0, 0, 12, $Day, $Month-1, $Year-1900)))[6]+1;}else { ($Day, $Month, $Year, $Weekday) = (localtime)[3..6]; $Month += 1; $Year += 1900; $Weekday += 1;}$tpl = Text::Template->new( source => $Template_file, delimiters => [''],);require '/home/radish/www/htdocs/getalife/events/cgi/calgrid.lib';require '/home/radish/www/htdocs/getalife/events/cgi/dateconv.lib';#print 'Year: $Year ';#print 'Month: $Month ';#print 'Day: $Day ';print 'Content-Type: text/html ';#$output =~ s/ //g;print '
|
||
