Fix a few bugs

.gitignore

@@ -1,6 +1,4 @@
-*.cmi
-*.cmo
 *~
-bot
-.omake*
-.depend
+*.o
+dispatch
+irc

cobalt-handler

@@ -21,7 +21,9 @@ join () {
 
 case $command in
     001)
-        join "#cobalt"
+        for chan in ${CHANNELS:-#cobalt}; do
+            join $chan
+        done
         ;;
     433)
         raw "NICK bottimus"

dispatch.c

@@ -173,10 +173,8 @@ call_with_lines(char   *buf,
 
   while ((p = memchr(b, '\n', l))) {
     size_t n = p - b + 1;
-    size_t buflen = n;
 
-    if ('\r' == *(p-1)) buflen -= 1;
-    func(b, buflen);
+    func(b, n);
     l -= n;
     b += n;
   }

firebot

@@ -1,5 +1,7 @@
 #! /bin/sh
 
+exec 2>&1
+
 cmd=${1%% *}
 [ "$cmd" = "$1" ] || args=${1#* }
 case $cmd in

irc.c

@@ -65,6 +65,10 @@ main(int argc, char *argv[])
         line += 1;
       }
     }
+
+    /* Strip trailing carriage return */
+    while (*line) line += 1;
+    if ('\r' == *(line-1)) *(line-1) = '\0';
   }
 
   /* Set command, converting to upper case */
@@ -108,7 +112,8 @@ main(int argc, char *argv[])
     sender = parts[1];
     forum = sender;
   } else if (0 == strcmp(cmd, "PING")) {
-    dprintf(1, "PONG :%s\r\n", text);
+    printf("PONG :%s\r\n", text);
+    fflush(stdout);
   }
 
   {