From: minima Date: Mon, 31 Jul 2000 21:17:23 +0000 (+0000) Subject: fiddle with use DB_File in sh/node.pl X-Git-Tag: R_1_43~10 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=699e2b8f9d924df78f55f69dfeded213f158b121;p=spider.git fiddle with use DB_File in sh/node.pl --- diff --git a/cmd/show/node.pl b/cmd/show/node.pl index 9b6938a6..2cdf84a3 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -17,13 +17,14 @@ my ($self, $line) = @_; return (1, $self->msg('e5')) unless $self->priv >= 1; +use DB_File; + my @call = map {uc $_} split /\s+/, $line; my @out; my $count; # search thru the user for nodes unless (@call) { - use DB_File; my ($action, $key, $data); for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) {