#! /dcs/bin/perl
#
# this perl script makes the signup sheet.


use strict;
use CGI;

$|=1;

#-------------- globals---------- STARTS ------------------
my $progName="signup.pl";
my $query=new CGI;
my $g_debug=0;

my $g_title="Sign-up for the Final Presentation (3/22/02)";

#
# time slot info
#


my @times = (
  'time	'.
	"8:00am!8:15am!8:30am!8:45am!9:00am!9:15am!9:30am!9:45am  ",
  'time	'.
	"10:00am!10:15am!10:30am!10:45am!11:00am!11:15am  ",
  'time	'.
	"13:00pm!13:15pm!13:30pm!13:45pm!14:00pm!14:15pm!14:30pm!14:45pm  ",
#  'time	'.
#  "1:30pm!2:30pm!3:30pm  ",
);


#-------------- globals----------  ENDS  ------------------

my $debugPrefix = "";

my $rosterDB = "roster.db";	# name and student ID
my $scheduleDB = "schedule.db";	# groups and time slots.
my $groupDB   = "group.db";	# definition of groups

my @students=();
my @teams=();
my %sInfo = ();	# multiply indexed by $id, 'name' or 'email'
my %schedule=(); # maps date!hour!min to team string.

&readRoster;
&readGroups;
&readSchedule;

print $query->header;
&printHTMLHeader();

# decide what to do based on the input


if ($query->param("login")) {
 	&printLoginPage();
} elsif ($query->param("new")) {
	&processNewPage();
} elsif ($query->param("debug")) {
	# &printRoster(@students);
	&printGroups();
} elsif ($query->param("register")) {
	&registerTeam();
} elsif ($query->param("signup")) {
	&signUp();
} else {
	&printDefaultPage();
}

&printHTMLTrailer();

sub printHTMLTrailer {
	my $e3 = "http://e3.uci.edu";
	print << "EOF";
<hr>
<address>Back to <a href="$e3/02w/15303/">ECE 145</a> homepage
</address>
<table cellspacing="0" cellpadding="0" border="0" width="100%">
<tr height="20">
<td align="center" height="20"><font size="2"><b>[
  <a href="$e3/">EEE Home</a>
| <a href="http://www.uci.edu/">UCI Home</a>
| <a href="$e3/search/">Site Search</a>
| <a href="$e3/help/">Help</a> ] </b></font></td>
</tr>
<tr height="20">
<td height="20"><font size="1"><i>Links on these pages to commercial sites
do not represent endorsement by the University of California or its affiliates.
See <a href="http://www.abs.uci.edu/depts/mailrec/uci-ppm/pols/800-16.html">UCI
Administrative Policies &amp; Procedures Section 800-16</a> for the
World Wide Web Publishing Policy</i></font></td>
</tr>
</table>
</body></html>
EOF
;
}

# called to login as a user.  make sure the ID is correct.
# then print a version of the schedule that can be edited.
sub printLoginPage {
	$_ = $query->param("sid");
	s/\s//g;
	my $sid = $_;
	if (!defined($sInfo{$sid,'name'})) {
		&alertHeading("Invalid login");
		print << "EOF";
<pre>
$sid
</pre>
<p>Please try again:</p>
EOF
;
		&printLoginForm;
		&printHeading("Team registration");
		&printTeamForm;
		return;
	}
	if (!defined($sInfo{$sid,'team'})) {
		&alertHeading("Unknown team");
		print << "EOF";
<p>$sInfo{$sid,'name'}: You must register your team before
you can schedule a time slot.</p>
EOF
;
		&printHeading("Team registration");
		&printTeamForm;
		&printHeading("User login");
		&printLoginForm;
		return;
	}
	# print the current info:
	my $team = $sInfo{$sid,'team'};
	&printTeamInfo($team);
	# print the schedule in an editable form.
	&printCurrentSchedule($team);
}

sub printTeamInfo {
	my ($team) = @_;
	print "<p>Your team:</p>\n<ol>\n";
	for (split(/,/, $team)) {
		print "<li>$sInfo{$_,'name'}";
	}
	print "</ol>\n";
	if (defined($sInfo{$team,'schedule'})) {
		print "<p>is scheduled for $sInfo{$team,'schedule'}</p>\n";
		&printHeading("Click to reschedule:");
	} else {
		&printHeading("Pick a time slot:");
	}
}


# this is called when they submit member names and ID's
# need to make sure they are not already signed up, and that they are
# all valid students.

sub processNewPage {
	my @good = (); # list of good sid's
	my @bad = ();  # list of bad sid's
	for (1..3) {
		my $sid  = $query->param("sid$_");
		# get rid of blank spaces
		$_ = $sid;
		s/\s+//g;
		$sid = $_;
		if ($sInfo{$sid,'name'}) {
			push(@good, $sid);
		} elsif ($sid =~ /\S+/) { # at least a nonblank
			push(@bad, $sid);
		}
	}
	if (@bad) {
		&printRoster(@good) if (@good);
		my $plural=(@bad == 1)? "" : "s";
		&alertHeading("Invalid student ID$plural");
		print << "EOF";
<pre>
EOF
;
		for (@bad) { print "$_\n"; }
		print << "EOF";
</pre>
<p>Please check your ID$plural and try again.</p>
EOF
;
		&printTeamForm;
		return 0;
	}
	if (!@good) { # no valid one entered
		print << "EOF";
<p>No valid team member information submitted. Please try again:</p>
EOF
;
		&printTeamForm;
		return 0;
	}
	# check to make sure the team members are not already
	# on other teams.
	print << "EOF";
EOF
;
	my $repeatCount =0;
	for (@good) {
		if (defined($sInfo{$_,'team'})) {
			alertHeading("Duplicate sign up");
			$repeatCount++;
			print << "EOF";
<p><form name="login" action="$progName" method="post">
   $sInfo{$_,'name'} already signed up for a team!
   <input type="hidden" name="sid" value="$_">
   <input type="submit" name="login" value="view/edit schedule">
   </form></p>
EOF
;
		}
	}
	if ($repeatCount) {
		printHeading("Login as another user:");
		&printLoginForm;
		printHeading("Team registration:");
		&printTeamForm;
		return 0;
	}
	&printHeading("Team members:");
	print << "EOF";
<form name="confirmNew" action="$progName" method="post">
<ol>
EOF
;
	my $i = 0;
	for (@good) {
		$i++;
		print << "EOF";
<li>$sInfo{$_,'name'} <input type="hidden" name="sid$i" value="$_">
EOF
;
	}
	print << "EOF";
</ol>
EOF
;
	if ($query->param('register')) {
		return join(",", @good);
	}
	print << "EOF";
<p>If this information is correct, register your team now.</p>
<ul>
<input type="submit" name="register">
</ul>
</form><hr>
<p>If this information is not correct, please try again:</p>
EOF
;
	&printTeamForm;
	return 0;
} # processNewPage


# write this to the group database file.  however, this could be stale
# when submitted, so it is good to check the teams again.
sub registerTeam {
	unless (open (GBF, ">>$debugPrefix$groupDB")) {
		&printError("Warning: Could not write to group file");
		return;
	}
	my $team=&processNewPage();
	return if (!$team);
	# write it to the file
	print GBF "$team\n";
	close(GBF);
	&printHeading("Team Registration was successful.");
	print << "EOF";
<p>Your team may now sign up for one of the following grading slots:</p>
EOF
;
	&printCurrentSchedule($team);
}

# end of program.

sub printDefaultPage {
	&printHeading($g_title);
	&printCurrentSchedule;
	&printHeading("New Sign-up");
	print << "EOF";
<p>If you have not signed up before, register your team first before
you pick a time slot:</p>
EOF
;
	&printTeamForm;
	&printHeading("Login to Edit/View schedule");
	print << "EOF";
<p>Enter one team member's student ID and login here </p>
EOF
;
	&printLoginForm;
	print << "EOF";
<ul>
<li>to sign up for a slot for your team, or
<li>to reschedule an existing slot.
</ul>
<p>Anyone on your team can make changes for the whole team.</p>
EOF
;
} # printDefaultPage

# <form name="debug" action="$progName" method="post">
# <input type="submit" name="debug" value="debug">


sub printLoginForm {
	print << "EOF";
<ul>
<form name="login" action="$progName" method="post">
<input type="password" name="sid" size="8">
<input type="submit" name="login" value="login">
</form>
</ul>
EOF
;
}

