version 1.19, 2004/03/16 23:08:23
|
version 1.20, 2004/07/15 18:06:09
|
Line 54 sub get_image {
|
Line 54 sub get_image {
|
if ($response->content_type !~ m-/(png|jpg|jpeg)$-i) { |
if ($response->content_type !~ m-/(png|jpg|jpeg)$-i) { |
my $conv_image = Image::Magick->new; |
my $conv_image = Image::Magick->new; |
my $current_figure = $conv_image->Read('filename'=>$file); |
my $current_figure = $conv_image->Read('filename'=>$file); |
|
$conv_image->Set('type'=>'TrueColor'); |
$conv_image->Set('magick'=>'png'); |
$conv_image->Set('magick'=>'png'); |
my @blobs=$conv_image->ImageToBlob(); |
my @blobs=$conv_image->ImageToBlob(); |
undef $conv_image; |
undef $conv_image; |
Line 66 sub get_image {
|
Line 67 sub get_image {
|
} elsif ($imgsrc !~ /\.(png|jpg|jpeg)$/i) { |
} elsif ($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('type'=>'TrueColor'); |
$conv_image->Set('magick'=>'png'); |
$conv_image->Set('magick'=>'png'); |
my @blobs=$conv_image->ImageToBlob(); |
my @blobs=$conv_image->ImageToBlob(); |
undef $conv_image; |
undef $conv_image; |