added Windows only BPQ interface from John G8BPQ

[spider.git] / cmd / show / connect.pl

diff --git a/cmd/show/connect.pl b/cmd/show/connect.pl
index 77598be4597780e3f87f87dd330373c427d1e0b4..4644d5c9d6bd497dbe79524e410cf7bdeb065126 100644 (file)
--- 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";
        }