Return to tscore.cgi CVS log

Up to [LON-CAPA] / capa / capa51 / CapaTools

Initial revision

    1: #!/usr/local/bin/perl
    2: require "./cgi-lib.pl";
    3: ## TO DO: file with zero length
    4: ##
    5: $cgi_lib'maxdata = 512000; 
    6: $cgi_lib'writefiles = "/tmp";
    7: 
    8: 
    9: ## This cgi is called through a form like 
   10: ## <FORM METHOD="POST"
   11:          ACTION="http://capa2.nscl.msu.edu/capa-bin/tscore.cgi">
   12:         <NAME="CAPAID"> <NAME="CAPAID">
   13: 
   14: 
   15: 
   16: $ret = &ReadParse;
   17: &CgiDie("Error in reading and parsing of CGI input") if !defined $ret;
   18: &CgiDie("No data uploaded",	"Please enter it in <a href='fup.html'>fup.html</a>.") if !$ret;
   19: 
   20: $in{'paperfile'} =~ s/</&lt;/g;
   21: $in{'paperfile'} =~ s/>/&gt;/g;
   22: 
   23: 
   24: 
   25: 
   26: 
   27: 
   28: # Now produce the result: an HTML page...
   29: 
   30: 
   31: print &PrintHeader;
   32: print &HtmlTop("Term Score");
   33: 
   34: 
   35: 
   36: 
   37: 
   38: 
   39: 
   40: 
   41: 
   42: print <<EOT;
   43: 
   44: 
   45: 
   46: 
   47: EOT
   48: print &HtmlBot;
   49: