From 4a1e9ef57551080432ecfcfcb5d7a924540ee06f Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 8 Jan 2007 21:12:11 +0000
Subject: [PATCH] add pc92 flags to $main::me and $main::routeroot. make sure
 that a PC17 cannot disconnect a local user.

---
 perl/DXProt.pm       | 2 ++
 perl/DXProtHandle.pm | 5 +++++
 perl/cluster.pl      | 2 ++
 3 files changed, 9 insertions(+)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f8b3e08b..98f95033 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -221,6 +221,8 @@ sub init
 	$main::me->{registered} = 1;
 	$main::me->{version} = $main::version;
 	$main::me->{build} = $main::build;
+	$main::me->{do_pc92} = 1;
+	$main::me->{via_pc92} = 1;
 }
 
 #
diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index a91c3ce6..7850db8b 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -558,6 +558,11 @@ sub handle_17
 		}
 	}
 
+	if (DXChannel::get($ucall)) {
+		dbg("PCPROT: trying do disconnect local user, ignored") if isdbg('chanerr');
+		return;
+	}
+
 	# input filter if required and then remove user if present
 	if ($parent) {
 #		return unless $self->in_filter_route($parent);	
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 8cb4dffb..fe881f1e 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -462,6 +462,8 @@ DXProt->init();
 
 # put in a DXCluster node for us here so we can add users and take them away
 $routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($main::me->here)|Route::conf($main::me->conf));
+$routeroot->do_pc92(1);
+$routeroot->via_pc92(1);
 
 # make sure that there is a routing OUTPUT node default file
 #unless (Filter::read_in('route', 'node_default', 0)) {
-- 
2.43.0