From: djk <djk>
Date: Sat, 30 Oct 1999 16:39:47 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: R_1_34~24
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=8df1aee164a383a9093706023a1187caff925cc7;p=spider.git

*** empty log message ***
---

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);