Carl Brewer wrote:
sub get_uploaded_image {
my ($name, $max_size, $r) = @_;
use Apache::Upload;
my $req = Apache::Request-new($r);
my $upload = $req-upload($name);
my $upload = $r-upload($name);
print STDERR $upload-filename();
}
They're pretty crude, but hash_post does what I need (any suggestions
for improvemend gladly accepted!). I'm working on the
get_uploaded_image() at the moment (as you can see, it doesn't do
anything yet!)
I've declared $r in my calling script, and I'm not sure if I
need to declare it again in the subroutines?
The calling script looks like this :
my $r = Apache-request;
$r-content_type(text/html);
use lib qw(/home/benfab/lib);
use BF;
use Template;
use Data::Dumper;
use strict;
.
.
.
my %posted_data = BF::hash_post($r);
my $upload = BF::get_uploaded_image(small_image,
$BF::small_image_size, $r);
If I change my subroutine to this :
sub get_uploaded_image {
my ($name, $max_size, $r) = @_;
use Apache::Upload;
my $req = Apache::Request-new($r);
my $upload = $req-upload($name);
print STDERR $upload-filename();
}
It starts to work, but I don't understand why I need to declare $req
again here? I want to keep my form parsing image stuff seperate,
as not all my pages will have images to load, am I doing this the
'best' way?
thanks!
Carl
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
