Re: File Upload problems

[Alexander Farber (EED)]

cbell wrote:
> Everytime I try to upload a file, the browser will
> stall a couple of times, and the file ends up on the server as a zero
> byte file.  

How about:

> ################# Upload Procedure
> my $buffer;

  my $inputfile = upload ('uploaded_file');

  open (OUTFILE,">$ENV{DOCUMENT_ROOT}/images/test.gif") 
     or die "Can not write to file because of $!";

> binmode OUTFILE;
> binmode $inputfile;
> while (read($inputfile,$buffer,1024))
>     {
>         print OUTFILE $buffer;
>     } ## end while

  close OUTFILE;