Could be useful both for cover_images and patronimage.
Or is there a standard way to do this that makes a special script unnecessary? I imagine we want to put things like biblionumber and borrowernumber in the filename, which might make a generic solution har to use.
Here's a very basic POC, just for cover images. Feel free to build on it if you can beat me to it! :-) use Koha::CoverImages; use File::Slurper qw( write_binary ); use Modern::Perl; my $outputdir = '.'; my $covers = Koha::CoverImages->search(); while ( my $cover = $covers->next ) { my $biblionumber = $cover->biblionumber; my $imagenumber = $cover->imagenumber; my $itemnumber = $cover->itemnumber; # Can be NULL my $filename = "$outputdir/biblionumber_$biblionumber" . "_imagenumber_$imagenumber" . "_full.png"; write_binary( $filename, $cover->imagefile ); say "Wrote $filename"; my $thumbnail = "$outputdir/biblionumber_$biblionumber" . "_imagenumber_$imagenumber" . "_thumb.png"; write_binary( $thumbnail, $cover->thumbnail ); say "Wrote $thumbnail"; }