chiark / gitweb /
serialmgr: Look for things in /usr, not /usr/local
[sympathy.git] / apps / sympathy.c
index 4a9f18aa743dde3730367fec0e2a33f2116c72fb..367797836b14385fbf9065b3a9c7807383c59732 100644 (file)
-/*
+/* 
  * sympathy.c:
  *
- * Copyright (c) 2008 James McKenzie <james@fishsoup.dhs.org>,
+ * Copyright (c) 2008 James McKenzie <sympathy@madingley.org>,
  * All rights reserved.
  *
  */
 
 static char rcsid[] =
-  "$Id$";
+  "$Id: sympathy.c,v 1.52 2010/07/27 14:49:34 james Exp $";
 
-/*
- * $Log$
+/* 
+ * $Log: sympathy.c,v $
+ * Revision 1.52  2010/07/27 14:49:34  james
+ * add support for byte logging
+ *
+ * Revision 1.51  2010/07/16 11:04:10  james
+ * ignore tedious return values
+ *
+ * Revision 1.50  2008/05/09 12:56:28  staffcvs
+ * *** empty log message ***
+ *
+ * Revision 1.49  2008/05/09 12:43:49  staffcvs
+ * *** empty log message ***
+ *
+ * Revision 1.48  2008/05/09 12:35:57  james
+ * *** empty log message ***
+ *
+ * Revision 1.47  2008/05/09 12:26:58  staffcvs
+ * *** empty log message ***
+ *
+ * Revision 1.46  2008/05/09 12:19:18  james
+ * *** empty log message ***
+ *
+ * Revision 1.45  2008/03/15 01:44:31  james
+ * *** empty log message ***
+ *
+ * Revision 1.44  2008/03/12 01:30:23  james
+ * *** empty log message ***
+ *
+ * Revision 1.43  2008/03/12 01:26:56  james
+ * *** empty log message ***
+ *
+ * Revision 1.42  2008/03/11 15:02:52  james
+ * *** empty log message ***
+ *
+ * Revision 1.41  2008/03/10 11:49:32  james
+ * *** empty log message ***
+ *
+ * Revision 1.40  2008/03/07 14:16:44  james
+ * *** empty log message ***
+ *
+ * Revision 1.39  2008/03/07 14:13:40  james
+ * *** empty log message ***
+ *
+ * Revision 1.38  2008/03/07 13:56:39  james
+ * *** empty log message ***
+ *
+ * Revision 1.37  2008/03/07 13:16:02  james
+ * *** empty log message ***
+ *
+ * Revision 1.36  2008/03/06 21:34:09  james
+ * *** empty log message ***
+ *
+ * Revision 1.35  2008/03/06 21:33:02  james
+ * *** empty log message ***
+ *
+ * Revision 1.34  2008/03/06 16:49:39  james
+ * *** empty log message ***
+ *
+ * Revision 1.33  2008/03/06 16:49:05  james
+ * *** empty log message ***
+ *
+ * Revision 1.32  2008/03/03 06:04:42  james
+ * *** empty log message ***
+ *
+ * Revision 1.31  2008/03/03 06:04:18  james
+ * *** empty log message ***
+ *
+ * Revision 1.30  2008/03/02 10:38:18  james
+ * *** empty log message ***
+ *
+ * Revision 1.29  2008/03/02 10:37:56  james
+ * *** empty log message ***
+ *
+ * Revision 1.28  2008/03/02 10:27:24  james
+ * *** empty log message ***
+ *
+ * Revision 1.27  2008/03/02 09:55:37  james
+ * *** empty log message ***
+ *
+ * Revision 1.26  2008/02/29 14:55:09  james
+ * *** empty log message ***
+ *
+ * Revision 1.25  2008/02/28 22:43:25  james
+ * *** empty log message ***
+ *
+ * Revision 1.24  2008/02/28 22:00:42  james
+ * *** empty log message ***
+ *
+ * Revision 1.23  2008/02/28 16:57:51  james
+ * *** empty log message ***
+ *
+ * Revision 1.22  2008/02/28 01:47:44  james
+ * *** empty log message ***
+ *
+ * Revision 1.21  2008/02/27 16:01:24  james
+ * *** empty log message ***
+ *
+ * Revision 1.20  2008/02/27 10:00:34  james
+ * *** empty log message ***
+ *
+ * Revision 1.19  2008/02/27 09:47:05  james
+ * *** empty log message ***
+ *
+ * Revision 1.18  2008/02/27 09:42:53  james
+ * *** empty log message ***
+ *
+ * Revision 1.17  2008/02/27 09:42:21  james
+ * *** empty log message ***
+ *
+ * Revision 1.16  2008/02/27 01:31:38  james
+ * *** empty log message ***
+ *
  * Revision 1.15  2008/02/27 01:31:14  james
  * *** empty log message ***
  *
@@ -68,13 +179,23 @@ static char rcsid[] =
 #include <string.h>
 #include <strings.h>
 #include <malloc.h>
+#include <fcntl.h>
+#include <sys/resource.h>
+#include <sys/wait.h>
+#include <syslog.h>
+
 
 #include "mainloop.h"
 
-extern void usage (void);
+int use_syslog = 0;
 
+extern void usage (void);
+extern char *expand (const char *, int *);
 static char hostname[1024];
 
+char *socket_dirs[] =
+  { "~/.sympathy", "~/sympathy", "/etc/sympathy", "/var/sympathy", NULL };
+
 int
 safe_atoi (char *a)
 {
@@ -99,76 +220,200 @@ fatal_moan (char *fmt, ...)
 
 
   va_start (ap, fmt);
-  vfprintf (stderr, fmt, ap);
+
+  if (use_syslog)
+    {
+      vsyslog (LOG_ERR, fmt, ap);
+    }
+  else
+    {
+      vfprintf (stderr, fmt, ap);
+      putc ('\n', stderr);
+    }
   va_end (ap);
 
-  putc ('\n', stderr);
   exit (1);
 }
 
+static void
+sigchld (int dummy)
+{
+  int status;
+  wait3 (&status, WNOHANG, NULL);
+}
+
+/* Dispell zombies, from, for example, log compression */
+void
+garlic (void)
+{
+  struct sigaction sa;
 
+  sa.sa_handler = sigchld;
+  sa.sa_flags = SA_RESTART;
+  sigaction (SIGCHLD, &sa, NULL);
+}
 
