Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: cgi File Upload, No data pased through?

by PodMaster (Abbot)
on Oct 01, 2002 at 23:37 UTC ( #202150=note: print w/replies, xml ) Need Help??


in reply to cgi File Upload, No data pased through?

CGI Help Guide
Web Programming with Perl

Don't mix the OO and function oriented interface of CGI for no good reason.

This is an example I use often to test cgi upload scripts.

#!/usr/bin/perl -w #!C:/perl/bin/perl -w use CGI::Carp qw( fatalsToBrowser ); use CGI; #use CGI 2.7; # the minimum acceptable version is 2.7 in my book use strict; my $query = new CGI; print $query->header, $query->h1("VERSIOn $CGI::VERSION"), $query->h1("POST MAX $CGI::POST_MAX "), $query->h1(" DISABLE_UPLOADS $CGI::DISABLE_UPLOADS "), $query->start_multipart_form(); print $query->filefield(-name=>'uploaded_file', -default=>'starting value', -size=>50, -maxlength=>80); print $query->submit(),$query->end_form(); print $query->hr(); if($query->upload('uploaded_file')) { my $fh = $query->upload('uploaded_file'); print "<PRE>Filename: $fh \n"; print "Size: ".(-s $fh)."\n\n"; print while <$fh>; # idiomatic print "</pre>"; }
If this does not work or reveal why not (old/broken version of CGI.pm, disabled uploads ...), then you need to check your web server configuration (disabled/limited at server level).

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://202150]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2022-08-11 00:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?