From 3714fae559341e37d57848800fb70cee6e175971 Mon Sep 17 00:00:00 2001 From: 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