Return to submit-paper.cgi CVS log

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

Annotation of capa/capa51/CapaTools/submit-paper.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: $ret = &ReadParse;
        !            10: &CgiDie("Error in reading and parsing of CGI input") if !defined $ret;
        !            11: &CgiDie("No data uploaded",	"Please enter it in <a href='fup.html'>fup.html</a>.") if !$ret;
        !            12: 
        !            13: $in{'paperfile'} =~ s/</&lt;/g;
        !            14: $in{'paperfile'} =~ s/>/&gt;/g;
        !            15: 
        !            16: # Now produce the result: an HTML page...
        !            17: print &PrintHeader;
        !            18: print &HtmlTop("File Upload Results");
        !            19: print <<EOT;
        !            20: <p>You've uploaded a file.  
        !            21: Your title of the paper were:<br><blockquote>$in{'title'}</blockquote><br><p>The file's full path is:<pre>$in{'paperfile'}</pre>
        !            22: MSG::<blockquote> <pre>$cgi_msg</pre> </blockquote>
        !            23: EOT
        !            24: print &HtmlBot;
        !            25: