#!/usr/local/bin/perl

($course,$section,$cmd) = split(/\,/,$ENV{'QUERY_STRING'});
@cookies = split(/; /,$ENV{'HTTP_COOKIE'});

$testdir = 'c:/www/siteman/client/nyucfp/website/cfp20001';
$livedir = '/usr/local/ns-home/cfpweb';
$basehref = "http://$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}";
$basehref =~ s/cgi\-bin\/[\x00-\xff]+//;
$basehref =~ s/[\/]+$/\//;

$numberofcourses = 0;
foreach $cookie (@cookies) {
  ($temp_course,$temp_section) = split (/=/,$cookie);
  if (($cookie =~ /X\d\d/) || ($cookie =~ /\R\d\d/) || ($cookie =~ /\Y\d\d/)) {
    if ($temp_section > 0) {
      $numberofcourses++;
    }
  }
}

$onemonth = time + 84000;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) = gmtime($onemonth);
$month = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon];
$weekday = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Satruday)[$wday];
$year += 1900;
$exptime = $weekday." ".$mday."-".$month."-".$year." ".$hour.":".$min.":".$sec;

if ($numberofcourses < 5) {
	$setcookies = "Set-Cookie: $course=$section; expires=$exptime; domain=siteman.npil.com; path=/;\n";
	$setcookies .= "Set-Cookie: $course=$section; expires=$exptime; domain=www.scps.nyu.edu; path=/;";
	$out = "<span class=\"name\">Course $course, Section $section has been added to your course selections.</span><p>\n";
	$out .= "<script>\ndocument.location='$basehref/cgi-bin/selections.pl?$cmd';\n</script>\n";
}

else {
	$out = "<span class=\"name\">You have already selected 5 courses. Please <a href=\"$basehref/cgi-bin/selections.pl?$cmd\">view your course selections</a> to remove a course.</span><p>\n";
}


if (open(FILE,"$testdir/Study_Options$cmd.html") || open(FILE,"$livedir/Study_Options$cmd.html")) {
	while ($nextline = <FILE>) {
		$content .= $nextline;
	}
	close FILE;
}
else {die ("Cannot read index file!!!\n");}

$content =~ s/studon\.gif/studoff\.gif/gi;

$titlebase = "<title>NYU Center for Publishing Course Addition<\/title>
<base href=\"$basehref\">
";

$content =~ s/location=\'/location=\'$basehref/g;
$content =~ s/<title>[\x00-\xff]*<\/title>/$titlebase/i;
$content =~ s/(<!--BEGIN_PAGE_TEXT-->)[\x00-\xff]*(<!--END_PAGE_TEXT-->)/$out/;
$content =~ s/<!--BEGIN_NAVIGATION_MENU-->[\x00-\xff]*<!--END_NAVIGATION_MENU-->//;
print "content-type: text/html
$setcookies

$content
";