Support JPEG XL, like AVIF.

[pr0n] / perl / make-jxl.pl

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 2db57091ac5c1d498cf698011c8ada58fb654102..0c5b70882d056340eab0dfdaf1d1662dbc321f70 100755 (executable)
--- 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);
        }       
 }