X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fnode.pl;h=d45cad36155a8e85ef49131ecb2e336cbd48bdf9;hb=f939c447ca5ef37073054a73e50b48a63533a9bc;hp=2cdf84a380a84749def463fef204bff08544ca2b;hpb=699e2b8f9d924df78f55f69dfeded213f158b121;p=spider.git diff --git a/cmd/show/node.pl b/cmd/show/node.pl index 2cdf84a3..d45cad36 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -26,8 +26,8 @@ my $count; # search thru the user for nodes unless (@call) { - my ($action, $key, $data); - for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) { + my ($action, $key, $data) = (0,0,0); + for ($action = DXUser::R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) { if ($data =~ m{sort => '[ACRSX]'}) { push @call, $key; ++$count;