| … | |
… | |
| 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 | } |