-/*make the path in fmt from home (hence the name) */
+char *
+teedious_snprintf (char *fmt, va_list ap)
+{
+  va_list aq;
+  int size = 1024;
+  char *buf = malloc (size);
+  int n;
+
+  if (!buf)
+    fatal_moan ("malloc failed");
+
+  while (1)
+    {
+
+      va_copy (aq, ap);
+      n = vsnprintf (buf, size, fmt, aq);
+      va_end (aq);
+
+      if (n > -1 && n < (size))
+        return buf;
+
+      if (n > -1)               /* glibc 2.1 */
+        size = n + 1;
+      else                      /* glibc 2.0 */
+        size *= 2;              /* twice the old size */
+
+      buf = realloc (buf, size);
+
+      if (!buf)
+        fatal_moan ("malloc failed");
+    }
+
+}
 
 char *
-mome (char *fmt, ...)
+gloo_paths (char *dir, char *leaf)
 {
+  int i;
+  char *ret, *ptr;
+  if (!dir)
+    dir = "";
+  if (!leaf)
+    leaf = "";
+  ret = ptr = xmalloc (strlen (dir) + strlen (leaf) + 2);
+
+  while (*dir)
+    *(ptr++) = *(dir++);
+  *(ptr++) = '/';
+  while (*leaf)
+    *(ptr++) = *(leaf++);
+  *ptr = 0;
 
-  int n;
-  int homelen;
-  char *buf, *home;
+  return ret;
+}
+
+
+/* make the path in fmt from home (hence the name) */
+char *
+mome (char *fmt, ...)
+{
+  char *ret, *home, *leaf;
   va_list ap;
-  int size;
 
 
   home = getenv ("HOME");
   if (!home)
     return NULL;
 
-  homelen = strlen (home) + 1;
+  if (fmt)
+    {
+      va_start (ap, fmt);
+      leaf = teedious_snprintf (fmt, ap);
+      va_end (ap);
+    }
+  else
+    {
+      leaf = NULL;
+    }
 
-  size = 1024 + homelen;
+  ret = gloo_paths (home, leaf);
+  if (leaf)
+    free (leaf);
 
-  buf = malloc (size);
+  return ret;
+}
 
