|
|
|
@ -103,7 +103,7 @@ sub save { |
|
|
|
# make thumb |
|
|
|
# make thumb |
|
|
|
my ($th_w, $th_h) = ($conf->{thumbs_size} =~ m/(\d+)x(\d+)/oi); |
|
|
|
my ($th_w, $th_h) = ($conf->{thumbs_size} =~ m/(\d+)x(\d+)/oi); |
|
|
|
my $thumb = $image->scale(xpixels => $th_w, ypixels => $th_h, type => 'min'); |
|
|
|
my $thumb = $image->scale(xpixels => $th_w, ypixels => $th_h, type => 'min'); |
|
|
|
my $path = $self->_file_path("${time}_th", $conf->{thumbs_ext}, 'fullpath'); |
|
|
|
my $path = $self->_file_path("${time}_tn", $conf->{thumbs_ext}, 'fullpath'); |
|
|
|
$thumb->write(file => $path) |
|
|
|
$thumb->write(file => $path) |
|
|
|
or die $thumb->errstr; |
|
|
|
or die $thumb->errstr; |
|
|
|
} elsif ($file->{fmime} =~ m{^video/}o) { |
|
|
|
} elsif ($file->{fmime} =~ m{^video/}o) { |
|
|
|
|
