Thanks - I�ll try it and send response.
I�ve read all readme-files and the build-in manual but I did�nt find
something about that I have to use instance()...
----- Original Message -----
From: "Issac Goldstand" <[EMAIL PROTECTED]>
To: "Sven" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, July 22, 2003 3:21 PM
Subject: Re: Apache::UploadMeter
> 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
>
>