-  if (!buf)
-    fatal_moan ("malloc failed");
 
-  strcpy (buf, home);
-  strcat (buf, "/");
 
-  while (1)
-    {
+Socket *
+find_socket (char **retpath, char *fmt, ...)
+{
+  Socket *ret;
+  char *path, *leaf, *h, **ptr;
+  va_list ap;
 
 
+  if (fmt)
+    {
       va_start (ap, fmt);
-      n = vsnprintf (buf + homelen, size - homelen, fmt, ap);
+      leaf = teedious_snprintf (fmt, ap);
       va_end (ap);
+    }
+  else
+    {
+      leaf = NULL;
+    }
 
-      if (n > -1 && n < (size - homelen))
-        return buf;
 
-      if (n > -1)               /* glibc 2.1 */
-        size = homelen + n + 1;
-      else                      /* glibc 2.0 */
-        size *= 2;              /* twice the old size */
+  for (ptr = socket_dirs; *ptr; ptr++)
+    {
+      if (**ptr == '~')
+        {
+          h = mome (*ptr + 1);
+        }
+      else
+        {
+          h = *ptr;
+        }
 
-      buf = realloc (buf, size);
+      if (!h)
+        continue;
+
+
+      path = gloo_paths (h, leaf);
+      if (**ptr == '~')
+        free (h);
+
+      ret = socket_connect (path);
+
+
+      if (ret)
+        {
+          if (retpath)
+            {
+              *retpath = path;
+            }
+          else
+            {
+              free (path);
+            }
+          free (leaf);
+          return ret;
+        }
+      free (path);
 
-      if (!buf)
-        fatal_moan ("malloc failed");
     }
+
+  free (leaf);
+  return NULL;
+
 }
 
 
+
 int
-list_sockets (void)
+list_sockets_in_dir (char *sockdir)
 {
   struct dirent *ent;
   struct stat buf;
   char *sn = NULL;
   Socket *s;
-  char *sockdir = mome ("/.sympathy/");
   DIR *dir = opendir (sockdir);
 
 
@@ -176,14 +421,14 @@ list_sockets (void)
   int hostname_len = strlen (hostname);
 
   if (!dir)
-    fatal_moan ("can't examine %s for sockets", sockdir);
+    return;
 
   rewinddir (dir);
 
 
   while ((ent = readdir (dir)))
     {
-      sn = mome (".sympathy/%s", ent->d_name);
+      sn = gloo_paths (sockdir, ent->d_name);
       if (stat (sn, &buf) || (!S_ISSOCK (buf.st_mode)))
         {
           free (sn);
@@ -194,18 +439,18 @@ list_sockets (void)
 
       if (s)
         {
-          printf ("\t%s        (Active)\n", ent->d_name);
+          printf ("\t%s        (Active)\n", sn);
           socket_free (s);
         }
       else
         {
           if (strncmp (ent->d_name, hostname, hostname_len))
             {
-              printf ("\t%s    (Unknown - not this host)\n", ent->d_name);
+              printf ("\t%s    (Unknown - not this host)\n", sn);
             }
           else
             {
-              printf ("\t%s    (Dead, wiped)\n", ent->d_name);
+              printf ("\t%s    (Dead, wiped)\n", sn);
               unlink (sn);
             }
         }
@@ -218,6 +463,35 @@ list_sockets (void)
   return 0;
 }
 
+int
+list_sockets (void)
+{
+  char **ptr, *h;
+
+
+  for (ptr = socket_dirs; *ptr; ptr++)
+    {
+      if (**ptr == '~')
+        {
+          h = mome (*ptr + 1);
+        }
+      else
+        {
+          h = *ptr;
+        }
+
+      if (!h)
+        continue;
+
+      list_sockets_in_dir (h);
+
+      if (**ptr == '~')
+        free (h);
+
+    }
+
+  return 0;
+}
 
 void
 get_hostname (void)
@@ -235,31 +509,54 @@ get_hostname (void)
   strcat (hostname, ".");
 }
 
+void
+send_to_server (Socket * c, char *s)
+{
+  int n;
+
+  s = expand (s, &n);
+
+  if (!n)
+    return;
+
+  while (n--)
+    {
+      ipc_msg_send_key (c, *(uint8_t *) s);
+      s++;
+    }
+  ipc_msg_send_killme (c);
+}
 
 int
 main (int argc, char *argv[])
 {
+  Context ctx_store = { 0 }, *ctx = &ctx_store;
   int c;
   extern char *optarg;
   extern int optind, opterr, optopt;
-  int width=VT102_COLS_80;
+  CRT_Pos size = { VT102_COLS_80, VT102_ROWS_24 };
+
+  ANSI *ansi = NULL;
+
+  int cs_pipe[2] = { 0 };
+  int cs = 0;
 
   int oflags[128];
   char *oargs[128];
 
   Socket *server_socket = NULL, *client_socket = NULL;
-  ANSI *ansi = NULL;
-  TTY *tty = NULL;
-  Log *log = NULL;
 
   int history = 200;
+  int pid;
 
+  char *pid_file = NULL;
 
   get_hostname ();
 
   memset (oflags, 0, sizeof (oflags));
   memset (oargs, 0, sizeof (oargs));
-    while ((c = getopt (argc, argv, "w:utscr:lKHd:pb:fL:Fk:n:")) != EOF)
+
+  while ((c = getopt (argc, argv, "BI:NCSRP:vw:utscr:lKHd:pb:fL:Fk:n:")) != EOF)
     {
       switch (c)
         {
@@ -267,51 +564,71 @@ main (int argc, char *argv[])
         case 'h':
         case '?':
           usage ();
+        case 'S':
+          use_syslog++;
+          openlog ("sympathy", LOG_PID | LOG_CONS, LOG_DAEMON);
+          /*fall through */
         default:
-          if ((c > 64) && (c < 91))
+          if ((c >= 'A') && (c <= 'Z'))
             {
               oflags[c]++;
               oargs[c] = optarg;
             }
-          else if ((c > 96) && (c < 123))
+          else if ((c >= 'a') && (c <= 'z'))
             {
               oflags[c]++;
               oargs[c] = optarg;
             }
           else
             {
-              fprintf (stderr, "unknown option %c\n", c);
+              if (use_syslog)
+                {
+                  syslog (LOG_ERR, "unknown option %c\n", c);
+                }
+              else
+                {
+                  fprintf (stderr, "unknown option %c\n", c);
+                }
               usage ();
             }
         }
 
     }
 
-  /*Compatability for screen's ls */
+
+  /* Compatability for screen's ls */
   if (oflags['l'])
     oflags['s'] = 0;
 
 
-  if (!oflags['s'] && !oflags['c'] && !oflags['t'] && !oflags['r']
-      && !oflags['l'])
-    {
-      /*If no mode is specified behave like screen */
-      oflags['s']++;
-      oflags['c']++;
-    }
-
-
   {
     int sum = 0;
     sum += oflags['t'];
     sum += (oflags['s'] || oflags['c']) ? 1 : 0;
     sum += oflags['r'];
     sum += oflags['l'];
+    sum += oflags['v'];
+    sum += oflags['C'];
+
+    if (!sum)
+      {
+        /* If no mode is specified behave like screen */
+        oflags['s']++;
+        oflags['c']++;
+        sum++;
+      }
 
     if (sum != 1)
-      fatal_moan ("specifiy exactly one of ( -c and or -s ), -t, -r and -l");
+      fatal_moan
+        ("specifiy exactly one of ( -c and or -s ), -t, -r, -C, -l and -v");
   }
 
+  if (oflags['v'])
+    {
+      fprintf (stderr, "Version: %s\n", libsympathy_version ());
+      fprintf (stderr, "Version: %s\n", rcsid);
+      return 0;
+    }
 
   if (oflags['l'])
     return list_sockets ();
@@ -331,59 +648,44 @@ main (int argc, char *argv[])
         fatal_moan ("agrument to -n must be greater than zero");
     }
 
-  /*Fold -r into -c */
+  /* Fold -r implies -c */
   if (oflags['r'])
-    {
-      int id = safe_atoi (oargs['r']);
-      if (id < 0)
-        fatal_moan ("cannot parse -r %s as an integer", oargs['r']);
-
-      oflags['k']++;
-      oargs['k'] = mome ("/.sympathy/%s%d", hostname, id);
-      oflags['r'] = 0;
-      oflags['c']++;
-    }
+    oflags['c']++;
 
   if (oflags['p'] && oflags['d'])
     fatal_moan ("-p incompatible with -d");
 
-  /*implement server and client by opening the server socket to prevent */
-  /*a race condition, and then forking and munging the cmd line options */
-  /*in the parent and child so that the child is the server and the */
-  /*parent becomes its client */
 
   if (oflags['c'] && oflags['s'] && oflags['F'])
     fatal_moan ("-F is incompatible with -c -s");
 
-  if (oflags['s'] && !oflags['k'])
-    {
-      char *path;
-      path = mome ("/.sympathy");
-      mkdir (path, 0700);
-      free (path);
-
-      oargs['k'] = mome ("/.sympathy/%s%d", hostname, getpid ());
-      oflags['k']++;
-    }
+  if (oflags['H'] && oflags['N'])
+    fatal_moan ("-H is incompatible with -N");
 
-  if (oflags['s'])
-    {
-      server_socket = socket_listen (oargs['k']);
-      if (!server_socket)
-        fatal_moan ("failed to create socket %s for listening", oargs['k']);
-    }
+  /* implement server and client: this process forks. The parent */
+  /* becomes the client and the child forks again to become the */
+  /* server. If there's no -k argument the client (parent) needs */
+  /* to find out the pid of the server, we use a pipe */
 
   if (oflags['s'] && oflags['c'])
     {
-      switch (fork ())
+      cs++;
+      int result;
+      result = pipe (cs_pipe);
+
+      switch (pid = fork ())
         {
-        case 0:                /*child becomes the server */
+        case 0:                /* child becomes the server */
           oflags['c'] = 0;
           oflags['H'] = 0;
+          oflags['N'] = 0;
+          oflags['I'] = 0;
+
+          close (cs_pipe[0]);
           break;
         case -1:
           fatal_moan ("fork failed");
-        default:
+        default:               /* parent becomes client */
           oflags['s'] = 0;
           oflags['K'] = 0;
           oflags['d'] = 0;
@@ -391,23 +693,53 @@ main (int argc, char *argv[])
           oflags['b'] = 0;
           oflags['f'] = 0;
           oflags['L'] = 0;
+          oflags['R'] = 0;
+          oflags['B'] = 0;
+          oflags['P'] = 0;
           oflags['n'] = 0;
-         oflags['w'] = 0;        
-          if (server_socket)
+          oflags['w'] = 0;
+
+          /* Collect the child */
+          waitpid (pid, NULL, 0);
+
+          /* if there was no k argument we need to find the */
+          /* pid of the server process so that we can work out */
+          /* what the socket is called. The server tells us on */
+          /* a pipe. We do this even if k is specified to avoid */
+          /* a race, the server writes to the pipe when the socket */
+          /* is opened */
+
+          close (cs_pipe[1]);
+
+          if (read (cs_pipe[0], &pid, sizeof (pid)) != sizeof (pid))
+            fatal_moan ("Failed to receive pid of server process");
+
+          close (cs_pipe[0]);
+
+          if (!oflags['k'])
             {
-              socket_free_parent (server_socket);
-              server_socket = NULL;
+              oargs['k'] = mome ("/.sympathy/%s%d", hostname, pid);
+              oflags['k']++;
             }
         }
     }
 
 
-  if (oflags['c'] && !oflags['k'])
-    fatal_moan ("-c requires a socket to be specified with -s or -k");
+
+  if (oflags['c'] && !oflags['k'] && !oflags['r'])
+    fatal_moan ("-c requires a socket to be specified with -s or -k or -r");
+
+  if ((oflags['H'] || oflags['N'] || oflags['I']) && oflags['s'])
+    fatal_moan ("-s is incompatible with -H, -N and -I");
 
   if ((oflags['p'] || oflags['d'] || oflags['K'] || oflags['b'] || oflags['f']
-       || oflags['L']) && oflags['c'])
-    fatal_moan ("-c or -r are incompatible with -p, -d, -K, -b, -f or -L");
+       || oflags['L'] || oflags['R'] || oflags['B'] || oflags['P']) && oflags['c'])
+    fatal_moan
+      ("-c or -r are incompatible with -p, -d, -K, -b, -f, -R, -P, -B or -L");
+
+  if (oflags['C'] && (!oflags['d']))
+    fatal_moan ("-C requires -d");
+
 
   if (oflags['t'] || oflags['s'])
     {
@@ -415,42 +747,149 @@ main (int argc, char *argv[])
         oflags['p']++;
     }
 
