Uploading multiple files

[inblosam]

I have a form that I want to upload photos with. I can make it work perfectly with one file, but I want them to be able to add multiple files and when I try that the files get saved but with 0 bytes. (FYI - I am using Mason)

<input type="file" name="file_1">
<input type="file" name="file_2">
<input type="file" name="file_3">

And then to process the submission of the files...

    if ($fileList[0]) {
        my $uploadCnt = 3;
        my $fileCnt = 1;
        for (;$fileCnt<=$uploadCnt;$fileCnt++) {
            my $upfile = $ARGS{"file_$fileCnt"};

            ### this passes the file to the mason component I created 
+to upload files
            my $fileRef = $m->comp("fileUploader.mas",upload_file=>$up
+file);
        }
    }

Whereas with just one file, I just send the file_1 directly to my uploader, like so:

my $fileRef = $m->comp("fileUploader.mas",upload_file=>$file_1);

When I do a Data::Dumper (print Dumper(\$upfile)) it just has the file name in there. Is there a default folder on the server the files are being stored at temporarily that I can just prepend to that file and move it? I am not sure what is happening and what to do to fix it. Any suggestions?

[suaveant]

I realize I am not answering your question here exactly, but this might make your user experience a little better. If you are uploading any number of files I would suggest creating a zip file or tar gzip, whatever, of all the files and uploading them as a single file, and coding your script to extract them.

The main reason I suggest this is that if you want more than a small handful of files going through the html file selection method is a real pain. It's real easy to support on the script end, too. Man, I wish walmart would allow that for their one hour photo uploads.

[TedPride]

Dunno how I'd modify your code to make it work, but I've had success with Jeff Carnahan's File Uploader in the past. It only allows up to 4 files at once, but I'm sure that's easily modified by changing a few variables.

[TedPride]

Now that's thinking outside of the box! ++