From 022b68994a271efa987d72ef1aff6164a0d96584 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 21 Mar 2005 15:28:19 +0000 Subject: [PATCH] log agw port on connection --- Changes | 2 ++ perl/DXCommandmode.pm | 4 +++- perl/DXProt.pm | 5 ++++- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index a10b5518..c3d1b88e 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +21Mar05======================================================================= +1. log AGW port on connection 16Mar05======================================================================= 1. make the correct correction to the DL entry in wpxloc.raw (left out the 'N' of 'North' in the latitude). diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 6eee5d45..eae67c72 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -87,7 +87,9 @@ sub start my $name = $user->{name}; # log it - my $host = $self->{conn}->{peerhost} || "unknown"; + my $host = $self->{conn}->{peerhost}; + $host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport}; + $host ||= "unknown"; Log('DXCommand', "$call connected from $host"); $self->{name} = $name ? $name : $call; diff --git a/perl/DXProt.pm b/perl/DXProt.pm index a3150cee..c9afde2b 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -249,7 +249,10 @@ sub start my $user = $self->{user}; # log it - my $host = $self->{conn}->{peerhost} || "unknown"; + my $host = $self->{conn}->{peerhost}; + $host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport}; + $host ||= "unknown"; + Log('DXProt', "$call connected from $host"); # remember type of connection -- 2.43.0