-  if (oflags['w']) {
-       width=safe_atoi(oargs['w']);
-       if ((width>VT102_MAX_COLS) || (width<1)) 
-               fatal_moan("-w requires a width between 1 and %d\n",VT102_MAX_COLS);
-  }
+  if (oflags['w'])
+    {
+      char buf[128], *ptr;
+      strcpy (buf, oargs['w']);
+      ptr = index (buf, 'x');
+      if (ptr)
+        {
+          *ptr = 0;
+          ptr++;
+          size.y = safe_atoi (ptr);
+        }
+      size.x = safe_atoi (buf);
+
+      if ((size.x > VT102_MAX_COLS) || (size.x < 1))
+        fatal_moan ("-w requires a width between 1 and %d\n", VT102_MAX_COLS);
+
+      if ((size.y > VT102_MAX_ROWS) || (size.y < 1))
+        fatal_moan ("-w requires a height between 1 and %d\n",
+                    VT102_MAX_ROWS);
+
+    }
 
   if (oflags['s'] && !oflags['F'])
     {
-      daemon (1, 0);            /*incase socket is relative path, unlink then will fail */
+      /* nochdir incase socket is relative path, unlink then will fail */
+      int fish;
+      fish = daemon (1, 0);
+
     }
 
+  garlic ();
 
