possible fix to #119

www/server.psgi

@@ -15,6 +15,7 @@ use DateTime::Format::HTTP();
 use Encode qw{encode_utf8};
 use CGI::Cookie ();
 use File::Basename();
+use IO::Compress::Deflate();
 
 #Grab our custom routes
 use lib 'lib';
@@ -165,7 +166,7 @@ sub _serve ($path, $streaming=0, $last_fetch=0) {
 
     #TODO Return 304 unchanged for files that haven't changed since the requestor reports they last fetched
     my $mt = (stat($path))[9];
-    #my $sz = (stat(_))[7];
+    my $sz = (stat(_))[7];
     my @gm = gmtime($mt);
     my $now_string = strftime( "%a, %d %b %Y %H:%M:%S GMT", @gm );
     my $code = $mt > $last_fetch ? 200 : 304;
@@ -185,9 +186,13 @@ sub _serve ($path, $streaming=0, $last_fetch=0) {
             }
             close $fh;
             $writer->close;
-        } if $streaming;
+        } if $streaming && $sz > $CHUNK_SIZE;
 
-        return [ $code, \@headers, $fh];
+	#Compress everything less than 1MB
+	my $dfh;
+	IO::Compress::Deflate::deflate( $fh => $$dfh );
+	print $IO::Compress::Deflate::DeflateError if $IO::Compress::Deflate::DeflateError;
+        return [ $code, \@headers, [$dfh]];
     }
     return [ 403, [$ct => $content_types{plain}], ["STAY OUT YOU RED MENACE"]];
 }