a nominially working aranea with DX commands converted

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

diff --git a/cmd/show/connect.pl b/cmd/show/connect.pl
index 98211ddfd31b3dc9d6560fb8d0fa1d8119d703f1..23b2620bac196f7beebad99057cd4b1c18d942f7 100644 (file)
--- a/cmd/show/connect.pl
+++ b/cmd/show/connect.pl
@@ -18,8 +18,9 @@ foreach my $call (sort keys %Msg::conns) {
        my $c = $call;
        my $addr;
        
-       if ($c =~ /^Server\s+(\S+)$/) {
+       if ($c =~ /^Server\s+(.*)$/) {
                $addr = $1;
+               $addr =~ s/\s+using.*$//;
                $c = "Server";
        } else {
                $addr = "$r->{peerhost}/$r->{peerport}";