X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Frcmd.pl;h=033ddd2496fa5e0b66402f377d8111c7a8c6f0d1;hb=refs%2Fheads%2Fnew-spawn;hp=396cd45b68ae80df2b6b58f9011bfa4f102db630;hpb=f155969d600561b9ef151a7ce2494a0c89aed033;p=spider.git diff --git a/cmd/rcmd.pl b/cmd/rcmd.pl index 396cd45b..033ddd24 100644 --- a/cmd/rcmd.pl +++ b/cmd/rcmd.pl @@ -3,12 +3,13 @@ # # Copyright (c) 1998 Dirk Koopman G1TLH # -# $Id$ +# # my $self = shift; my $line = shift; my ($call) = $line =~ /^\s*(\S+)/; +return (1, $self->msg('e5')) if $self->remotecmd; # are we permitted? return (1, $self->msg('e5')) if $self->priv < 6; @@ -21,11 +22,7 @@ $line =~ s/^\s*$call\s+//; # can we see it? Is it a node? $call = uc $call; -my $noderef = DXCluster->get_exact($call); -unless ($noderef) { - $noderef = DXChannel->get($call); - $noderef = undef unless $noderef && $noderef->is_node; -} +my $noderef = Route::Node::get($call); return (1, $self->msg('e7', $call)) unless $noderef; # rcmd it