#!/usr/sww/bin/perl
require "sched-parse.pl";
use User::pwent;
use CGI qw/:standard/;
my $TA_NAME = param("ta");
my $WHOAMI = getpwuid($<)->name;
my ($MASTER) = $WHOAMI =~ /^([^\-]*)/;
my $MASTER_DIR = getpwnam($MASTER)->dir;
my $SCHED_FILE ="$MASTER_DIR/groups/group-sched/$TA_NAME-sched.txt";
# first parse the existing groups file
my @sched;
readSched(\@sched, $SCHED_FILE);
# write out the page.
print "Content-type: text/html\n\n";
print qq|
Design Review Signup: $TA_NAME\'s Sections
Design Review Signup: $TA_NAME\'s Sections
Directions: talk to your group members and choose from one of the following
available times to hold a design review with your TA. Then click on an open slot
to schedule your review. Please use only one slot.
Each meeting will last for 20 minutes. The design meeting locations for each TA
are listed here.
If you need to reschedule your slot, email $TA_NAME and he will update the schedule.
|;
# print out the schedule
printSched(\@sched, $TA_NAME);
print qq|
|;