| … | |
… | |
| 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 | } |
| … | |
… | |
| 298 | my (%hdr, $h, $v); |
298 | my (%hdr, $h, $v); |
| 299 | |
299 | |
| 300 | $hdr{lc $1} .= ",$2" |
300 | $hdr{lc $1} .= ",$2" |
| 301 | while $req =~ /\G |
301 | while $req =~ /\G |
| 302 | ([^:\000-\040]+): |
302 | ([^:\000-\040]+): |
| 303 | [\010\040]* |
303 | [\011\040]* |
| 304 | ((?: [^\015\012]+ | \015\012[\010\040] )*) |
304 | ((?: [^\015\012]+ | \015\012[\011\040] )*) |
| 305 | \015\012 |
305 | \015\012 |
| 306 | /gxc; |
306 | /gxc; |
| 307 | |
307 | |
| 308 | $req =~ /\G\015\012$/ |
308 | $req =~ /\G\015\012$/ |
| 309 | or $self->err(400, "bad request"); |
309 | or $self->err(400, "bad request"); |
