From 0bca43685143e42a93bdcdaa9e34e115b22552e9 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 7 Jan 2022 09:55:45 +0000 Subject: [PATCH] remove ::ffff: at source on connect --- Changes | 2 ++ perl/Msg.pm | 1 + 2 files changed, 3 insertions(+) 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}; } -- 2.43.0