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     ! 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: