Use progressive JPEG for larger images -- not because it makes them load so much

prettier (hopefully the precaching will take that anyhow), but because we gain
about 4% file size for free.

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index d0bafe648af346c7def363b87ce0f92ae2c0dfb9..4014bb56661e13e5635d0abef7fe0b20486b337f 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -362,7 +362,12 @@ sub ensure_cached {
                        # Strip EXIF tags etc.
                        $cimg->Strip();
 
                        # Strip EXIF tags etc.
                        $cimg->Strip();
 

-                       $err = $cimg->write(filename=>$cachename, quality=>$quality);
+                       if (($nwidth >= 640 && $nheight >= 480) ||
+                           ($nwidth >= 480 && $nheight >= 640)) {
+                               $err = $cimg->write(filename=>$cachename, quality=>$quality, interlace=>'Plane');
+                       } else {
+                               $err = $cimg->write(filename=>$cachename, quality=>$quality);
+                       }

 
                        undef $cimg;
 
 
                        undef $cimg;