From 4a1e9ef57551080432ecfcfcb5d7a924540ee06f Mon Sep 17 00:00:00 2001 From: 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