projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
772dc67
)
fix DXProt.pm
author
Dirk Koopman
<djk@tobit.co.uk>
Fri, 17 Apr 2020 14:38:08 +0000
(15:38 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Fri, 17 Apr 2020 14:38:08 +0000
(15:38 +0100)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 78c5526b4ce4fd67f73d4d168a6f0c6bdb00b316..4510714684ebd7b83db6aa862b08e587a3d13309 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1119,7
+1119,6
@@
sub process_rcmd
{
my ($self, $tonode, $fromnode, $user, $cmd) = @_;
{
my ($self, $tonode, $fromnode, $user, $cmd) = @_;
- Log('rcmd', 'in', ($ref->{priv}||0), $fromnode, $cmd);
if ($tonode eq $main::mycall) {
my $ref = DXUser::get_current($fromnode);
unless ($ref && UNIVERSAL::isa($ref, 'DXUser')) {
if ($tonode eq $main::mycall) {
my $ref = DXUser::get_current($fromnode);
unless ($ref && UNIVERSAL::isa($ref, 'DXUser')) {
@@
-1127,6
+1126,7
@@
sub process_rcmd
$self->send_rcmd_reply($main::mycall, $fromnode, $user, "sorry...!");
return;
}
$self->send_rcmd_reply($main::mycall, $fromnode, $user, "sorry...!");
return;
}
+ Log('rcmd', 'in', ($ref->{priv}||0), $fromnode, $cmd);
my $cref = Route::Node::get($fromnode);
unless ($cref && UNIVERSAL::isa($cref, 'Route')) {
dbg("DXProt process_rcmd: Route $fromnode isn't a reference (tell G1TLH)");
my $cref = Route::Node::get($fromnode);
unless ($cref && UNIVERSAL::isa($cref, 'Route')) {
dbg("DXProt process_rcmd: Route $fromnode isn't a reference (tell G1TLH)");