| my $dst = sprintf("%s/error_img-%s%s.jpeg", $conf->{path}{cache}, $wh, $size); | my $dst = sprintf("%s/error_img-%s%s.jpeg", $conf->{path}{cache}, $wh, $size); | ||||
| if ( ! -r $dst ) { | if ( ! -r $dst ) { | ||||
| system(sprintf("convert %s -resize %s%s %s", | |||||
| my $cmd = sprintf("convert %s -resize %s%s %s", | |||||
| $src, | $src, | ||||
| $wh eq 'h' ? 'x' : '', | $wh eq 'h' ? 'x' : '', | ||||
| $size, | $size, | ||||
| $dst)); | |||||
| $dst); | |||||
| print STDERR "IMG: $cmd\n"; | |||||
| system($cmd); | |||||
| } | } | ||||
| } | } |