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