File upload fails

[JackTheRussel]

Hi.

I have made perl-mason pages, where I can upload an file (picture). Now, some reason it fails. It just creates an empty filename. I have added this to my code:
use CGI qw standard);


Does someone have clue, why this isn't working?

Here we get our picture:

<div>
<span class="body-field-title">Image:</span>
<input class="text" type=file name="image"/>
</div>

And here we specify veriables:

our ($bytesread, $buffer);
our $num_bytes = 1024;
our $totalbytes;
our $filename = param('image');
our $file = "/tmp/$filename";

#HERE WE CALL save_picture function
&save_picture;

Here is the save_picture function

sub save_picture {
open (OUTFILE, ">", "$file") or die "Couldn't open $file for writing: $!";

while ($bytesread = read($filename, $buffer, $num_bytes)) {
            $totalbytes += $bytesread;
            print OUTFILE $buffer;
        }
        close OUTFILE or die "Couldn't close $file: $!";
	}

Now it creates an empty filename (example pic.gif) to the /tmp folder ?

I just don't figure, why it is not working.

 

[KevinADC]

Your code looks like it should work. So I am not sure what the problem is. Are you using "strict"? That might be the problem.
Try using the upload() function of the CGI module. It's covered in the CGI module documentation.


------------------------------------------
- Kevin, perl coder unexceptional!

 

[JackTheRussel]

Kevin.

I'll think I know what is the problem.

I have only one mason file where the html and mason code are. So I don't have any action field in my form.

How should I work, when everything is in the same code?
Do I still have to have action-field?

 

[KevinADC]

Sorry, I don't know anything about Mason, but I suggest you try adding the action attribute andd see if it helps.

------------------------------------------
- Kevin, perl coder unexceptional!