X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=4b32a7150c35440747ed1d8a0c8e4c8d75f0b356;hb=675c79396a86cbc8dbe46f7de39d02a5bfa839f7;hp=1002023c4f9b3980920a49a50d5396bdc4bdd76b;hpb=abaaa7a242556e46bac5e47d10f980c19cd0eabc;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1002023c..4b32a715 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 (($_[3] =~ /spotter/i || $_[3] =~ /self/i) && $user->name && $user->name ne $_[3]) {
+			dbg("PCPROT: invalid name") if isdbg('chanerr');
+			return;
+		}
 		$user->name($_[3]);
 	} elsif ($_[2] == 2) {
 		$user->qth($_[3]);