#!/usr/bin/perl
#=========================================================================
# CSEE Course Database Processor
#
# File: courses.cgi
# Author(s): Hank Burton (WHB), Literati Information Technology
#
# This script reads the CSEE courses database file created by the
# DB_Manager application and processes the database for the courses
# that have sites related to the current class offerings.
#
# Parameters: -- none --
#
# 05-76-98 (WHB) : created
#=========================================================================

#=========================================================================
# OutputClasses
#
# Displays a list of courses w/current course links.
#
# Parameters:
#  0 : set of courses to display -- cs, cpe, or ee
#  1 : title of course group to display; HTML formatting allowed
#
# 05-07-98 (WHB): created
#=========================================================================
sub OutputClasses {
  print "<TD WIDTH=200 ALIGN=CENTER><H3><FONT FACE=\"ARIAL\">$_[1]</FONT></H3>";

  open COURSES, "grep $_[0] ../DB_Manager/Data_files/courses.data |";
  COURSES: while ( <COURSES> ) {
    ($xCourse, $xSyllabus, $xCurrent) = split /\|/, $_;

    $_ = $xCourse;
    if ( "$xCurrent" ne "" and /$_[0]/i ) {
      print "<A HREF=\"$xCurrent\">" . uc $xCourse . "</A><BR>";
      }

    last COURSES if $isMatch;
    }
  close COURSES;

  print "</TD>";
}

#=========================================================================

$|=1;

require("../cgi-bin/cgi-lib.pl") || die "require cgi-lib.pl died";
require("../cgi-bin/csee-lib.pl") || die "require csee-lib.pl died";
require("../cgi-bin/ls-lib.pl") || die "require ls-lib.pl died";

&CheckCGIExecute;

#
# Process CGI Parameters -------------------------------------------------
#
&ReadParse(*in);

#
# Begin CGI Output -------------------------------------------------------
#
&litBeginHTMLOutput;
&DisplayFile("../common/header.html");

print <<EOT;
<TABLE WIDTH=600 ALIGN=CENTER>
  <TR VALIGN=TOP>
    <TD COLSPAN=3 WIDTH=600>
      <P>
        The courses listed below have WWW areas for the current or recent
        semester course offerings. Not all courses may be listed. If there
        is a course missing from this list or if a link is invalid,
        <A HREF="mailto:webmaster\@csee.wvu.edu">notify the site administrator</A>
        for any changes.
      </P>
      <HR WIDTH=300 ALIGN=center SIZE=1>
    </TD>
  </TR>
  <TR VALIGN=TOP>
EOT

#
# Read and Search the Courses Database -----------------------------------
#
&OutputClasses("cpe", "Computer<BR>Engineering");
&OutputClasses("cs", "Computer<BR>Science");
&OutputClasses("ee", "Electrical<BR>Engineering");

#
# Finish CGI Output -------------------------------------------------------
#
print <<EOT;
    </TR>
  </TABLE>
EOT

&DisplayFile("../common/footer.html");

1; # exit program