|
From: James E. M. <jm...@tr...> - 2001-04-08 04:10:45
|
As is always the case, I think I solved my problem.
I copied file_upload.pl from libapreq/eg/perl into my plugin's perl
code, and made it work fine by editing the print commands.
some lingering black magic---I have no idea what $r=shift means, as in:
sub main(){
...
my $r=shift; ## huh?
## is this getting a reference to myself?
my $apr=Apache::Request->new($r); ## doesn't seem to clash with other
## calls to getCurrentForm()
my $upload=$apr->upload; ## works great.
...
}
Sorry about the noise,
james
|