> やってみましたが、かわりませんでした。(;_;)
set.pl内の以下の記述はどうなっていますか？
# サムネイル作成用
$resize_pl = 'resize.pl';
# サムネイル画像（0:jpg固定/1:画像フォーマットに倣う※resize.plを編集すること！！）
$resize_pl_sw = 1;
上のようになっている場合。
１：サムネイル機能を使わない
２：Jpeg固定にする
３：resize.plを改造する
という選択肢があります。
１の場合は
$resize_pl = 'resize.pl';
を
#$resize_pl = 'resize.pl';
とする。
２の場合は
$resize_pl_sw = 1;
を
$resize_pl_sw = 0;
とする。
３の場合は
resize.plを開き、
sub imgresize{
〜
}
までを以下に差し替える。
sub imgresize{
my ($src,$dst,$w,$h,$jpegq,$del_flag) = @_;
unless($w =~ /^\d+$/ || $h =~ /^\d+$/){ return 0;}
if(eval 'use Image::Magick; 1'){
my $i = Image::Magick->new;
$i->Read($src);
if(@$i >= 2){
my $g = Image::Magick->new;
$g ->Read($src.'[0]');
$i = $g;
}
$i->Scale(width=>$w, height=>$h);
if ($jpegq =~ /^\d+$/) {
$i->Set(quality => $jpegq);
}
$i->Write("$dst");
chmod(0666,$dst);
if($del_flag == 1){
unlink($dst) if(-e $dst && (-s $dst) > (-s $src));
}
}
if(-e $dst){ return 1 ;}
return 0;
}
以上で大丈夫だと思います。たぶん。
|