From f8cf7871c6169572151e12c48d6895452451237a Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 22 Jan 2007 23:01:11 +0000 Subject: [PATCH] try to stop selfspotter strings as names --- perl/DXProt.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 1002023c..b46d00f9 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1487,6 +1487,10 @@ sub handle_41 $user = DXUser->new($call) unless $user; if ($_[2] == 1) { + if ($_[2] =~ /spotter/i) { + dbg("PCPROT: invalid name") if isdbg('chanerr'); + return; + } $user->name($_[3]); } elsif ($_[2] == 2) { $user->qth($_[3]); -- 2.43.0