From: minima <minima>
Date: Wed, 23 Mar 2005 23:16:08 +0000 (+0000)
Subject: force removal of ssid on badspotter
X-Git-Tag: 1.53~135
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=8007adef1e949086cb27444d61f554ba456c0685;p=spider.git

force removal of ssid on badspotter
---

diff --git a/Changes b/Changes
index fbd32439..a4858312 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+23Mar05=======================================================================
+1. fix (un)set/badspotter so that it only stores non-ssid calls.
+2. mention action on talk and ann/full in help.
 22Mar05=======================================================================
 1. Fix ? so it works again.
 2. Fix Aliases for sh/c so they are correct
diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 9e3982cb..342630a4 100644
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -1429,6 +1429,9 @@ will allow spots from him again.
 
 Use with extreme care. This command may well be superceded by FILTERing.
 
+This command will also stop TALK and ANNOUNCE/FULL from any user marked
+as a BADSPOTTER.
+
 === 8^SET/BADWORD <word>..^Stop things with this word being propagated
 === 8^UNSET/BADWORD <word>..^Propagate things with this word again
 Setting a word as a 'badword' will prevent things like spots,
diff --git a/cmd/set/badspotter.pl b/cmd/set/badspotter.pl
index 6478c6f1..669a4ab5 100644
--- a/cmd/set/badspotter.pl
+++ b/cmd/set/badspotter.pl
@@ -6,5 +6,6 @@
 # $Id$
 #
 my ($self, $line) = @_;
+$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
 return $DXProt::badspotter->set(8, $self->msg('e6'), $self, $line);
 
diff --git a/cmd/unset/badspotter.pl b/cmd/unset/badspotter.pl
index 5664f1cb..5c2433e9 100644
--- a/cmd/unset/badspotter.pl
+++ b/cmd/unset/badspotter.pl
@@ -6,5 +6,6 @@
 # $Id$
 #
 my ($self, $line) = @_;
+$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
 return $DXProt::badspotter->unset(8, $self->msg('e6'), $self, $line);