X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fconnect.pl;h=4644d5c9d6bd497dbe79524e410cf7bdeb065126;hb=a90885c5c10b837b05ef1ebf718fd88e428a3c91;hp=77598be4597780e3f87f87dd330373c427d1e0b4;hpb=e5c28b46a0f70c78747672091a8edd749aa8488c;p=spider.git diff --git a/cmd/show/connect.pl b/cmd/show/connect.pl index 77598be4..4644d5c9 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"; }