version 1.4, 2002/12/16 14:41:15
|
version 1.5, 2003/01/23 18:26:10
|
Line 39 use GD;
|
Line 39 use GD;
|
sub get_image { |
sub get_image { |
my ($imgsrc,$set_trans)=@_; |
my ($imgsrc,$set_trans)=@_; |
my $image; |
my $image; |
if ($imgsrc !~ /\.(png|jpg|jpeg)$/) { |
if ($imgsrc !~ /\.(png|jpg|jpeg)$/i) { |
my $conv_image = Image::Magick->new; |
my $conv_image = Image::Magick->new; |
my $current_figure = $conv_image->Read('filename'=>$imgsrc); |
my $current_figure = $conv_image->Read('filename'=>$imgsrc); |
$conv_image->Set('magick'=>'png'); |
$conv_image->Set('magick'=>'png'); |