From 8df1aee164a383a9093706023a1187caff925cc7 Mon Sep 17 00:00:00 2001
From: djk <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