… | |
… | |
447 | $ims < $self->{stat}[9] |
447 | $ims < $self->{stat}[9] |
448 | or $self->err(304, "not modified"); |
448 | or $self->err(304, "not modified"); |
449 | |
449 | |
450 | if (-r "$path/index.html") { |
450 | if (-r "$path/index.html") { |
451 | # replace directory "size" by index.html filesize |
451 | # replace directory "size" by index.html filesize |
452 | $self->{stat}[7] = (stat ($self->{path} .= "/index.html"))[7]; |
452 | $self->{stat} = [stat ($self->{path} .= "/index.html")]; |
453 | $self->handle_file($queue_index); |
453 | $self->handle_file($queue_index); |
454 | } else { |
454 | } else { |
455 | $self->handle_dir; |
455 | $self->handle_dir; |
456 | } |
456 | } |
457 | } |
457 | } |
… | |
… | |
470 | |
470 | |
471 | $self->response(200, "ok", |
471 | $self->response(200, "ok", |
472 | { |
472 | { |
473 | "Content-Type" => "text/html", |
473 | "Content-Type" => "text/html", |
474 | "Content-Length" => length $idx, |
474 | "Content-Length" => length $idx, |
475 | "Last-Modified" => time2str ((stat _)[9]), |
475 | "Last-Modified" => time2str ($self->{stat}[9]), |
476 | }, |
476 | }, |
477 | $idx); |
477 | $idx); |
478 | } |
478 | } |
479 | |
479 | |
480 | sub handle_file { |
480 | sub handle_file { |