X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;fp=perl%2FDXProt.pm;h=4b32a7150c35440747ed1d8a0c8e4c8d75f0b356;hb=ffa42f75b95492bd0223599adc9287ace057bf38;hp=b46d00f97d95b9de5be22bf5b43c87236302a47c;hpb=f8cf7871c6169572151e12c48d6895452451237a;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b46d00f9..4b32a715 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1487,7 +1487,7 @@ sub handle_41
 	$user = DXUser->new($call) unless $user;
 			
 	if ($_[2] == 1) {
-		if ($_[2] =~ /spotter/i) {
+		if (($_[3] =~ /spotter/i || $_[3] =~ /self/i) && $user->name && $user->name ne $_[3]) {
 			dbg("PCPROT: invalid name") if isdbg('chanerr');
 			return;
 		}