From 3714fae559341e37d57848800fb70cee6e175971 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 22 Jan 2007 23:04:29 +0000
Subject: [PATCH] bit more sophisticated

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 		}
-- 
2.43.0