#!/usr/local/bin/perl
# Script for on-line signup for reg-day appointment
print "Content-type: text/html \n\n";
print "";
print "Reg Day Sign up Sheet - Professor Charles Leiserson";
print "";
print "";
print "";
print "Professor Charles Leiserson
";
print "Fall Term 2000
";
print "Registration Day Sign Up Sheet
";
print "September 5, 2000
";
print "
";
print "
";
print "";
print "";
print "
";
open(SCHEDULE, "/c/deacon/WWW/schedule_Leiserson.txt") ||
die "Couldn't open file schedule_Leiserson.txt";
print "CURRENT SCHEDULE
";
print "";
$count=0;
while (){
$appointments[$count]=$_;
$count++;
}
foreach(@appointments){
@junk=split(" ", $_);
if($junk[1] eq ""){
print " | $junk[0] | $junk[1] $junk[2] $junk[3] | | |
\n";
}
else{
print " | $junk[0] | $junk[1] $junk[2] | | |
\n";
}
}
print "
";
close (SCHEDULE);
print " ";
print "
\n\n";