X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fnode.pl;h=4434b690a48297087bf07954ebcb216428135a87;hb=057580c6b9b77fece532a02d3df7b5a5b1af1054;hp=1c6ee49ed5e997d536630a1d57365ad639d8f7f9;hpb=db1ab4fb2566360a224aa47e8b487150823c10a0;p=spider.git diff --git a/cmd/show/node.pl b/cmd/show/node.pl index 1c6ee49e..4434b690 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -16,7 +16,6 @@ my ($self, $line) = @_; return (1, $self->msg('e5')) unless $self->priv >= 1; -return (1, $self->msg('storable')) unless $DXUser::v3; my @call = map {uc $_} split /\s+/, $line; my @out; @@ -29,9 +28,10 @@ if (@call == 0) { shift @call; 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{\01[ACRSX]\0\0\0\04sort}) { - push @call, $key; - ++$count; + if (is_callsign($key)) { + if ($data =~ /"sort":"[ACRSX]"/) { + push @call, $key; + } } } } @@ -39,7 +39,7 @@ if (@call == 0) { my $call; foreach $call (sort @call) { my $clref = Route::Node::get($call); - my $uref = DXUser->get_current($call); + my $uref = DXUser::get_current($call); my ($sort, $ver, $build); my $pcall = sprintf "%-11s", $call;