"Ken Burcham" <[EMAIL PROTECTED]> writes:
[...]
> foreach my $key (keys %{$uploads})
> {
> warn "Uploader found $key";
>
> my $upload = $uploads->{$key};
>
> warn "Found $upload->filename";
>
> }
[...]
> But nothing else as if my foreach finds nothing... What am I
> missing? :)
No clue at the moment- foreach(keys %$uploads) should loop once
for the upload file. I'll look into that problem also.
[...]
> warn "There was a problem uploading: $uploadfile" unless $upload-
> >link($uploadfile);
>
> Am I on the right track with this? It fails... In another
> thread (http://www.gossamer-
> threads.com/archive/mod_perl_C1/modperl_F7/File_uploads_using_Apa
> che:%3Brequest_in_mod_perl2_P101676), you mention 3 possibilities
> as to why it could fail and it implicates a temp directory...
Yes, your problem with link() is likely the temp dir location.
That problem is resolved in current cvs, and with the patch I
posted on that thread.
>
> I'm expecting it to write to that file. The $upload_dir exists,
> but the file obviously doesn't because I'm trying to upload it...
>
> Do I need to ->bb and then write it?
No, link() will do it for you; use current cvs or apply the patch.
--
Joe Schaefer
--
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
