From: dms Date: Fri, 24 Nov 2000 12:23:54 +0000 (+0000) Subject: - validFactoid. X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6e382266740587ba36c8d57de11ac788a962ffcf;p=infobot.git - validFactoid. - fixString git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@172 c11ca15a-4712-0410-83d8-924469b57eb5 --- 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})) {