Return to tscore.cgi CVS log

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

Annotation of capa/capa51/CapaTools/tscore.cgi, revision 1.1.1.1

1.1       albertel    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: