From cfc6706dda6ece0676cc7e83659c7737e7100606 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 29 Jan 2025 16:23:01 +0000
Subject: [PATCH] rearrange PC18 local config and Pc9x flags

---
 perl/DXProtHandle.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 22f0d376..5998d393 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -971,6 +971,20 @@ sub handle_18
 		}
 	}
 
+	# for incoming CC Clusters go straight to state 'normal', otherwise bang out.
+	# In future this may well cause a disconnection
+	unless ($self->outbound) {
+		if ($self->is_ccluster) {
+			$self->state('normal');
+			$self->{lastping} = 0;
+			$self->route_pc92a($main::mycall, undef, $main::routeroot, Route::Node::get($self->{call}));
+		} else {
+			dbg("PC18 on startup an incoming connection from $self->{call} ignored as iappropriate");
+			return;
+		}
+	}
+	
+
 	# first clear out any nodes on this dxchannel
 	my @rout = $parent->del_nodes;
 	$self->route_pc21($origin, $line, @rout, $parent) if @rout;
-- 
2.43.0