From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 29 Jan 2025 16:13:05 +0000 (+0000)
Subject: modify links and who commands for cccluster
X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4764874266d882a70e2c7ec798965eb340759eb8;p=spider.git

modify links and who commands for cccluster
---

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;