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 5cdefac20ec30f6230ed989895aa9a9b18cf45c9..ccc30c540df2ad386a779d75578f170d9b48d9b8 100644 (file)
--- 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 (.*)$/) {