#!/usr/bin/perl
# author: Michel Bourget, hacked for plan 1.8 by thomas@bitrot.de
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
require ("./cgi-lib.pl") || die "can\'t require cgi-lib.pl: $!";;
require ("./common.pl") || die "can\'t require common.pl: $!";;
#--------------------------------------------------------------------------
# Print the HTML document
#--------------------------------------------------------------------------
sub form {
print "Content-type: text/html
The Schedule Viewer
";
}
#--------------------------------------------------------------------------
# Main Function
#--------------------------------------------------------------------------
&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}
}
&form;