sub printTeamForm {
	print << "EOF";
<p><form name="new" action="$progName" method="post">
<ul>
<table border="4" cellpadding="0" cellspacing="2">
<tr><th>member</th><th>student ID</th></tr>
<tr><td><div align="right">1</div></td>
	<td><input type="password" name="sid1" size="8"></td>
</tr>
<tr><td><div align="right">2</div></td>
	<td><input type="password" name="sid2" size="8"></td>
</tr>
<tr><td><div align="right">3</div></td>
	<td><input type="password" name="sid3" size="8"></td>
</tr>
</table>
<input type="submit" name="new" value="submit info"></p>
</form>
</ul>
EOF
;
}

# print the time slots.
# if the caller passes a team, then we want to not only highlight it
# but also make available slots clickable.


sub printCurrentSchedule 
{
  my ($team) = @_;
print << "EOF";
<table border="0">
EOF
;
  for (@times) {
    my ($day, $appointment) = split(/\t/);
    print << "EOF";
<td valign="top"><table border="4">
    <tr><th nowrap>$day</th><th>status</th></tr>
EOF
;    
    for (split(/!/, $appointment)) 
    {
      my $set = defined($sInfo{$team,'schedule'}) ? "change" : "signup";
      my $slot = "$day $_";
      my $evt = $schedule{$slot};
      my $bg = $evt ? " bgcolor=\"#888888\"" : "";
      if ($team) 
      {
        if ($team eq $evt) 
        {
          $bg = " bgcolor=\"#FFFF88\"";
          $evt = "your team";
        } else 
        { # make a button
          $evt = $evt ? "<center><i>taken</i></center>" : << "EOF";
<form name="s" action="$progName" method="post">
<input type="hidden" name="team" value="$team">
<input type="hidden" name="slot" value="$slot">
<input type="submit" name="signup" value="$set">
</form>
EOF
;
        }
      } else 
      {
        $evt = $evt ? "<i>taken</i>" : "<font color=\"#007777\">free</font>"; 
      }
      print << "EOF";
    <tr><td>$_</td><td $bg><p><center>$evt</center></p></td></tr>
EOF
;
    }
print << "EOF";
</tr></table></td>
EOF
;
  }
print << "EOF";
</table>
<hr>
EOF
;
}


# called to sign up for team at a given slot.
sub signUp {
	my $slot = $query->param("slot");
	my $team = $query->param("team");
	# need to make sure the target slot is still available.
	if (defined($schedule{$slot})) {
		if ($schedule{$slot} eq $team) {
			# it is us.
			&printHeading("Schedule reloaded.");
		} else {
			# otherwise, it is not us!
			&alertHeading("Time Slot was taken!");
			print << "EOF";
<p>The time slot you wanted ($slot) has been taken by another group
since you last loaded this page, and it is no longer available.
Please pick another slot.</p>
EOF
;
		}
	} else {
		if (defined($sInfo{$team,'schedule'})) {
			# we have an existing slot.
			# clear it to make it available
			undef($schedule{$sInfo{$team,'schedule'}});
		}
		$sInfo{$team,'schedule'} = $slot;
		$schedule{$slot} = $team;
		# for now, just echo it
		if (!open (SBF, ">>$debugPrefix$scheduleDB")) {
			&printError("Warning: Could not write to schedule file");
			print "<p>Please try again later.</p>";
		} else {
			print SBF "$slot\t$team\n";
			&printHeading("Schedule submitted successfully.");
		}
	}
	# in all cases, print out the new schedule.
	&printTeamInfo($team);
	&printCurrentSchedule($team);
}


sub printHeading {
	my ($t)=@_;
	print << "EOF";
<font color="#666699"><h2>$t</h2></font>
EOF
;
}

sub alertHeading {
	my ($t)=@_;
	print << "EOF";
<font color="#ff6666"><h2>$t</h2></font>
EOF
;
}

sub printHTMLHeader {
    print $query->start_html(
            -title=>"$g_title",
            #-script=>$JSCRIPT,
	    -bgcolor=>"#ffffff"
    #-link=>"#ffff00", -vlink=>"#00ffff", -alink=>"#ffff00", -text=>"#000000"
	);
	print << "EOF";
<center>
<h3>ENGRECE 145</h3>
<h2>Senior Design Project</h2>
<p>Course Number: ENGRECE 145, Quarter: 02w, Course Code: 15303</p>
<h4><i>
<table border="4" cellpadding="0" cellspacing="2">
<tr>
<th>Instructors:</th>
<td><a href="http://www.ece.uci.edu/~chou/">P. Chou</a> <i>(<a href="mailto:phchou\@uci.edu">PHCHOU\@uci.edu</a>) </i></td>
</tr>
</table>
</i></h4>
</center>
EOF
;
}

