fix RBN marking in who cmd

diff --git a/Changes b/Changes
index 1264c27535160f1bd31dfb9d65393a103315762e..ca654a6be3a48517517c3cd313337bdfbe406bed 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. Allow overrides (on modern versions of perl) with things in DXVars.pm, such
    $clusterport. This is really only of use for people trying to run more than
    one instance of DXSpider on the same machine.
 1. Allow overrides (on modern versions of perl) with things in DXVars.pm, such
    $clusterport. This is really only of use for people trying to run more than
    one instance of DXSpider on the same machine.

+2. Fix who command to make RBN connections as RBN and not USER.

 02Jan22=======================================================================
 1. Fix dx bug introduced to handle dx by ip <ipaddr> for webclusters.
 2. Remove _add_thingy dbg message from general view.
 02Jan22=======================================================================
 1. Fix dx bug introduced to handle dx by ip <ipaddr> for webclusters.
 2. Remove _add_thingy dbg message from general view.

diff --git a/cmd/who.pl b/cmd/who.pl
index 87f4ee08dd9d098848f273854eddcd0a5058db16..4371b08d3ed3e28afbf162129eaabc11e2afb65b 100644 (file)
--- a/cmd/who.pl
+++ b/cmd/who.pl
@@ -28,6 +28,7 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
                $sort = "LOCL" if $dxchan->conn->isa('IntMsg');\r
                $sort = "WEB " if $dxchan->is_web;\r
                $sort = "EXT " if $dxchan->conn->isa('ExtMsg');\r
                $sort = "LOCL" if $dxchan->conn->isa('IntMsg');\r
                $sort = "WEB " if $dxchan->is_web;\r
                $sort = "EXT " if $dxchan->conn->isa('ExtMsg');\r

+               $type = "RBN " if $dxchan->is_rbn;              # Yes, this is NOT a typo\r

        }\r
        my $name = $dxchan->user->name || " ";\r
        my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%5.2f", $dxchan->pingave) : "     ";\r
        }\r
        my $name = $dxchan->user->name || " ";\r
        my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%5.2f", $dxchan->pingave) : "     ";\r