log agw port on connection

This commit is contained in:
minima 2005-03-21 15:28:19 +00:00
parent 79d9dda3ba
commit 022b68994a
3 changed files with 9 additions and 2 deletions

View File

@ -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).

View File

@ -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;

View File

@ -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