#!/usr/bin/perl

#************************************************************
#** Robert W. Arts   **
#** Pikeville College   **
#** 214 Sycamore Street**
#** Pikeville, KY 41501**
#** (606) 437-3417**
#**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/\x37/g;
      $tmp2 =~ s/%38/\x38/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,"106AGRD.txt") || 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, $lab1, $lab2, $lab3, $lab4, $lab5, $lab6, $lab7, $lab8, $lab9, $lab10, $lab11, $total ) = split(/,/,$in_line);
    print "<TD  ALIGN=\x22center\x22>", $code, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab1, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab2, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab3, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab4, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab5, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab6, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab7, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab8, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab9, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab10, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $lab11, "</TD>\n";
    print "<TD  ALIGN=\x22center\x22>", $total, "</TD>\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>Astronomy Lab - Section A - Course Grade Retrieval Form</TITLE></HEAD>\n");
print("<BODY>\n");

&GET_STATE_INFO;

print "<H1>Astronomy Lab - Section A - Current Course Grade Lookup</H1>\n";

print "<P>Enter your personal code number in the box below. \n";
print "<FORM METHOD=POST ACTION=106Agradebook.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>Lab 1 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 2 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 3 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 4 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 5 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 6 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 7 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 8 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 9 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 10 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Lab 11 %</TH>\n";
  print "<TH ALIGN=\x22center\x22>Total %</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");