X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fbadnode.pl;h=e569365175bc16222f3f875c514a9078b11afb8d;hb=8ce3e54056026253e9e4a518b317dbbd8e71bb7a;hp=e13e6c23224bd2915eeffaf7664b3b85f25fe7e1;hpb=8df1aee164a383a9093706023a1187caff925cc7;p=spider.git diff --git a/cmd/show/badnode.pl b/cmd/show/badnode.pl index e13e6c23..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; -for (@DXProt::nodx_node) { - push @out, "$_ is a badnode"; -} -return (1, @out); +$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line)); +return $DXProt::badnode->show(1, $self); +