On Fri, 13 Dec 2002 05:19:08 -0200, [EMAIL PROTECTED] (Andre) wrote:
>Hi
>I know it is not entirely perl, but can anybody esplain me how does i do upload a
>file using a browser (can i use perl to do this)?
>Thanks
Here's a really simple method using CGI::Simple
#######################################################
#!/usr/bin/perl
use warnings;
use strict;
use CGI::Simple;
my $maxsize = 1024 * 100; #max 100K
my $upload_dir='uploads';
my $q = new CGI::Simple;
print $q->header();
if($ENV{CONTENT_LENGTH} > $maxsize){
print "file too large - must be less than $maxsize bytes";
exit;
}
my $files = $q->upload(); # number of files uploaded;
my @files = $q->upload(); # names of all uploaded files
my $filename = $q->param('upload_file'); # filename of uploaded file
my $mime = $q->upload_info($filename,'mime'); # MIME type of
uploaded file
my $size = $q->upload_info($filename,'size'); # size of uploaded
file
# short and sweet upload
my $ok = $q->upload( $q->param('upload_file'),"$upload_dir/$filename");
print "Uploaded ".$q->param('upload_file')." and wrote it OK!\n" if $ok;
print "total files = $files<br>
filenames = @files<br>
filename = $filename<br>
mimetype= $mime<br>
size=$size<br>";
##############################################################
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
