Koha » Koha Contributions

This script managed to shrink size of cover_images to about third of what it originally was.

Requirements

"convert" command:

apt install imagemagick

#!/usr/bin/perl

use Modern::Perl;
use GD;
use Koha::CoverImages;

# ADJUST THESE TO YOUR LIKINGS
my $tmp_path = '/tmp';
my $rows=1000;
my $page=1;

while (my $cover_images = Koha::CoverImages->search({ mimetype => 'image/png' }, { rows => $rows, page => $page }) ) {
  foreach my $cover_image ($cover_images->as_list) {
    warn $cover_image->biblionumber;
    my $gd = GD::Image->new($cover_image->imagefile);
    my $filename = $cover_image->imagenumber . '.jpg';
    open my $fh, '>', "$tmp_path/$filename";
    print $fh $gd->jpeg();
    close($fh);
    system("convert $tmp_path/$filename -quality 50% $tmp_path/$filename");
    $gd = GD::Image->new("$tmp_path/$filename");
    $cover_image->set({ imagefile => $gd->png() })->store();
    system("rm $tmp_path/$filename");

    my $gd_thumb = GD::Image->new($cover_image->thumbnail);
    my $filename_thumb = $cover_image->imagenumber . '_thumb.jpg';
    open my $fh_thumb, '>', "$tmp_path/$filename_thumb";
    print $fh_thumb $gd_thumb->jpeg();
    close($fh_thumb);
    system("convert $tmp_path/$filename_thumb -quality 50% $tmp_path/$filename_thumb");
    $gd_thumb = GD::Image->new("$tmp_path/$filename_thumb");
    $cover_image->set({ thumbnail => $gd_thumb->png() })->store();
    system("rm $tmp_path/$filename_thumb");
  }
  $page++;
}