Am I missing something?

[williamu]

Hi All,

I have the following code:

 sub SaveAttachment
 {
      my $Success = 0 ;
      my $fh = $CGI->upload("MyPrint") || undef ;
      my $fn = sprintf("%lX.jpg", time()) ;
      my $File = sprintf("%s/%s", UPLOAD_DIR, $fn) ;
      if ($fh)
      {
          $Tmp->param(FileName => $fn) ;
          my ($Bytes, $Buffer) = (0, '') ;
          sysopen(FILE, $File, O_WRONLY | O_CREAT | O_EXCL ) or die "Error : $!\n" ;
          while ($Bytes = read($fh, $Buffer, BUFFER_SIZE))
          {
              print FILE $Buffer ;
          }
          close (FILE) ;
          $Tmp->param(eMail => $File) ;
          open(IMAGE, '<$File') or die "Unable to open $File because: $!\n" ;
          my $FileSize = $Img->Read(file => \*IMAGE) ;
          warn "$FileSize" if "$FileSize" ;
          $Tmp->param(FileSize => $FileSize) ;
          close (IMAGE) ;
          $Success = 1 ;
          }
     return $Success ;
}

Which saves the file as expected however, what it doesn't do is open it again as it dies saying there is "No such file or directory". How can this be when the file is there on the disk?

If this section of the code is commented out the uploaded image appears in the browser as expected, so this only serves to add to the confusion.

I guess I must be missing something obvious but as to what it is I have no idea, can any one help me here?

--
Thanks.

 

[KevinADC]

looks like the single quotes are killing the variable interpolation here:

open(IMAGE, '<$File')

change to double-quotes:

open(IMAGE, "<$File")

 

[audiopro]

What is BUFFER_SIZE?

Keith

http://www.studiosoft.co.uk

 

[kordaff]

Use double quotes

 

[kordaff]

Dang, I was too slow.

 

[williamu]

Hey, now that's an impressive response time. Thanks.
Ok, the " qoutes now works but results in this:

Exception 435: unable to write blob `/tmp/magick-LAe12710': Bad file descriptor.

but there may not be any ImageMagic guys here, is there?

Thanks again.

 

[KevinADC]

audiopro asked:

What is BUFFER_SIZE?

you should maybe put a number there, like 1024.

 

[williamu]

Hi audiopro,

In answer to your question BUFFER_SIZE is a constant defined as 8192. But in this instance is quite redundant as the image is saved to disk as expected.

--

 

[audiopro]

Thanks willamu
It looked like a bare word.

Keith

http://www.studiosoft.co.uk

 

[KevinADC]

thats what I thought too, but I threw in "maybe" in case it was a constant.

 

[kordaff]

I think I've only used Image::FileSize to get image sizes myself... although I do like the stand alone progs in the Image Magick package =)

Kordaff