X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2Fmake-jxl.pl;fp=perl%2Fmake-avif.pl;h=0c5b70882d056340eab0dfdaf1d1662dbc321f70;hp=2db57091ac5c1d498cf698011c8ada58fb654102;hb=a2d71665db6bf86f40ae9deb956cfc6463645529;hpb=c7fd47d6b2323d28a5ece7f3019b40224605cb61 diff --git a/perl/make-avif.pl b/perl/make-jxl.pl similarity index 92% rename from perl/make-avif.pl rename to perl/make-jxl.pl index 2db5709..0c5b708 100755 --- a/perl/make-avif.pl +++ b/perl/make-jxl.pl @@ -25,8 +25,8 @@ for my $id (@ARGV) { for my $file (<$base/$id-*-nobox.jpg>) { # TODO: --1--1.jpg, too. my $fname = File::Basename::basename($file); my ($width, $height) = $fname =~ /^$id-(\d+)-(\d+)-nobox\.jpg$/ or die $fname; - (my $avif_file = $file) =~ s/jpg$/avif/; - unless (-r $avif_file) { + (my $jxl_file = $file) =~ s/jpg$/jxl/; + unless (-r $jxl_file) { push @res, ($width, $height); print "$id to $width x $height...\n"; } @@ -40,6 +40,6 @@ for my $id (@ARGV) { $dbwidth = $ref->{'width'}; $dbheight = $ref->{'height'}; - Sesse::pr0n::Common::make_cache({}, $filename, $id, $dbwidth, $dbheight, 'avif', @res); + Sesse::pr0n::Common::make_cache({}, $filename, $id, $dbwidth, $dbheight, 'jxl', @res); } }