Support JPEG XL, like AVIF.

[pr0n] / perl / Sesse / pr0n / Image.pm

diff --git a/perl/Sesse/pr0n/Image.pm b/perl/Sesse/pr0n/Image.pm
index 13d9ee5e3ae488d6cf7f9393fa589240c34ab0d5..8671b570693e8504fca4c0d83aca04bd03c90e30 100644 (file)
--- a/perl/Sesse/pr0n/Image.pm
+++ b/perl/Sesse/pr0n/Image.pm
@@ -67,7 +67,8 @@ sub handler {
        } else {
                my $accept = $r->header('Accept');
                my $avif_ok = (defined($accept) && $accept =~ /(^|,)image\/avif($|,|;)/);
-               ($fname, $mime_type) = Sesse::pr0n::Common::ensure_cached($r, $avif_ok, $filename, $id, $dbwidth, $dbheight, $xres, $yres);
+               my $jxl_ok = (defined($accept) && $accept =~ /(^|,)image\/jxl($|,|;)/);
+               ($fname, $mime_type) = Sesse::pr0n::Common::ensure_cached($r, $avif_ok, $jxl_ok, $filename, $id, $dbwidth, $dbheight, $xres, $yres);
                $res->header('Vary' => 'Accept');
        }