#775918 libhttp-server-simple-perl: Cannot determine client ip-address when using ssl in net_server.

Package:
libhttp-server-simple-perl
Source:
libhttp-server-simple-perl
Submitter:
Klaas Nijkes
Date:
2017-11-10 13:39:05 UTC
Severity:
normal
#775918#5
Date:
2015-01-21 14:23:03 UTC
From:
To:
Dear Maintainer,

I use an overriden version of the module Net::Server::Fork as net_server.
This module uses the ssl-protocol in combination with IPv4.
In the function handle_request it is now not possible to determine the ip-address and tcp-port of the client.

This problem can be fixed with the following patch on /usr/share/perl5/HTTP/Server/Simple.pm:

@@ -386,6 +387,12 @@
         my $remote_sockaddr = getpeername( $self->stdio_handle );
         my ( $iport, $iaddr ) = $remote_sockaddr ? sockaddr_in($remote_sockaddr) : (undef,undef);
         my $peeraddr = $iaddr ? ( inet_ntoa($iaddr) || "127.0.0.1" ) : '127.0.0.1';
+        my $server = shift;
+        if ($server && $server->{'server'}) {
+            $self->{'server'} = $server->{'server'};
+            $peeraddr = $self->{'server'}->{'peeraddr'} if ($self->{'server'}->{'peeraddr'});
+            $iport = $self->{'server'}->{'peerport'} if ($self->{'server'}->{'peerport'});
+        }

         my ( $method, $request_uri, $proto ) = $self->parse_request;


The changes make it possible to use the peeraddr and peerport from
Net::Server, which are passed to the process_request function since version
2.000.