- validFactoid.

- fixString

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

diff --git a/blootbot/src/Misc.pl b/blootbot/src/Misc.pl
index 43d4cf2918b4696200d8c225806885e1af5dbe0e..9cb32b5b13300537f36bacbedea6203b5113fb95 100644 (file)
--- a/blootbot/src/Misc.pl
+++ b/blootbot/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})) {