From 8007adef1e949086cb27444d61f554ba456c0685 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 23 Mar 2005 23:16:08 +0000 Subject: [PATCH] force removal of ssid on badspotter --- Changes | 3 +++ cmd/Commands_en.hlp | 3 +++ cmd/set/badspotter.pl | 1 + cmd/unset/badspotter.pl | 1 + 4 files changed, 8 insertions(+) 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 ..^Stop things with this word being propagated === 8^UNSET/BADWORD ..^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); -- 2.34.1