Zembower, Kevin wrote:
> open(TMP_FILE, ">$tmp_file_name") or die "Can't open temp upload file
> $tmp_file_name\n";
>
Do you want binmode() here? I see you'll use BINARY below.
> my $fh = $query->upload('Material_File');
> while (<$fh>) {
> print TMP_FILE;
> } # while there's more file to upload and store
>
And if they are binary uploads, do you want to save them in different
place ?
> close(TMP_FILE);
>
> $msg->attach(Type =>'BINARY',
> Data =>$tmp_file_name,
> Filename =>'AttachedFile',
> Disposition =>'attachment');
>
> #Don't erase; for debugging.
> #unlink($tmp_file_name);
or die $! # if unlink not success ?
> } # If there's a file uploaded
>
>
HTH,
Mug
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
