log agw port on connection

[spider.git] / perl / DXProt.pm

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