- $r->content_type(Sesse::pr0n::Common::get_mimetype_from_filename($uri));
- $r->sendfile(Sesse::pr0n::Common::get_base($r) . 'files/' . $uri);
- return Apache2::Const::OK;
+ my $fname = $Sesse::pr0n::Config::image_base . 'files/' . $uri;
+ my (undef, undef, undef, undef, undef, undef, undef, $size, undef, $mtime) = stat($fname)
+ or error($r, "stat of $fname: $!");
+
+ my $res = Plack::Response->new(200);
+ $res->content_type(Sesse::pr0n::Common::get_mimetype_from_filename($uri));
+ $res->content_length($size);
+ Sesse::pr0n::Common::set_last_modified($res, $mtime);
+
+ #if((my $rc = $r->meets_conditions) != Apache2::Const::OK) {
+ # return $rc;
+ #}
+
+ $res->content(IO::File::WithPath->new($Sesse::pr0n::Config::image_base . 'files/' . $uri));
+ return $res;