From: Dirk Koopman Date: Fri, 7 Jan 2022 09:55:45 +0000 (+0000) Subject: remove ::ffff: at source on connect X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bca43685143e42a93bdcdaa9e34e115b22552e9;p=spider.git remove ::ffff: at source on connect --- diff --git a/Changes b/Changes index 0f9fff5f..8c8829e3 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +06Jan22======================================================================= +1. Backport various Mojo branch "security" fixes. 12Dec21======================================================================= 1. fix git describe et al AGAIN to cope with (very) old (2009) git versions. 2. Change version strings to include perl version in use. diff --git a/perl/Msg.pm b/perl/Msg.pm index 83c82be6..ceace3ca 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -205,6 +205,7 @@ sub peerhost $conn->{peerhost} ||= 'ax25' if $conn->ax25; $conn->{peerhost} ||= $conn->{sock}->peerhost if $conn->{sock} && $conn->{sock}->isa('IO::Socket::INET'); $conn->{peerhost} ||= 'UNKNOWN'; + $conn->{peerhost} =~ s/^::ffff://; return $conn->{peerhost}; }