#!/usr/bin/perl # Script for on-line signup for reg-day appointment use CGI qw(:all); # JUST CHANGE THESE #$term = "Spring Term
"; #$date = "Friday, January 31, 2020
"; #$date = "Monday, February 8, 2021
"; $term = "Fall Term
"; #$date = "Monday, August 31, 2020
"; $date = "Tuesday, September 3, 2024
"; print "Content-type: text/html \n\n"; print "Reg Day Sign up Sheet - Jim Glass"; print "\n"; print ""; print ""; print "
"; print "

"; print "Jim Glass
"; print $term; print "Registration Day Sign Up Sheet
"; print $date; print "

"; print "


"; print "
"; print "

Please choose your name from the list:
"; print "

\n"; print "

\n"; print "The current schedule is shown below.
\n"; print "Please choose a time:
\n"; print ""; close (SCHEDULE); print "

"; print "

"; print ""; print ""; print "

"; print "
"; open(SCHEDULE, "schedule.txt") || die "Couldn't open file schedule.txt"; print "
CURRENT SCHEDULE


"; print ""; $count=0; while (){ $appointments[$count]=$_; $count++; } foreach(@appointments){ ($time, $entry) = ( $_ =~ /^\s*(\S+)\s+(\S.*\S)\s+$/ ); if ( $entry =~ /THIS SLOT AVAILABLE/ ) { print "\n"; } else{ print "\n"; } } print "
$time$entry
$time$entry
"; close (SCHEDULE); print "
"; print "
"; print "If you have a problem with this page, please email (glass at MIT dot edu) or telephone (x3-1640)
\n"; print "
"; print " "; print "
\n\n";