| … | |
… | |
| 221 | $self->{server_port} = $self->{h}{host} =~ s/:([0-9]+)$// ? $1 : 80; |
221 | $self->{server_port} = $self->{h}{host} =~ s/:([0-9]+)$// ? $1 : 80; |
| 222 | |
222 | |
| 223 | weaken ($uri{$self->{uri}}{$self*1} = $self); |
223 | weaken ($uri{$self->{uri}}{$self*1} = $self); |
| 224 | |
224 | |
| 225 | $self->map_uri; |
225 | $self->map_uri; |
| 226 | |
|
|
| 227 | Coro::Event::do_timer(after => 5); |
|
|
| 228 | |
|
|
| 229 | $self->respond; |
226 | $self->respond; |
| 230 | #} |
227 | #} |
| 231 | } |
228 | } |
| 232 | |
229 | |
| 233 | # uri => path mapping |
230 | # uri => path mapping |
| … | |
… | |
| 406 | } |
403 | } |
| 407 | |
404 | |
| 408 | $h -= $l - 1; |
405 | $h -= $l - 1; |
| 409 | |
406 | |
| 410 | while ($h > 0) { |
407 | while ($h > 0) { |
| 411 | $h -= sysread $fh, $buf, $h > 16384 ? 16384 : $h; |
408 | $h -= sysread $fh, $buf, $h > $::BUFSIZE ? $::BUFSIZE : $h; |
| 412 | print {$self->{fh}} $buf |
409 | $self->{fh}->syswrite($buf) |
| 413 | or last; |
410 | or last; |
| 414 | cede; |
|
|
| 415 | } |
411 | } |
| 416 | } |
412 | } |
| 417 | |
413 | |
| 418 | close $fh; |
414 | close $fh; |
| 419 | } |
415 | } |
