X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fbadnode.pl;h=e569365175bc16222f3f875c514a9078b11afb8d;hb=HEAD;hp=ff59c68deab622c2d8efe5aafab1d870b2231523;hpb=2bd682330ce9b04c95ddf05715cfb643da2df0ea;p=spider.git diff --git a/cmd/show/badnode.pl b/cmd/show/badnode.pl index ff59c68d..e5693651 100644 --- a/cmd/show/badnode.pl +++ b/cmd/show/badnode.pl @@ -1,14 +1,14 @@ # -# show list of bad nodes +# show list of bad dx nodes # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; +return (1, $self->msg('e5')) if $self->remotecmd; +# are we permitted? return (1, $self->msg('e5')) if $self->priv < 6; -my @out = ($self->msg('badnode3')); -for (@DXProt::nodx_node) { - push @out, $_; -} -return (1, @out); +$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line)); +return $DXProt::badnode->show(1, $self); +