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?