From 5d62f7388769bf5ed602209cabf1386ef27aca86 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 8 Dec 2001 13:42:25 +0000
Subject: [PATCH] added unset/hops command

---
 Changes             |  2 ++
 cmd/Commands_en.hlp |  7 +++++++
 cmd/unset/hops.pl   | 33 +++++++++++++++++++++++++++++++++
 perl/Messages       |  2 ++
 4 files changed, 44 insertions(+)
 create mode 100644 cmd/unset/hops.pl

diff --git a/Changes b/Changes
index 8626bd5a..1eec9db3 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+08Dec01=======================================================================
+1. added unset/hops command
 02Dec01=======================================================================
 1. Fix spurious 'new message for you' messages if things are deleted but 
 unread.
diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 8e9d3817..d04f9fa8 100644
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -1238,6 +1238,7 @@ eg:-
   SET/HOMENODE gb7djk
 
 === 8^SET/HOPS <call> ann|spots|route|wwv|wcy <n>^Set hop count  
+=== 8^UNSET/HOPS <call> ann|spots|route|wwv|wcy^Unset hop count  
 Set the hop count for a particular type of broadcast for a node.
 
 This command allows you to set up special hop counts for a node 
@@ -1250,6 +1251,12 @@ eg:
 Set SHOW/HOPS for information on what is already set. This command
 creates a filter and works in conjunction with the filter system. 
 
+You can unset the hops with command UNSET/HOPS. For example:-
+
+  unset/hops gb7djk ann
+  unset/hops gb7mbc spots
+
+
 === 9^SET/ISOLATE^Isolate a node from the rest of the network
 Connect a node to your system in such a way that you are a full protocol
 member of its network and can see all spots on it, but nothing either leaks
diff --git a/cmd/unset/hops.pl b/cmd/unset/hops.pl
new file mode 100644
index 00000000..60668d10
--- /dev/null
+++ b/cmd/unset/hops.pl
@@ -0,0 +1,33 @@
+#
+# unset/hops commands
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my ($self, $line) = @_;
+return (0, $self->msg('e5')) if $self->priv < 8;
+
+my @f = split /\s+/, $line;
+my @out;
+my $call;
+
+if (is_callsign(uc $f[0])) {
+	$call = uc shift @f;
+} elsif ($f[0] eq 'node_default' || $f[0] eq 'user_default') {
+	$call = shift @f;
+}
+
+my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy|route$/i;
+
+return (0, $self->msg('unsethop1')) unless $call && $sort;
+
+my $ref = Filter::read_in($sort, $call, 0);
+$ref = Filter->new($sort, $call, 0) if !$ref || $ref->isa('Filter::Old');
+return (0, $self->msg('filter5', '', $sort, $call)) unless $ref;
+
+delete $ref->{hops};
+$ref->write;
+$ref->install;
+
+return (0, $self->msg('unsethop2', $sort, $call));
diff --git a/perl/Messages b/perl/Messages
index 92fe59aa..e5a123fc 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -264,6 +264,8 @@ package DXM;
 				talknh => 'Sorry $_[0] is not online at the moment',
 				talkprompt => 'Talk ($_[0])>',
 				talkstart => 'Starting talking to you',
+				unsethop1 => 'usage: unset/hops <call> ann|spots|wwv|wcy',
+				unsethop2 => 'hops unset on $_[1] for $_[0]', 
 				usernf => '*** User record for $_[0] not found ***',
 				wwvs => 'WWV flag set on $_[0]',
 				wwvu => 'WWV flag unset on $_[0]',
-- 
2.34.1