remove ::ffff: at source on connect

This commit is contained in:
Dirk Koopman 2022-01-07 09:55:45 +00:00
parent edc4edfd6d
commit 0bca436851
2 changed files with 3 additions and 0 deletions

View File

@ -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.

View File

@ -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};
}