#!/usr/bin/perl #-------------------------------------------------------------------------- #-------------------------------------------------------------------------- require ("./cgi-lib.pl") || die "can\'t require cgi-lib.pl: $!";; require ("./common.pl") || die "can\'t require common.pl: $!";; @days=(0,31,28,31,30,31,30,31,31,30,31,30,31 ); #-------------------------------------------------------------------------- #-------------------------------------------------------------------------- sub header { local($mo,$yr)=@_; print "Content-type: text/html January 1999 "; } # header #-------------------------------------------------------------------------- # Print the content of the FORM #-------------------------------------------------------------------------- sub form { # print "Function disabled until further notice.\n
"; # print "Please use Day view for details.\n
"; # print "Sorry for inconvenience. This is 1st P1 bug :)\n
"; # return; print "
\n"; @PlanData=&get_plan_data(0,$Month,$Year,none); $found=0; foreach $line ( @PlanData ) { @info=split(/;/,$line); if ( $Row == $info[0] ) { $found=1; last; } } if ( $found == 0 ) { print "Entry not found; please use \"Get Calendar\" to re-sync\n"; } else { print ""; print "$info[4] "; print "$info[1] "; if ( "$info[2]" ne "-" ) { print "From: $info[2] "; print "Length: $info[3] "; } else { print "Day event "; } print "$info[5] "; print ""; print ""; print ""; print " \n" ; } print "\n" ; } # form #-------------------------------------------------------------------------- # Print the Footer #-------------------------------------------------------------------------- sub footer { print <<"END"; END print ""; } # footer #-------------------------------------------------------------------------- # Main Function #-------------------------------------------------------------------------- &ReadParse; $Row=$in{row}; $Month=$in{month}; $Year=$in{year}; &header; &form; &footer;