#!/usr/local/bin/perl
#Interpret hwform and update hwout.html
#by Andy Harris, 8/28/96
require "cgi-lib.pl";
#Get values from form, parse them
&ReadParse (*input);
$date = $input{'TxtDate'};
$section = $input{'TxtSection'};
$page = $input{'TxtPage'};
$problems = $input{'TxtProbs'};
#Print out the results
print &PrintHeader;
print "Homework Assignments
";
print "";
print "";
print "| Date:";
print " | Section";
print " | Page";
print " | Problems";
print " |
";
print "";
print "| $date";
print " | $section";
print " | $page";
print " | $problems";
print " |
";
print "
";
#parse a new string to add to homework page
$temp = "\n";
$temp .= "\n";
$temp .= "| $date\n";
$temp .= " | $section\n";
$temp .= " | $page\n";
$temp .= " | $problems\n";
$temp .= " |
\n";
$temp .= "
\n";
print "The value of temp is:\n $temp";
#Add the value of temp to the end of my homework page
open (FILE, '>> homework.html');
print (FILE $temp);
close (FILE);
print "\n";
print "See the homework page (You may need to reload it to see changes)\n";