I'm trying to write a CGI script to upload a file from a website. I have the
following HTML:
<HTML><HEAD><TITLE>Uploading Files</TITLE></HEAD>
<BODY>
<FORM ACTION="cgi-bin/supload.cgi" METHOD="post" ENCTYPE="multipart/form-data">
Pick a file to upload:
<INPUT TYPE="file" NAME="upload_file" SIZE="100">
<INPUT TYPE="submit">
</FORM>
</BODY>
</HTML>
that refers to the following CGI:
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/
print "Content-type: text/html\n\n";
print $query->filefield('uploaded_file');
$filename = $query->param('uploaded_file');
$fh = $query->upload('uploaded_file');
while (<$fh>) {
print;
}
I am reading the CGI.pm from Lincoln Stein's webpage. But, it's too difficult for me
to follow what I am supposed to do. I just want to be able to load a file from a
local drive while on the web, then, print out the loaded file's content to the web
after it has been through CGI. Am I making sense? Any help would be appreciated. I
would also like help on the very basic idea of what I am trying to accomplish. Thanks.
A
---------------------------------
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search
