#!/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/</</g;
$in{'paperfile'} =~ s/>/>/g;
# Now produce the result: an HTML page...
print &PrintHeader;
print &HtmlTop("Term Score");
print <<EOT;
EOT
print &HtmlBot;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>