-  if (oflags['s'] || oflags['t'])
+  if (oflags['s'])
     {
+      char *path;
+      path = mome ("/.sympathy");
+      mkdir (path, 0700);
+      free (path);
+
+
+      if (!oflags['k'])
+        {
+          pid = getpid ();
+
+          oargs['k'] = mome ("/.sympathy/%s%d", hostname, pid);
+          oflags['k']++;
+        }
+
+      server_socket = socket_listen (oargs['k']);
+
+      /* Tell our parent's parent what our pid is */
+      /* and that we've opened the server socket */
+      if (cs)
+        {
+          pid = getpid ();
+
+         int fish;
+          fish = write (cs_pipe[1], &pid, sizeof (pid));
+          close (cs_pipe[1]);
+        }
+
+      if (!server_socket)
+        fatal_moan ("failed to create socket %s for listening", oargs['k']);
+
+    }
+
+  if (oflags['s'] || oflags['t'] || oflags['C'])
+    {
+      if (oflags['P'])
+        {
+          FILE *fp;
+          pid_file = oargs['P'];
+          fp = fopen (pid_file, "w");
+          if (fp)
+            {
+              fprintf (fp, "%d", getpid ());
+              fclose (fp);
+            }
+        }
 
       if (oflags['L'])
         {
-          log = file_log_new (oargs['L']);
-          if (!log)
+          ctx->l = file_log_new (oargs['L'], oflags['R']);
+         ctx->byte_logging=oflags['B'];
+          if (!ctx->l)
             fatal_moan ("unable to access log file %s", oargs['L']);
         }
 
       if (oflags['p'])
         {
-          tty = ptty_open (NULL, NULL, width);
-          if (!tty)
+          if (optind < argc)
+            {
+              ctx->t = ptty_open (argv[optind], &argv[optind], &size);
+            }
+          else
+            {
+              ctx->t = ptty_open (NULL, NULL, &size);
+            }
+
+          if (!ctx->t)
             fatal_moan ("unable to open a ptty");
         }
       else
         {
-          tty =
+          /* HACK-- check that console=device does not occur in */
+          /* /proc/cmdline */
+          if (!oargs['d'])
+            fatal_moan ("no argument to -d");
+
+          {
+            char kernel_cmdline[4096] = { 0 };
+            char search_string[1024] = "console=";
+            char *ptr = oargs['d'];
+            int fd;
+
+            if (!strncmp ("/dev/", ptr, 5))
+              ptr += 5;
+
+            strcat (search_string, ptr);
+
+            fd = open ("/proc/cmdline", O_RDONLY);
+           int fish;
+            fish = read (fd, kernel_cmdline, sizeof (kernel_cmdline));
+            close (fd);
+
+            kernel_cmdline[sizeof (kernel_cmdline) - 1] = 0;
+
+            if (strstr (kernel_cmdline, search_string))
+              fatal_moan ("/proc/cmdline contains %s", search_string);
+          }
+
+          ctx->t =
             serial_open (oargs['d'],
                          oflags['K'] ? SERIAL_LOCK_ACTIVE :
                          SERIAL_LOCK_PASSIVE);
-          if (!tty)
+          if (!ctx->t)
             fatal_moan ("unable to open serial port %s", oargs['d']);
+
+          if (oflags['C'])
+            {
+              ctx->t->close (ctx->t);
+              return 0;
+            }
         }
 
       if (oflags['b'])
@@ -460,43 +899,97 @@ main (int argc, char *argv[])
           if (baud < 0)
             fatal_moan ("Unable to parse baudrate %s", oargs['b']);
 
-          tty_set_baud (tty, baud);
+          tty_set_baud (ctx->t, baud);
 
         }
 
