X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fconnect.pl;h=89aef0c94d272f6529bd7cbba2dc69f8a874df2f;hb=f2c90f82509ae2be33216ebaed3bc9f8ea3f5f80;hp=025c20ea9a29f37c3bdf72a7d6436b059a532e65;hpb=de74820014fc2c49c789ebcbe683bccf23adbfe7;p=spider.git diff --git a/cmd/show/connect.pl b/cmd/show/connect.pl index 025c20ea..89aef0c9 100644 --- a/cmd/show/connect.pl +++ b/cmd/show/connect.pl @@ -3,7 +3,7 @@ # # Copyright (c) 2001 Dirk Koopman G1TLH # -# $Id$ +# # my $self = shift; @@ -23,6 +23,8 @@ foreach my $call (sort keys %Msg::conns) { $c = "Server"; } else { $addr = "AGW Port ($r->{agwport})" if exists $r->{agwport}; + $addr = "BPQ Stream ($r->{bpqstream})" if exists $r->{bpqstream}; + $addr ||= "$r->{peerhost}/$r->{peerport}"; $addr ||= "Unknown"; }