A couple of speedups, using shell builtins

cobalt

@@ -1,7 +1,9 @@
 #! /bin/sh
 
-exec ./bot \
+while true; do
-    -n cobalt \
+    ./bot \
-    -u cobalt \
+	-n cobalt \
-    -a ./cobalt-handler \
+	-u cobalt \
-    socat STDIO OPENSSL:woozle.org:994,verify=0
+	-a ./cobalt-handler \
+	socat STDIO OPENSSL:woozle.org:6697,verify=0
+done

cobalt-handler

@@ -5,7 +5,10 @@ forum=$1;   export forum;   shift
 prefix=$1;  export prefix;  shift
 command=$1; export command; shift
 # $* is now args
-text=$(cat)
+
+# Remeber, read discards leading whitespace.  If that's not okay, use
+# text=$(cat)
+read -r text
 
 join () {
     printf '\aJOIN %s\n' "$1"

firebot

@@ -1,24 +1,23 @@
 #! /bin/sh
 
-firebot () {
+cmd=${1%% *}
-    read cmd args
+args=${1#* }
-    case $cmd in
+case $cmd in
-        calc)
+    calc)
-            printf "%s = " "$args"
+        printf "%s = " "$args"
-            echo "$args" | bc -l
+        printf "%s\n" "$args" | bc -l
-            ;;
+        ;;
-        units)
+    units)
-            src=$(printf "%s" "$args" | sed 's/ ->.*//')
+	src=${args% ->*}
-            dst=$(printf "%s" "$args" | sed 's/.*-> //')
+	dst=${args#*-> }
-            units -1 -v -- "$src" "$dst"
+        units -1 -v -- "$src" "$dst"
-            ;;
+        ;;
-        *)
+    *)
-            exit 1
+        exit 1
-            ;;
+        ;;
-    esac
+esac
-}
+
-
+
-echo "$1" | firebot
 
 
 

infobot

@@ -2,6 +2,8 @@
 
 db=$1; shift
 text="$1"
+cmd=${text%% *}
+args=${text#* }
 
 lookup () {
     if ! cdb -q -m $db "$1"; then
@@ -16,7 +18,7 @@ lookup () {
     fi
 }
 
-case "$text" in
+case "$cmd" in
     !h*)
         cat <<EOF
 !stats                       Show statistics
@@ -30,23 +32,20 @@ EOF
         cdb -s $db | head -n 1
         ;;
     !l*)
-        args=$(echo "$text" | cut -d\  -f2-)
         printf "factoids for \"%s\": " "$args"
         cdb -q -m $db "$args" | awk '{printf("|%s", $0);}'
         echo
         ;;
     !a*)
-        args=$(echo "$text" | cut -d\  -f2-)
+	key=${args% +=*}
-        key=$(printf "%s" "$args" | sed 's/ +=.*//')
+	val=${args#*+= }
-        val=$(printf "%s" "$args" | sed 's/.*+= //')
         (printf "+%d,%d:%s->%s\n" ${#key} ${#val} "$key" "$val";
             cdb -d $db) | cdb -c $db
         echo "Okay, $sender, I added a factoid to $key"
         ;;
     !r*)
-        args=$(echo "$text" | cut -d\  -f2-)
+	key=${args% -=*}
-        key=$(printf "%s" "$args" | sed 's/ -=.*//')
+	val=${args#*-= }
-        val=$(printf "%s" "$args" | sed 's/.*-= //')
         re=":$key->.*$val"
         n=$(cdb -d $db | grep -c "$re")
         if [ $n -gt 0 ]; then
@@ -56,8 +55,7 @@ EOF
             echo "Nothing matched, $sender."
         fi
         ;;
-    !forget\ *)
+    !forget)
-        args=$(echo "$text" | cut -d\  -f2-)
         cdb -d $db | grep -a -F -v ":$args->" | cdb -c $db
         echo "I removed all factoids from $args"
         ;;
@@ -67,10 +65,10 @@ EOF
             "")
                 exit 1
                 ;;
-            \\*)
+            ''*)
                 echo "Someone's up to no good!"
                 ;;
-            \\*)
+            '\'*)
                 printf "%s" "${resp#\\}"
                 ;;
             :*)