#!/usr/bin/perl

BEGIN {
open (STDERR, ">error.txt");
}

#************************************************************
#** Robert W. Arts, M.S., Ph.D.**
#** Pikeville College**
#** 147 Sycamore Street**
#** Pikeville, KY 41501**
#** (606) 218-5476**
#** Email: rarts@pc.edu**
#************************************************************

# This Perl script is designed to accept a single input (text or numeric)
# from a form, look for them in a database type flat file (comma delimited) , and
# return a HTML page with the match (hopefully only one) in a table.
# The script's design is to allow a student to input a designated code number
# in order to retrieve their updated (defined by the instructor) course
# grades.  This script generates a HTML FORM, with itself as the "ACTION"
# When this script is called it checks the STDIN for data it may
# be passing to itself.  If there is none, it generates the FORM
# plus some help text on how to use it.  If it does see search
# keys in STDIN ($keys) it will again print the FORM, skip the
# help text, open the data file, search for matches, and print
# them as a HTML table.
#******************************************************************

#********************  Subroutines ********************************

#******************************************************************
#******************************************************************
#**************** Get Passed data from form ***********************
#******************************************************************

sub GET_STATE_INFO {
  read(STDIN, $save_string, $ENV{CONTENT_LENGTH});  # Yes- Use it
  @prompts = split(/&/,$save_string);
  foreach (@prompts)
    {
     ($tmp1, $tmp2) = split(/=/,$_);
      $tmp2 =~ s/\x2b/\x20/g;
      $tmp2 =~ s/%2C/\x2c/g;
      $tmp2 =~ s/%28/\x28/g;
      $tmp2 =~ s/%29/\x29/g;
      $tmp2 =~ s/%30/\x30/g;
      $tmp2 =~ s/%31/\x31/g;
      $tmp2 =~ s/%32/\x32/g;
      $tmp2 =~ s/%33/\x33/g;
      $tmp2 =~ s/%34/\x34/g;
      $tmp2 =~ s/%35/\x35/g;
      $tmp2 =~ s/%36/\x36/g;
      $tmp2 =~ s/%37/\x39/g;
      $tmp2 =~ s/%38/\x39/g;
      $tmp2 =~ s/%39/\x39/g;
      $fields{$tmp1}=$tmp2;
    }

  $keys = $fields{'keys'};
  $search_type = $fields{'search_type'};
}
#******************************************************************


#********** Search file for lines with all search keys ************
#******************************************************************
sub SEARCH_FOR_MATCH {
  @search_key = split(/\x20/,$keys);
  open(MYFILE,"102.csv") || print "<H3>Error: Can't open grade book file<\H3>";
  while(<MYFILE>)  # Our Read loop
  {
    $in_line = $_;
    if ($search_type eq "and")
    { $found_flag = "Y"; }
    else
    { $found_flag = "N"; }
    foreach (@search_key) #check for each search key in the file line
    {
      if ( $in_line =~ m/$_/i)       # Is key in the data line ?
    {
      if ($search_type eq "or")   # Yes-
       {
        $found_flag = "Y";             # If its a OR search all we
        last;                          # need id one match
       }
    }
    else                           #No-
    {
    if ($search_type eq "and")       # If its a AND search all we
    {                               # need is one non-match
       $found_flag = "N";
       last;
    }
  }
  } #end of ForEach Loop

 if ( $found_flag eq "Y" )
  {
    $kounter++;
    $in_line = $_;

    # split line in grade book data file into separate fields for printing in our table
    ($code, $datetime, $hw, $ap, $checks, $sum, $note, $test, $ec, $total, $avg, $grade, $hwc, $apc, $checksc, $sumc, $notec, $testc, $totalc) = split(/,/,$in_line);


    print "<TD  ALIGN=\x22center\x22>", $code, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $datetime, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $hw, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $ap, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $checks, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $sum, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $note, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $test, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $ec, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $total, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $avg, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $grade, "</TD>\n";
    print "<TR>\n";

    print "<TH colspan=2 ALIGN=\x22center\x22>Points Possible = </TH>\n";
    print "<TH  ALIGN=\x22center\x22>", $hwc, "</TH>\n";
    print "<TH  ALIGN=\x22center\x22>", $apc, "</TH>\n";
    print "<TH  ALIGN=\x22center\x22>", $checksc, "</TH>\n";
    print "<TH  ALIGN=\x22center\x22>", $sumc, "</TH>\n";
    print "<TH  ALIGN=\x22center\x22>", $notec, "</TH>\n";
    print "<TH  ALIGN=\x22center\x22>", $testc, "</TH>\n";
    print "<TH  ALIGN=\x22center\x22></TH>\n";
    print "<TH  ALIGN=\x22center\x22>", $totalc, "</TH>\n";
    print "<TR>\n";





    $kounter++;

    if ( $kounter > $max_hits) { last; }  # break out of read loop
  }

 }  # end of Read loop
}

#******************************************************************
#****************  Main Routine                 ***********************
#******************************************************************

$max_hits = 1;  #Set the maximum number of matches to be returned
$kounter = 0;     #Intialize counter that counts hits returned
print("Content-Type: text/html\n\n");
print("<HEAD><TITLE>Physics 102 - Course Grade Retrieval Form</TITLE></HEAD>\n");
print("<BODY>\n");
&GET_STATE_INFO;
print "<H1>Physics 102 - Current Course Grade Lookup</H1>\n";
print "<P>Enter your personal code number in the box below. \n";
print "<FORM METHOD=POST ACTION=102.cgi>\n";
print "<INPUT TYPE=\x22text\x22 NAME=\x22keys\x22 SIZE=10 ";
print "  VALUE=\x22", $keys, "\x22>\n";
#print "<BR>Select Search type: \n";
$search_type = "and";
#print "\n<INPUT TYPE=\x22radio\x22 Name=\x22search_type\x22 VALUE=\x22and\x22";
if ($search_type eq "and" || $search_type eq "" ) { print ""; };
#print "> AND";
#print "\n<INPUT TYPE=\x22radio\x22 Name=\x22search_type\x22 VALUE=\x22or\x22";
if ($search_type eq "or" ) { print ""; };
#print "> OR";
print "\n<INPUT TYPE=\x22submit\x22 Name=\x22submit\x22 Value =\x22Get Your Grades\x22>\n";
print "\n</FORM>\n";

if ( $keys eq "")

 {
    print ""; 
 } else {
  print "<HR>";
  print "<B>Your Current Course Grades Are:</B>";
  print "<TABLE BORDER>\n";
  print "<TH ALIGN=\x22center\x22>Code #</TH>\n";
  print "<TH ALIGN=\x22center\x22>Date & Time Updated</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Homework Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Attendance Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Check Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Summary Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Notebook Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Exam Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Extra Credit Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total Points</TH>\n";
  print "<TH ALIGN=\x22center\x22>Current Average Percentage</TH>\n";
  print "<TH ALIGN=\x22center\x22>Current Letter Grade</TH><TR>\n";

  &SEARCH_FOR_MATCH($keys);

  if ($kounter > $max_hits+1 )

  {
   print "<TD  ALIGN=\x22center\x22><B>Limit of one match exceeded.  Please contact instructor.</B></TD>\n";
   print "<TR>\n";
  }
  print "</TABLE>\n";

}

print("</BODY>\n");
print("</HTML>\n");