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

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: