log agw port on connection

diff --git a/Changes b/Changes
index a10b551893fa85a3de1a5ee870492ce16ef91485..c3d1b88e0f7b94a73edf8a6672b77fe9ff784dfa 100644 (file)
--- 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 6eee5d457cc00aca7b0ea6143a96dca280df4d0b..eae67c7237024a85fb8a3b396731b727d39a6a04 100644 (file)
--- 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 a3150ceeb6d2f069e3fbc5d3d5ac194ad01955de..c9afde2b5593dcc3cc196d1107f88c0fdb5a7278 100644 (file)
--- 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