-      tty_set_flow (tty, oflags['f'] ? 1 : 0);
-
+      tty_set_flow (ctx->t, oflags['f'] ? 1 : 0);
     }
 
-  if (oflags['c'])
+
+  if (oflags['r'])
     {
+      char *id = oargs['r'];
+
+      if (!id)
+        fatal_moan ("-r requires an argument");
+
+      if (safe_atoi (id) > 0)
+        {
+          client_socket =
+            find_socket (&oargs['k'], "%s%d", hostname, safe_atoi (id));
+        }
+      else
+        {
+          client_socket = find_socket (&oargs['k'], "%s", id);
+        }
+
+      if (!client_socket)
+        fatal_moan ("failed to find socket %s", oargs['r']);
 
+    }
+  else if (oflags['c'])
+    {
       client_socket = socket_connect (oargs['k']);
+
       if (!client_socket)
         fatal_moan ("failed to connect to socket %s", oargs['k']);
 
-
     }
 
-
-  if (oflags['c'] || oflags['t'])
+  if (oflags['I'])
     {
+      if (!client_socket)
+        fatal_moan ("-I requires either -c or -r", oargs['k']);
+      if (!oargs['I'])
+        fatal_moan ("-I requires an arugment");
+      send_to_server (client_socket, oargs['I']);
+    }
+  else
+    {
+      if (client_socket)
+        ipc_msg_send_initialize (client_socket);
 
-      if (oflags['H'])
-        {
-          ansi = ansi_new_html (stdout);
-        }
-      else
+      if (oflags['c'] || oflags['t'])
         {
-          terminal_register_handlers ();
-          ansi =
-            ansi_new_from_terminal (terminal_open (0, 1),
-                                    oflags['u'] ? 0 : 1);
-          ansi->reset (ansi, NULL);
+          if (oflags['N'])
+            {
+              ctx->r = rx_new_raw (0, 1);
+              ansi = ansi_new_raw (0, 1);
+            }
+          else if (oflags['H'])
+            {
+              ansi = ansi_new_html (stdout);
+            }
+          else
+            {
+              terminal_register_handlers ();
+              ansi =
+                ansi_new_from_terminal (terminal_open (0, 1),
+                                        oflags['u'] ? 0 : 1);
+              ansi->reset (ansi, NULL);
+
+            }
+
+          if (ansi->set_title)
+            {
+              if (oflags['c'] && oargs['k'])
+                {
+                  ansi->set_title (ansi, oargs['k']);
+                }
+              else if ((ctx->t) && (ctx->t->name))
+                {
+                  ansi->set_title (ansi, ctx->t->name);
+                }
+            }
+
         }
     }
 
-  mainloop (tty, server_socket, client_socket, ansi, log, history,width);
+  ctx->v = vt102_new (&size);
+  ctx->h = history_new (history);
+
+  mainloop (ctx, ansi, server_socket, client_socket);
 
   if (ansi)
     {
@@ -504,17 +997,20 @@ main (int argc, char *argv[])
       terminal_atexit ();
     }
 
-  if (tty)
-    tty->close (tty);
+  if (ctx->t)
+    ctx->t->close (ctx->t);
 
-  if (log)
-    log->close (log);
+  if (ctx->l)
+    ctx->l->close (ctx->l);
   if (server_socket)
     socket_free (server_socket);
   if (client_socket)
     socket_free (client_socket);
 
-  if (!oflags['H'])
+  if (pid_file)
+    unlink (pid_file);
+
+  if (!oflags['H'] && !oflags['I'])
     printf ("you have now exited sympathy\n");
   return 0;
 }