remove ::ffff: at source on connect

diff --git a/Changes b/Changes
index 0f9fff5f0ad98bb831cb405913c75c9905de70eb..8c8829e3e7c45088072862f7bd19e83f1e50facb 100644 (file)
--- 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 83c82be6e1a70bcb04433187b1df6ca020d3046d..ceace3ca774c62603b22f2ab8577f8907c4af5f4 100644 (file)
--- 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};
 }