-
- system "convert", "-geometry", $maxsize."x".$maxsize,$_,$result;
+ my $scale;
+ if ($w > $h) {
+ $scale = $maxsize*1.0/$w;
+ } else {
+ $scale = $maxsize*1.0/$h;
+ }
+ my $ftype= $info->{file_media_type};
+ die "Unknown image type for $name: $ftype\n"
+ if (not exists $decoders{$ftype});
+ my $decoder=$decoders{$ftype};
+ system "$decoder \"$name\" | pnmscale -xscale ". $scale . " -yscale " .
+ "$scale |cjpeg > $result";