I'm getting an error with a mod_perl script I'm working on that says this:

error:

[Tue Jan 13 10:59:17 2004] [error] 25297: ModPerl::Registry: Image::Imlib2 load error: No loader for file format at find.pl line 19.


The script runs fine when it is at the command line, but when I run it from the web browser I get an Internal Server Error.


The code looks like this (don't laugh, I'm really new to perl):


code:


#!/usr/bin/perl -w
#
# Last modificatied on:
# Time-stamp: <2004-01-13 10:54:28 ks>
use strict;
use CGI qw/:standard/;
use Image::Imlib2;

print "Content-type:text/html\n\n";

my $xcoord = param('where.x');
my $ycoord = param('where.y');


print "<p>X is $xcoord</p>"; print "<p>Y is $ycoord</p>";

my $image = Image::Imlib2->load("image.png");
my $cropped_image = $image->crop($xcoord, $ycoord, 50, 50);
$cropped_image->save("image-cropped.png");
print "<img src=\"http://www.hostname.org/image-cropped.png\";>";



Does anyone have any ideas on why I might be getting this error?

Reply via email to