cmd/show/badnode.pl

   1 #
   2 # show list of bad nodes
   3 #
   4 # Copyright (c) 1998 - Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8 my ($self, $line) = @_;
   9 return (1, $self->msg('e5')) if $self->priv < 6;
  10 my @out;
  11 for (@DXProt::nodx_node) {
  12         push @out, "$_ is a badnode";
  13 }
  14 return (1, @out);