--- Coro/myhttpd/httpd.pl	2002/05/22 00:41:44	1.70
+++ Coro/myhttpd/httpd.pl	2002/07/29 21:41:54	1.71
@@ -234,6 +234,7 @@
    }
 
    $res .= "Date: $HTTP_NOW\015\012";
+   $res .= "Server: $::NAME\015\012";
 
    while (my ($h, $v) = each %$hdr) {
       $res .= "$h: $v\015\012"
@@ -570,6 +571,7 @@
 
    if ($self->{method} eq "GET") {
       $self->{time} = $::NOW;
+      $self->{written} = 0;
 
       my $current = $Coro::current;
 
@@ -595,6 +597,7 @@
             if ($locked ||= $transfer->try($::WAIT_INTERVAL)) {
                $bufsize = $::BUFSIZE;
                $self->{time} = $::NOW;
+               $self->{written} = 0;
             }
          }