From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 7 Jan 2022 09:55:45 +0000 (+0000)
Subject: remove ::ffff: at source on connect
X-Git-Url: http://dxcluster.org/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};
 }