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