add pc92 flags to $main::me and $main::routeroot.

make sure that a PC17 cannot disconnect a local user.

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f8b3e08bbfebf21e27475c5a46cd31b1f9b5f841..98f95033d96e37fab496cf56f7809229f6823bc8 100644 (file)
--- 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 a91c3ce63df5535f803fe90b860e5499cba44b76..7850db8bceb27611f8dfc80068ad33d750b778e6 100644 (file)
--- 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 8cb4dffbec2efa0cceab249b90bfb3baa372fe10..fe881f1eaa78a4dde7b525a227f98af3816930ab 100755 (executable)
--- 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)) {