More weird hacks to get the PNG file size down. GIMP still gets it 25% better
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 26 May 2008 21:05:22 +0000 (23:05 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 26 May 2008 21:05:22 +0000 (23:05 +0200)
since I can actually make it output something indexed, but this will do for now.

perl/Sesse/pr0n/Common.pm

index ae1d3d0ee3bc82307883bbf9e0bf69285eb9cdef..c441d679326494f5cfdfd27e4f52e84e8c206130 100644 (file)
@@ -586,7 +586,7 @@ sub ensure_cached {
                                $height = 1;
                        }
                                
-                       $err = $img->write(filename => $cachename, quality => 99);
+                       $err = $img->write(filename => $cachename, quality => 90, depth => 8);
                        $r->log->info("New infobox cache: $width x $height for $id.jpg");
                        
                        return ($cachename, 'image/png');