#!/usr/bin/perl
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
require ("./cgi-lib.pl") || die "can\'t require cgi-lib.pl: $!";;
require ("./common.pl") || die "can\'t require common.pl: $!";;
#--------------------------------------------------------------------------
# User-definable variables
#--------------------------------------------------------------------------
$myurl="http:webmonth.cgi";
@month=( "", "January ", "February", "March", "April", "May", "June",
"July", "August", "September", "October", "November", "December" );
&main(@ARGV);
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
sub header {
local($mo,$yr)=@_;
print "Content-type: text/html
January 1999
";
} # header
#--------------------------------------------------------------------------
# Print the content of the FORM
#--------------------------------------------------------------------------
sub form {
print "\n" ;
} # form
#--------------------------------------------------------------------------
# Print the Footer
#--------------------------------------------------------------------------
sub footer {
print <<"END";
END
print "";
} # footer
#--------------------------------------------------------------------------
# Main Function
#--------------------------------------------------------------------------
sub main {
($sec,$min,$hour,$mday,$cur_month,$cur_year)=localtime(time);
$cur_jour=$mday;
$cur_month++;
$cur_year+=1900;
&ReadParse;
if( $in{group} eq "" ) {
$group="none";
}
else {
$group=$in{group};
}
if ( $in{show_private} eq "" ) {
$show_private="no";
}
else {
$show_private=$in{show_private}
}
if ( $in{show_appt} eq "" ) {
$show_appt="no";
}
else {
$show_appt=$in{show_appt};
}
&header;
&form;
&footer;
} # main