#!/usr/local/bin/perl
require "./cgi-lib.pl";
## TO DO: file with zero length
##
$cgi_lib'maxdata = 512000; 
$cgi_lib'writefiles = "/tmp";


## This cgi is called through a form like 
## <FORM METHOD="POST"
         ACTION="http://capa2.nscl.msu.edu/capa-bin/tscore.cgi">
        <NAME="CAPAID"> <NAME="CAPAID">



$ret = &ReadParse;
&CgiDie("Error in reading and parsing of CGI input") if !defined $ret;
&CgiDie("No data uploaded",	"Please enter it in <a href='fup.html'>fup.html</a>.") if !$ret;

$in{'paperfile'} =~ s/</&lt;/g;
$in{'paperfile'} =~ s/>/&gt;/g;






# Now produce the result: an HTML page...


print &PrintHeader;
print &HtmlTop("Term Score");









print <<EOT;




EOT
print &HtmlBot;