From ca5baf12f22e041cb14af595254af4ae88d82ae0 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 18 Jan 2023 15:45:09 +0000 Subject: [PATCH] fix missing IP addresses on spots and PC92 A records --- Changes | 4 ++++ perl/DXChannel.pm | 2 ++ perl/RBN.pm | 6 +++--- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index a0785510..44fe04ab 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,7 @@ +18Jan23======================================================================= +1. Make sure than *every* channel has an IP address. Thank you (I think) Kin + for pointing out that PC92 A records were not going out with IP addresses. + I'm guessing that other things (like spots) had a similar problem. 15Jan23======================================================================= 1. Fix strange errors for carp on missing route_*_cache files on startup. 14Jan23======================================================================= diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 8b1792cd..56b96faa 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -185,6 +185,8 @@ sub alloc } $self->{inqueue} = []; + $self->{hostname} = $self->{conn}->peerhost if $conn; + $count++; dbg("DXChannel $self->{call} created ($count)") if isdbg('chan'); bless $self, $pkg; diff --git a/perl/RBN.pm b/perl/RBN.pm index e0d096b9..e844b6d6 100644 --- a/perl/RBN.pm +++ b/perl/RBN.pm @@ -172,9 +172,9 @@ sub start my $name = $user->{name}; # log it - my $host = $self->{conn}->peerhost; - $host ||= "unknown"; - $self->{hostname} = $host; + unless ($self->{hostname}) { + $self->{hostname} = $self->{conn}->peerhost || 'unknown'; + } $self->{name} = $name ? $name : $call; $self->state('prompt'); # a bit of room for further expansion, passwords etc -- 2.43.0