X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=b46d00f97d95b9de5be22bf5b43c87236302a47c;hb=054659107044d10020c781b8709b50aeabb09e76;hp=1002023c4f9b3980920a49a50d5396bdc4bdd76b;hpb=f0d45ffe8cee20ddb33ff38f569b7c1cd8b5666b;p=spider.git

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