From 8df1aee164a383a9093706023a1187caff925cc7 Mon Sep 17 00:00:00 2001 From: djk Date: Sat, 30 Oct 1999 16:39:47 +0000 Subject: [PATCH] *** empty log message *** --- cmd/set/badnode.pl | 17 +++++++++++++++++ cmd/show/badnode.pl | 14 ++++++++++++++ 2 files changed, 31 insertions(+) create mode 100644 cmd/set/badnode.pl create mode 100644 cmd/show/badnode.pl diff --git a/cmd/set/badnode.pl b/cmd/set/badnode.pl new file mode 100644 index 00000000..13d91e77 --- /dev/null +++ b/cmd/set/badnode.pl @@ -0,0 +1,17 @@ +# +# set list of bad nodes +# +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# +my ($self, $line) = @_; +return (1, $self->msg('e5')) if $self->priv < 6; +my @f = split /\s+/, $line; +my @out; +for (@f) { + my $call = uc $_; + push @DXProt::nodx_node, $call; + push @out, "$call is now a badnode"; +} +return (1, @out); diff --git a/cmd/show/badnode.pl b/cmd/show/badnode.pl new file mode 100644 index 00000000..e13e6c23 --- /dev/null +++ b/cmd/show/badnode.pl @@ -0,0 +1,14 @@ +# +# show list of bad nodes +# +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# +my ($self, $line) = @_; +return (1, $self->msg('e5')) if $self->priv < 6; +my @out; +for (@DXProt::nodx_node) { + push @out, "$_ is a badnode"; +} +return (1, @out); -- 2.43.0