Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

cgi upload

By: lehieuit on Apr 19th, 2012  |  syntax: Perl  |  size: 0.57 KB  |  hits: 34  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. #!/usr/bin/perl
  2. use CGI::Pretty qw/:standard/;
  3. print header();
  4. print start_html();
  5. if(param('file'))
  6. {
  7.         my $fh=upload('file');
  8.         my $filename=param('name');
  9.         if(-f "$filename" || !$fh)
  10.         {
  11.                 print "error";
  12.         }
  13.         else
  14.         {
  15.                 open(OFILE,">$filename");
  16.                 while(<$fh>)
  17.                 {
  18.                         print OFILE $_;
  19.                 }
  20.                 close(OFILE);
  21.                 print "uploaded $filename";
  22.         }
  23. }
  24. print br(),h3('upload form'),start_multipart_form({-name=>'upload',-method=>'POST'}),textfield({-name=>'name'}),filefield({-name=>'file',-size=>50}),br(),submit({-name=>'submit',-value=>'Submit'}),end_form(),end_html();
create a new version of this paste RAW Paste Data