Blank images with image::Magick, only one some servers?

[youradds]

Hi. Could anyone shed some light on why this code works ok on some server, but on others it shows a blank image? (i.e everything *but* the text)

Its got me baffled

TIA

# this is the routine we will run when creating 
# an Image::Magick image...
sub gen_Magick {

     # grab stuff we need...
      my ($string,$date) = @_;

     # now we have our 'random' string, and date stuff, lets create the image...
      use Image::Magick;
    
      my $image = Image::Magick->new(); 
      print $image->Set( size => "110x50");         
      print $image->ReadImage('xc:white');     
      print $image->Colorize( fill => $BackgroundColor ); 
      print $image->Border( width => 5, height => 5, fill => $BorderColor );     

      # only do these things if the user has decided to...
      if ($DoRaise) {
        print $image->Raise( width => 5, height => 5, raise => 'True' ); 
      }

      # only do these things if the user has decided to...
      if ($DoWave) {
        print $image->Wave( amplitude => 5, wavelength => 30 );   
      }

     # decide a random font to use...
      my @fonts = ('Charter','Arial');
      my @number= (0..2);
      my $rand  = int(rand scalar(@number));
      my $font = $fonts[$rand]; #"Charter"; 
  
     # annotate the image, so we have our string they need to enter...
      $image->Annotate(
        text     => $string,
        fill     => $TextColor, 
        x        => 15,
        y        => 30, 
        pointsize=> 15, 
        font     => $font);
  

     # setup some paths/urls etc...
      my $path = $CFG->{build_root_path} . "/AddImages/" . $date . ".gif";
      my $url  = $CFG->{build_root_url};
 
      print $image->Write($path);
      undef $image;    
  
     # pass stuff back into our templates....
      $IN->param( SessionDate => $date );
      $IN->param( ImageURL => "$url/AddImages/$date.gif" );

}

1;

Cheers

Andy

 

[EdPorts]

Give me some more info, what are the differences in these servers? Do they all have the same version of perl, and image magick? Are they all using the same setuids and gids?

Nick

 

[youradds]

I wouldn't be able to say any of that, as I'm not a perl guru

Cheers

Andy

 

[EdPorts]

Well, do this.

Check the versions of perl and imagemagick.

Imagemagick has its own subset of command line manipulations, although I can't recall any of the commands. I'm sure using the switch -v will give you the version information.

perl -v

Will give you the PERL version.

My guess is that the libraries are not completely installed with imagemagick, as it has a lot of dependencies.

Talk to your server administrators and have them take a look, imagemagick CAN be tricky to install.

 

[youradds]

Managed to track it down to this line;

>
print $image->Set(size=>'110x50') || die &error($! . __LINE__);
<

That is line 14, in the full routine below;

# this is the routine we will run when creating 
# an Image::Magick image...
sub gen_Magick {

     # grab stuff we need...
      my ($string,$date) = @_;

     # now we have our 'random' string, and date stuff, lets create the image...
      use Image::Magick;
    
      my $image = Image::Magick->new(); 
      print $image->Set(size=>'110x50') || die &error($! . __LINE__);
      print $image->ReadImage('xc:white') || die &error($! . __LINE__);     
      print $image->Colorize( fill => $BackgroundColor ) || die &error($! . __LINE__); 
      print $image->Border( width => 5, height => 5, fill => $BorderColor ) || die &error($! . __LINE__);     

      # only do these things if the user has decided to...
      if ($DoRaise) {
        print $image->Raise( width => 5, height => 5, raise => 'True' ) || die &error($! . __LINE__); 
      }

      # only do these things if the user has decided to...
      if ($DoWave) {
        print $image->Wave( amplitude => 5, wavelength => 30 ) || die &error($! . __LINE__);   
      }

     # decide a random font to use...
      my @fonts = ('Charter','Arial');
      my @number= (0..2);
      my $rand  = int(rand scalar(@number));
      my $font = $fonts[$rand]; #"Charter"; 
  
     # annotate the image, so we have our string they need to enter...
      print $image->Annotate(
        text     => $string,
        fill     => $TextColor, 
        x        => 15,
        y        => 30, 
        pointsize=> 15, 
        font     => $font) || die &error($! . __LINE__);
  

     # setup some paths/urls etc...
      my $path = $CFG->{build_root_path} . "/AddImages/" . $date . ".gif";
      my $url  = $CFG->{build_root_url};
 
      print $image->Write($path) || die &error($! . __LINE__);
      undef $image;    
  
     # pass stuff back into our templates....
      $IN->param( SessionDate => $date );
      $IN->param( ImageURL => "$url/AddImages/$date.gif" );

}

sub error {

  my $error = $_[0];

  print $IN->header();
  print "An error occured. It was: $error";
  exit;

}

1;

Running;

perl -v gives me;

----------------------------------------------------------

[gossamer@roger home]$ perl -v

This is perl, v5.8.1 built for i686-linux

Copyright 1987-2003, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at

http://www.perl.com/,

the Perl Home Page.

----------------------------------------------------------

Image::Magick's version.h file contains;

----------------------------------------------------------
#define MagickLibVersion 0x557
#define MagickLibVersionText &quot;5.5.7&quot;
#define MagickLibVersionNumber 5,5,7,2
----------------------------------------------------------

That any help to anyone?

TIA

Andy