modify links and who commands for cccluster

diff --git a/cmd/links.pl b/cmd/links.pl
index ed4082ff72a4e61af5df563a58c3181cb5a64752..a118bf2fc3698481fc9f251e3f177dc7974eb0c7 100644 (file)
--- a/cmd/links.pl
+++ b/cmd/links.pl
@@ -55,6 +55,7 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
        $sort = "AR-C" if $dxchan->is_arcluster;
        $sort = "AK1A" if $dxchan->is_ak1a;
        $sort = "RBN " if $dxchan->is_rbn;
+       $sort = "CCCL" if $dxchan->is_ccluster;
        my $ipaddr;
 
        my $addr = $dxchan->hostname;

diff --git a/cmd/who.pl b/cmd/who.pl
index 4371b08d3ed3e28afbf162129eaabc11e2afb65b..a00f7e5d5336fad3040c8fc28fdf5f002188f0aa 100644 (file)
--- a/cmd/who.pl
+++ b/cmd/who.pl
@@ -24,6 +24,7 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
                $sort = "DXNT" if $dxchan->is_dxnet;\r
                $sort = "AR-C" if $dxchan->is_arcluster;\r
                $sort = "AK1A" if $dxchan->is_ak1a;\r
+               $sort = "CCCL" if $dxchan->is_ccluser;\r
        } else {\r
                $sort = "LOCL" if $dxchan->conn->isa('IntMsg');\r
                $sort = "WEB " if $dxchan->is_web;\r