From 6e382266740587ba36c8d57de11ac788a962ffcf Mon Sep 17 00:00:00 2001 From: dms Date: Fri, 24 Nov 2000 12:23:54 +0000 Subject: [PATCH] - validFactoid. - fixString git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@172 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/Misc.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Misc.pl b/src/Misc.pl index 43d4cf2..9cb32b5 100644 --- a/src/Misc.pl +++ b/src/Misc.pl @@ -223,6 +223,7 @@ sub fixString { s/\s+/ /g; # remove excessive whitespaces. next unless (defined $level); + &DEBUG("strip control chars?"); s/[\cA-\c_]//ig # remove control characters. } @@ -512,6 +513,8 @@ sub validFactoid { /\=\~/ and last; # substituition. /^\S+ to \S+ \S+/ and last; # babelfish. + /^\=/ and last; # botnick = heh is. + # symbols. /(\"\*)/ and last; /, / and last; @@ -602,6 +605,7 @@ sub Forker { $pid = eval { fork() }; return $noreply if $pid; # parent does nothing &status("fork starting for '$label', PID == $$."); + &shmWrite($shm,"SET FORKPID $name $$"); } if (!&loadMyModule($myModules{$label})) { -- 2.39.5