From 4764874266d882a70e2c7ec798965eb340759eb8 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 29 Jan 2025 16:13:05 +0000 Subject: [PATCH] modify links and who commands for cccluster --- cmd/links.pl | 1 + cmd/who.pl | 1 + 2 files changed, 2 insertions(+) diff --git a/cmd/links.pl b/cmd/links.pl index ed4082ff..a118bf2f 100644 --- 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 4371b08d..a00f7e5d 100644 --- 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; $sort = "AR-C" if $dxchan->is_arcluster; $sort = "AK1A" if $dxchan->is_ak1a; + $sort = "CCCL" if $dxchan->is_ccluser; } else { $sort = "LOCL" if $dxchan->conn->isa('IntMsg'); $sort = "WEB " if $dxchan->is_web; -- 2.43.0