From 8ef2568bd4b967370f6335bf2e564c3253708d43 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 27 Nov 2007 19:11:27 +0000 Subject: [PATCH] fix a crash on receiving an rcmd from a new node --- Changes | 2 ++ perl/DXProt.pm | 4 ++-- perl/Version.pm | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 481199f6..63a08f5a 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +25Nov07======================================================================= +1. Fix a crash on receiving an rcmd from an new node. 21Nov07======================================================================= 1. Added CTY-1710 prefix changes 19Nov07======================================================================= diff --git a/perl/DXProt.pm b/perl/DXProt.pm index eafb591d..4d79ecf5 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1124,8 +1124,8 @@ sub process_rcmd if ($tonode eq $main::mycall) { my $ref = DXUser->get_current($fromnode); my $cref = Route::Node::get($fromnode); - Log('rcmd', 'in', $ref->{priv}, $fromnode, $cmd); - if ($cmd !~ /^\s*rcmd/i && $cref && $ref && $cref->call eq $ref->homenode) { # not allowed to relay RCMDS! + Log('rcmd', 'in', ($ref->{priv}||0), $fromnode, $cmd); + if ($cmd !~ /^\s*rcmd/i && $cref && $ref && $ref->homenode && $cref->call eq $ref->homenode) { # not allowed to relay RCMDS! if ($ref->{priv}) { # you have to have SOME privilege, the commands have further filtering $self->{remotecmd} = 1; # for the benefit of any command that needs to know my $oldpriv = $self->{priv}; diff --git a/perl/Version.pm b/perl/Version.pm index 983e222c..048b3a8f 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '193'; +$build = '194'; 1; -- 2.43.0