From f3c42e21dec471d12f4b01911af1b647fd59be0e Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 22 Aug 2003 11:29:30 +0000
Subject: [PATCH] - support extra crap added to shm value.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@813 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 44b021f..3fe5e63 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -765,11 +765,14 @@ sub miscCheck {
 	my ($shmid, $size) = ($2,$5);
 	next unless ($shmid != $shm and $size == 2000);
 	my $z	= &shmRead($shmid);
-	# TODO - add nick to SHM so multiple instances can be running
-	# as the same unix user on the same host?
-	if ($z =~ /^(\d+): /) {
-	    my $time	= $1;
+	if ($z =~ /^(\S+):(\d+):(\d+): /) {
+	    my $n	= $1;
+	    my $pid	= $2;
+	    my $time	= $3;
 	    next if (time() - $time < 60*60);
+	    next if ($pid == $bot_pid);
+	    # don't touch other bots, if they're running.
+	    next unless ($param{ircNick} =~ /^\Q$n\E$/);
 	} else {
 #	    &DEBUG("shm: $shmid is not ours or old blootbot => ($z)");
 #	    next;
-- 
2.39.2