oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix thumbnail script with Graphics::Magick, other cleanups

Browse source
This commit is contained in:
Graham Knop 2007-09-06 16:11:39 +00:00
parent 3d43273d58
commit b64102a91f
3 changed files with 27 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/Image.pm
View file

@ -3,21 +3,19 @@ package WebGUI::Image;
use strict;
use WebGUI::Image::Palette;
use Carp qw(croak);
eval 'use Graphics::Magick';
my $graphicsMagickAvailable = ($@) ? 0 : 1;
eval 'use Image::Magick';
my $imageMagickAvailable = ($@) ? 0 : 1;
my $graphicsPackage = '';
if ($imageMagickAvailable) {
$graphicsPackage = "Image::Magick";
}
elsif ($graphicsMagickAvailable) {
$graphicsPackage = "Graphics::Magick";
}
else {
croak "You must have either Graphics::Magick or Image::Magick installed to run WebGUI.\n";
}
my $graphicsPackage;
BEGIN {
if (eval { require Graphics::Magick; 1 }) {
$graphicsPackage = 'Graphics::Magick';
}
elsif (eval { require Graphics::Magick; 1 }) {
$graphicsPackage = 'Graphics::Magick';
}
else {
croak "You must have either Graphics::Magick or Image::Magick installed to run WebGUI.\n";
}
}
=head1 NAME