… | |
… | |
225 | } |
225 | } |
226 | $res .= "\015\012"; |
226 | $res .= "\015\012"; |
227 | |
227 | |
228 | $res .= $content if defined $content and $self->{method} ne "HEAD"; |
228 | $res .= $content if defined $content and $self->{method} ne "HEAD"; |
229 | |
229 | |
230 | my $log = (POSIX::strftime "%Y-%m-%d %H:%M:%S", gmtime $NOW). |
230 | my $log = (POSIX::strftime "%Y-%m-%d %H:%M:%S", gmtime $::NOW). |
231 | " $self->{remote_id} \"$self->{uri}\" $code ".$hdr->{"Content-Length"}.$GZ. |
231 | " $self->{remote_id} \"$self->{uri}\" $code ".$hdr->{"Content-Length"}.$GZ. |
232 | " \"$self->{h}{referer}\"\n"; |
232 | " \"$self->{h}{referer}\"\n"; |
233 | |
233 | |
234 | print $accesslog $log if $accesslog; |
234 | print $::accesslog $log if $::accesslog; |
235 | print STDERR $log; |
235 | print STDERR $log; |
236 | |
236 | |
237 | $self->{written} += |
237 | $self->{written} += |
238 | print {$self->{fh}} $res; |
238 | print {$self->{fh}} $res; |
239 | } |
239 | } |