File upload problem

[Stelian Iancu]

Hello!

I have a simple form with a file upload field. Then, I want to save the
uploaded file into a directory. So here it the code:

#!/usr/bin/perl

use strict;
usw warnings;
use CGI;

my $q = new CGI;
my $filename = $q->upload('fisier');

my $buffer;

open (OUTFILE, ">>/test/$filename");
while (read($filename,$buffer,16384)) {
        print OUTFILE $buffer;
}

In the end, it will allow users to upload only .zip files and I tried
with a sample zip file. The file is not copied correctly. Can you tell
me where the problem is?

Thanks!
-- 
Regards,
Stelian I.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]