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

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.41 by root, Mon Sep 10 22:16:20 2001 UTC vs.
Revision 1.43 by root, Wed Sep 12 20:29:43 2001 UTC

 read_mimetypes;
 sub new {
    my $class = shift;
+   my $fh = shift;
    my $peername = shift;
-   my $fh = shift;
    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;
 sub response {
    my ($self, $code, $msg, $hdr, $content) = @_;
    my $res = "HTTP/1.1 $code $msg\015\012";
-   $self->{h}{connection} ||= $hdr->{Connection};
+   $self->{h}{connection} = "close" if $hdr->{Connection} =~ /close/;
    $res .= "Date: $HTTP_NOW\015\012";
    while (my ($h, $v) = each %$hdr) {
       $res .= "$h: $v\015\012"
       if (defined $host) {
          $self->{server_port} = $host =~ s/:([0-9]+)$// ? $1 : 80;
       } else {
          ($self->{server_port}, $host)
-            = unpack_sockaddr_in $self->{fh}->getsockname
+            = unpack_sockaddr_in $self->{fh}->sockname
                or $self->err(500, "unable to get socket name");
          $host = inet_ntoa $host;
       }
       $self->{server_name} = $host;

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