Add whuffie

cobalt-handler

@@ -14,8 +14,13 @@ case $command in
         printf '\aJOIN #bot\n'
         ;;
     PRIVMSG)
+        case "$forum" in
+            \#woozle|\#foozle)
                 ./firebot "$text" || \
-            ./infobot woozle.cdb "$text"
+                    ./whuffie woozle.whuffie.cdb "$text" || \
+                    ./infobot woozle.factoids.cdb "$text"
+                ;;
+        esac
         ;;
     INVITE)
         printf '\aJOIN %s\n' "$forum"

infobot

@@ -1,10 +1,6 @@
 #! /bin/sh
 
-if [ $# -gt 1 ]; then
-    db=$1; shift
-else
-    db=info.cdb
-fi
+db=$1; shift
 text="$1"
 args=$(echo "$text" | cut -d\  -f2-)
 

whuffie

@@ -0,0 +1,41 @@
+#! /bin/sh
+
+db=$1; shift
+text="$1"
+
+get () {
+    cdb -q $db "$1" || echo 0
+}
+
+put () {
+    (printf "+%d,%d:%s->%s\n" ${#1} ${#2} "$1" $2;
+        cdb -d $db) | cdb -c -u $db
+}
+
+adj () {
+    who=${text%%$1$1}
+    if [ "$who" = "$sender" ]; then
+        echo "Nice try, $sender."
+    else
+        put "$who" $(expr $(get "$who") $1 1)
+    fi
+}
+
+
+case "$text" in
+    whuffie\ *)
+        who=${text##whuffie }
+        amt=$(get "$who")
+        echo "$who has $amt whuffie"
+        ;;
+    *++)
+        adj +
+        ;;
+    *--)
+        adj -
+        ;;
+    *)
+        exit 1
+        ;;
+esac
+