InZomnia
Programmer
- Dec 29, 2005
- 19
Hmm, I made a script two years ago, but now it doesn't work.
It's the line:
$image->Read("./test.jpg");
...It will not read anything, instead i get a "500 Internal Server Error". If i ### that line i don't get that 500 error.
So now I can't open any files in any of my IM scripts.
Any ideas will help!
Thanks!!!
It's the line:
$image->Read("./test.jpg");
...It will not read anything, instead i get a "500 Internal Server Error". If i ### that line i don't get that 500 error.
So now I can't open any files in any of my IM scripts.
Code:
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
use Image::Magick;
my $image = Image::Magick->new;
$image->Read("./test.jpg");
$width = $image->Get('columns');
$height = $image->Get('rows');
print "$width x $height";
undef($image);
Any ideas will help!
Thanks!!!