ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/Coro/myhttpd/httpd.pl
(Generate patch)

Comparing cvsroot/Coro/myhttpd/httpd.pl (file contents):
Revision 1.53 by root, Fri Nov 30 05:14:12 2001 UTC vs.
Revision 1.54 by root, Fri Nov 30 06:03:48 2001 UTC

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 #d# directories change all the time, so X-
476 "X-Last-Modified" => time2str ((stat _)[9]), 475 "Last-Modified" => time2str ((stat _)[9]),
477 }, 476 },
478 $idx); 477 $idx);
479} 478}
480 479
481sub handle_file { 480sub handle_file {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines