From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 3 Dec 2000 13:52:14 +0000 (+0000)
Subject: output cleanup
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=acff22da6635076e226c8648bf00efb65aca9866;p=infobot.git

output cleanup


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@181 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 5cdefac..ccc30c5 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -462,6 +462,8 @@ sub shmFlush {
     my $shmmsg = &shmRead($shm);
     $shmmsg =~ s/\0//g;         # remove padded \0's.
 
+    return if ($$ != $main::bot_pid); # fork protection.
+
     foreach (split '\|\|', $shmmsg) {
 	&VERB("shm: Processing '$_'.",2);
 
@@ -474,6 +476,8 @@ sub shmFlush {
 		$conn->new_send($1,$2);
 		$dcc{'SEND'}{$who} = time();
 	    }
+	} elsif (/^SET FORKPID (\S+) (\S+)/) {
+	    $forked{$1}{PID} = $2;
 	} elsif (/^DELETE FORK (\S+)$/) {
 	    delete $forked{$1};
 	} elsif (/^EVAL (.*)$/) {