From 022b68994a271efa987d72ef1aff6164a0d96584 Mon Sep 17 00:00:00 2001
From: minima <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.34.1