More weird hacks to get the PNG file size down. GIMP still gets it 25% better

since I can actually make it output something indexed, but this will do for now.

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index ae1d3d0ee3bc82307883bbf9e0bf69285eb9cdef..c441d679326494f5cfdfd27e4f52e84e8c206130 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -586,7 +586,7 @@ sub ensure_cached {
                                $height = 1;
                        }
                                
                                $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');
                        $r->log->info("New infobox cache: $width x $height for $id.jpg");
                        
                        return ($cachename, 'image/png');