Log requests to filehandler

lib/Trog/FileHandler.pm

@@ -12,6 +12,7 @@ use Plack::MIME;
 use IO::Compress::Gzip;
 use Time::HiRes qw{tv_interval};
 
+use Trog::Log qw{:all};
 use Trog::Vars;
 
 #TODO consider integrating libfile
@@ -87,6 +88,8 @@ sub serve ( $path, $start, $streaming, $ranges, $last_fetch = 0, $deflate = 0 )
         print $IO::Compress::Gzip::GzipError if $IO::Compress::Gzip::GzipError;
         push( @headers, "Content-Length" => length($dfh) );
 
+        INFO("GET 200 $path");
+
         # Append server-timing headers
         my $tot = tv_interval($start) * 1000;
         push( @headers, 'Server-Timing' => "file;dur=$tot" );
@@ -94,6 +97,7 @@ sub serve ( $path, $start, $streaming, $ranges, $last_fetch = 0, $deflate = 0 )
         return [ $code, \@headers, [$dfh] ];
     }
 
+    INFO("GET 403 $path");
     return [ 403, [ $ct => $Trog::Vars::content_types{text} ], ["STAY OUT YOU RED MENACE"] ];
 }