Return to submit-paper.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: $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: