image::Magick and images generated by script

jonnyfolk has asked for the wisdom of the Perl Monks concerning the following question:

I need to generate on the fly thumbnails from online sources, and have a script which does this perfectly. I have recently been asked to apply this to images from a particular source and (unsurprisingly) the script breaks!

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print "Content-type: text/html\n\n";  
 
  use Image::Magick;
  my($image, $x);
  $image = Image::Magick->new;
  $x = $image->Read('http://mysite.com/brochure_image.asp?id=242910&pr
+op=mine&nocache=8959');
  warn "$x" if "$x";
  $x = $image->Crop(geometry=>'100x100+100+100');
  warn "$x" if "$x";
  $x = $image->Write('x.png');
  warn "$x" if "$x";
[download]

Can anybody help with a suggestion of how to get/rename the image to a more conventional format?

Thank you.

Comment on image::Magick and images generated by script Download Code

Replies are listed 'Best First'.
Re: image::Magick and images generated by script by Anonymous Monk on Oct 16, 2008 at 04:43 UTC
Typical confusion, the magick and DWIMmery doesn't go that far without help :) Here's the regular way to do it `use LWP::Simple qw' mirror getstore '; getstore($url, $file) mirror($url, $file) $image->Read($file); ...` [download] this may not work due to your webserver config (creating sockets)	[reply] [d/l]
Re^2: image::Magick and images generated by script by jonnyfolk (Vicar) on Oct 16, 2008 at 04:57 UTC
That worked very well for me - thank you very much!	[reply]