Sven wrote...
[snip]
---------------------------------------------
use Apache ();
use Apache::Request ();
$apr = Apache::Request->new($r);
foreach $parm($apr->param){
print "->".$parm." : ".$apr->param($parm)."\n";
}
print "---------\n";
---------------------------------------------
First of all, use instance() instead of new(). I believe the documentation
for Apache::UploadMeter mentions this.
[snip]
Can someone show me an example of a "upload.pl" where a file is
stored on the server please?
Sure. Here is the response handler for the testbed for Apache::UploadMeter
at http://epoch.beamartyr.net/umtest/form.html
package ApacheUploadMeterTest;
use Apache::Request;
use Apache::Constants qw(OK DECLINED);
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
sub handler {
my $r=shift;
my $q=Apache::Request->instance($r, POST_MAX=>2097152);
# Actually, the above line doesn't work - POST_MAX will be a parameter
to
# Apache::UploadMeter in future releases
local($|)=1;
my $num=0;
print <<"PART1";
Content-Type: text/html
<HTML>
<HEAD>
<TITLE>Apache::UploadMeter Test Module</TITLE>
</HEAD>
<BODY>
<H1>Upload Complete</H1>
PART1
foreach my $upload ($q->upload) {
$num++;
my $name=$upload->name;
my $size=$upload->size;
my $filename=$upload->filename;
my $type=$upload->type;
my $info=Dumper($upload->info);
my $tempname=$upload->tempname;
print <<"EOP"
<UL>
<LI>Upload field: $num</LI>
<LI>Detected upload field: $name</LI>
<LI>Detected filename: $filename ($size bytes)</LI>
<LI>Reported MIME type: $type</LI>
<LI>Spool file: $tempname</LI>
<LI>Other debug info: $info</LI>
</UL>
EOP
}
print "</BODY></HTML>\n";
return OK;
}
1;
Hope this gets you started,
Issac