##------
# printError() - print error message
##------
sub printError
{
    my $em=shift;
    print<<EOF;
<center>
    <hr noshade size=1 width="80%">
        <table border=0 bgcolor="#000000" cellpadding=0 cellspacing=0>
        <tr>
            <td>
                <table border=0 width="100%" cellpadding=5 cellspacing=1>
                    <tr">
                        <td bgcolor="#ffefd5" width="100%">
                        
                        <font color="#ff0000"><b>Error -</b></font>
                        $em</td>
                    </tr>
                </table>
            </td>
        </tr>
            
        </table>
</center>
EOF
;
}

# debugging - this is the simpler printGroups
sub simplePrintGroups {
	print << "EOF";
	<table><tr><th>1</th><th>2</th><th>3</th></tr>
EOF
;
	for(@teams) {
		print "<tr>";
		for (split(/,/)) {
			print "<td>$sInfo{$_,'name'}</td>";
		}
		print "</tr>\n";
	}
	print << "EOF";
</table>
EOF
;
}

# debugging - this is the nicer printGroups
sub printGroups {
		print << "EOF";
<table border="0"><tr>
EOF
;		
	for (@times) {
	  my ($day, $appointment) = split(/\t/);
	  for (split(/!/, $appointment)) {
	        my $slot = "$day $_";
	        next if (!defined($schedule{$slot}));
	print << "EOF";
	<tr><td>$slot</td>
EOF
;
		for (split(/,/,$schedule{$slot})) {
			print "<td>$sInfo{$_,'name'}</td>";
		}
		print "</tr>\n";
           }
	}
	print << "EOF";
</table>
EOF
;
}

# read from the group file.  each line has a tab-separate list of ID's
sub readGroups {
	unless (open (GBF, "$debugPrefix$groupDB")) {
		&printError("Warning: Could not open group file");
		return;
	}
	my $lineNo=0;
	while (<GBF>) {
		$lineNo++;
		if (!/\S+/) { next; }
		chomp;
		my $teamMembers = $_;
		push(@teams, $teamMembers);
		my @team = split(/,/);
		# sanity check: make sure these are valid
		for (@team) {
			if (!defined($sInfo{$_,'name'})) {
				# make sure every one is known
				&printError("line $lineNo: unknown $_ found");
			} elsif (defined($sInfo{$_,'team'})) {
				# make sure they're not already on another team
				&printError("$sInfo{$_,'name'} ($_) repeated");
			} else {
				$sInfo{$_,'team'} = $teamMembers;
			}
		}
	}
}

# read from the roster file. it has student ID, name, and email
sub readRoster {
	unless (open(RBF, "$debugPrefix$rosterDB")) {
		&printError("Warning: Could not open roster file");
		return;
	}
	while (<RBF>) {
		if (!/\S+/) { next; }
		chomp;
		my ($sid, $name, $email) = split(/\t/);
		push(@students, $sid);
		$sInfo{$sid,'name'} = $name;
		$sInfo{$sid,'email'} = $email;
	}
}

# read from the schedule file. it has date and team.
sub readSchedule {
	unless (open(SDF, "$debugPrefix$scheduleDB")) {
		&printError("Warning: Could not open schedule file");
		return;
	}
	while (<SDF>) {
		if (!/\S+/) { next; }
		chomp;
		my ($date, $team) = split(/\t/);
		# assume log file structure: overwrite if already defined
		if (defined($sInfo{$team,'schedule'})) {
			# free up that time slot
			undef($schedule{$sInfo{$team,'schedule'}});
		}
		# overwrite or define for the first time
		$sInfo{$team,'schedule'} = $date;
		$schedule{$date} = $team;
	}
}

# debug only
sub printRoster {
	print << "EOF";
<table border="2"><tr><th>sID</th><th>name</th><th>email</th>
EOF
;
	for (@_) {
		print << "EOF";
<tr><td>$_</td><td>$sInfo{$_,'name'}</td><td>$sInfo{$_,'email'}</td></tr>
EOF
;
	}
	print "</table>\n";
}