| … | |
… | |
| 212 | sub prune_caches { |
212 | sub prune_caches { |
| 213 | prune_cache \%conn; |
213 | prune_cache \%conn; |
| 214 | prune_cache \%uri; |
214 | prune_cache \%uri; |
| 215 | |
215 | |
| 216 | for (keys %blocked) { |
216 | for (keys %blocked) { |
| 217 | delete $blocked{$_} if $blocked{$_}[0] > $::NOW; |
217 | delete $blocked{$_} unless $blocked{$_}[0] > $::NOW; |
| 218 | } |
218 | } |
| 219 | } |
219 | } |
| 220 | |
220 | |
| 221 | Event->timer(interval => 60, cb => \&prune_caches); |
221 | Event->timer(interval => 60, cb => \&prune_caches); |
| 222 | |
222 | |
| … | |
… | |
| 529 | my $self = shift; |
529 | my $self = shift; |
| 530 | my $idx = $self->diridx; |
530 | my $idx = $self->diridx; |
| 531 | |
531 | |
| 532 | $self->response(200, "ok", |
532 | $self->response(200, "ok", |
| 533 | { |
533 | { |
| 534 | "Content-Type" => "text/html", |
534 | "Content-Type" => "text/html; charset=utf-8", |
| 535 | "Content-Length" => length $idx, |
535 | "Content-Length" => length $idx, |
| 536 | "Last-Modified" => time2str ($self->{stat}[9]), |
536 | "Last-Modified" => time2str ($self->{stat}[9]), |
| 537 | }, |
537 | }, |
| 538 | $idx); |
538 | $idx); |
| 539 | } |
539 | } |
| 540 | |
540 | |
| 541 | sub handle_file { |
541 | sub handle_file { |
| 542 | my ($self, $queue, $tbf) = @_; |
542 | my ($self, $queue, $tbf) = @_; |
| 543 | my $length = $self->{stat}[7]; |
543 | my $length = $self->{stat}[7]; |
| 544 | my $hdr = { |
544 | my $hdr = { |
| 545 | "Last-Modified" => time2str ((stat _)[9]), |
545 | "Last-Modified" => time2str ((stat _)[9]), |
|
|
546 | "Accept-Ranges" => "bytes", |
| 546 | }; |
547 | }; |
| 547 | |
548 | |
| 548 | my @code = (200, "ok"); |
549 | my @code = (200, "ok"); |
| 549 | my ($l, $h); |
550 | my ($l, $h); |
| 550 | |
551 | |
