diff --git a/mogfiledebug b/mogfiledebug index 658c1b1..63c0ddd 100755 --- a/mogfiledebug +++ b/mogfiledebug @@ -126,6 +126,7 @@ if (@paths) { } print " - MD5 Hash: ", $res->{hash}, "\n"; print " - Length: ", $res->{length}, "\n" if defined $res->{length}; + print " - Last-Modified: ", $res->{mtime}, "\n" if defined $res->{mtime}; print " - HTTP result: ", $res->{res}, "\n"; } } else { @@ -183,6 +184,7 @@ sub fetch_path { $toret{hash} = $ctx->hexdigest; $toret{res} = $res->status_line; + $toret{mtime} = $res->header("Last-Modified"); $toret{path} = $path; return \%toret; }