[ViewVC] Diff of: cvs/Coro/myhttpd/httpd.pl

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.10 by root, Sat Aug 11 16:34:47 2001 UTC vs.
Revision 1.11 by root, Sat Aug 11 19:59:20 2001 UTC

    my $self = bless { fh => $fh }, $class;
    my (undef, $iaddr) = unpack_sockaddr_in $peername
       or $self->err(500, "unable to decode peername");
    $self->{remote_addr} = inet_ntoa $iaddr;
+   $self->{time} = $::NOW;
    # enter ourselves into various lists
    weaken ($conn{$self->{remote_addr}}{$self*1} = $self);
    $self;
    $res .= $content if defined $content and $self->{method} eq "GET";
    print STDERR "$self->{remote_addr} \"$self->{uri}\" $code ".$hdr->{"Content-Length"}." \"$self->{h}{referer}\"\n";#d#
+   $self->{written} +=
-   print {$self->{fh}} $res;
+      print {$self->{fh}} $res;
 }
 sub err {
    my $self = shift;
    my ($code, $msg, $hdr, $content) = @_;
       $h -= $l - 1;
       while ($h > 0) {
          $h -= sysread $fh, $buf, $h > $::BUFSIZE ? $::BUFSIZE : $h;
-         $self->{fh}->syswrite($buf)
+         my $w = $self->{fh}->syswrite($buf)
             or last;
+         $::written += $w;
+         $self->{written} += $w;
       }
    }
    close $fh;
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines