chiark / gitweb /
Great reorganization.
[tripe] / server / tun-bsd.c
diff --git a/server/tun-bsd.c b/server/tun-bsd.c
new file mode 100644 (file)
index 0000000..4e8c0bd
--- /dev/null
@@ -0,0 +1,195 @@
+/* -*-c-*-
+ *
+ * $Id$
+ *
+ * Tunnel interface for 4.4BSD-derived systems
+ *
+ * (c) 2001 Straylight/Edgeware
+ */
+
+/*----- Licensing notice --------------------------------------------------* 
+ *
+ * This file is part of Trivial IP Encryption (TrIPE).
+ *
+ * TrIPE is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ * 
+ * TrIPE is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ * 
+ * You should have received a copy of the GNU General Public License
+ * along with TrIPE; if not, write to the Free Software Foundation,
+ * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+/*----- Header files ------------------------------------------------------*/
+
+#define TUN_INTERNALS
+
+#include "tripe.h"
+
+/*----- Main code ---------------------------------------------------------*/
+
+#ifdef TUN_BSD
+
+struct tunnel {
+  const tunnel_ops *ops;               /* Pointer to operations */
+  sel_file f;                          /* Selector for tunnel device */
+  struct peer *p;                      /* Pointer to my peer */
+  unsigned n;                          /* Number of my tunnel device */
+};  
+
+/* --- @t_ifname@ --- *
+ *
+ * Arguments:  @tunnel *t@ = pointer to tunnel block
+ *
+ * Returns:    A pointer to the tunnel's interface name.
+ */
+
+static const char *t_ifname(tunnel *t)
+{
+  static char buf[8];
+  sprintf(buf, "tun%u", t->n);
+  return (buf);
+}
+
+/* --- @t_read@ --- *
+ *
+ * Arguments:  @int fd@ = file descriptor to read
+ *             @unsigned mode@ = what's happened
+ *             @void *v@ = pointer to tunnel block
+ *
+ * Returns:    ---
+ *
+ * Use:                Reads data from the tunnel.
+ */
+
+static void t_read(int fd, unsigned mode, void *v)
+{
+  tunnel *t = v;
+  ssize_t n;
+  buf b;
+
+  n = read(fd, buf_i, sizeof(buf_i));
+  if (n < 0) {
+    a_warn("TUN", "%s", t_ifname(t), "read-error", "?ERRNO", A_END);
+    return;
+  }
+  IF_TRACING(T_TUNNEL, {
+    trace(T_TUNNEL, "tun-bsd: packet arrived");
+    trace_block(T_PACKET, "tun-bsd: packet contents", buf_i, n);
+  })
+  buf_init(&b, buf_i, n);
+  p_tun(t->p, &b);
+}
+
+/* --- @t_init@ --- *
+ *
+ * Arguments:  ---
+ *
+ * Returns:    ---
+ *
+ * Use:                Initializes the tunneling system.  Maybe this will require
+ *             opening file descriptors or something.
+ */
+
+static void t_init(void) { return; }
+
+/* --- @t_create@ --- *
+ *
+ * Arguments:  @peer *p@ = pointer to peer block
+ *
+ * Returns:    A tunnel block if it worked, or null on failure.
+ *
+ * Use:                Initializes a new tunnel.
+ */
+
+static tunnel *t_create(peer *p)
+{
+  int fd;
+  unsigned n;
+  tunnel *t;
+  char buf[16];
+
+  n = 0;
+  for (;;) {
+    sprintf(buf, "/dev/tun%u", n);
+    if ((fd = open(buf, O_RDWR)) >= 0)
+      break;
+    switch (errno) {
+      case EBUSY:
+       T( trace(T_TUNNEL, "tunnel device %u busy: skipping", n); )
+       break;
+      case ENOENT:
+       a_warn("TUN", "-", "bsd", "no-tunnel-devices", A_END);
+       return (0);
+      default:
+       a_warn("TUN", "-", "open-error", "%s", buf, "?ERRNO", A_END);
+       break;
+    }
+    n++;
+  }
+
+  t = CREATE(tunnel);
+  t->ops = &tun_bsd;
+  fdflags(fd, O_NONBLOCK, O_NONBLOCK, FD_CLOEXEC, FD_CLOEXEC);
+  t->p = p;
+  t->n = n;
+  sel_initfile(&sel, &t->f, fd, SEL_READ, t_read, t);
+  sel_addfile(&t->f);
+  T( trace(T_TUNNEL, "tun-bsd: attached interface %s to peer `%s'",
+          t_ifname(t), p_name(p)); )
+  return (t);
+}
+
+/* --- @t_inject@ --- *
+ *
+ * Arguments:  @tunnel *t@ = pointer to tunnel block
+ *             @buf *b@ = buffer to send
+ *
+ * Returns:    ---
+ *
+ * Use:                Injects a packet into the local network stack.
+ */
+
+static void t_inject(tunnel *t, buf *b)
+{
+  IF_TRACING(T_TUNNEL, {
+    trace(T_TUNNEL, "tun-bsd: inject decrypted packet");
+    trace_block(T_PACKET, "tun-bsd: packet contents", BBASE(b), BLEN(b));
+  })
+  write(t->f.fd, BBASE(b), BLEN(b));
+}
+
+/* --- @t_destroy@ --- *
+ *
+ * Arguments:  @tunnel *t@ = pointer to tunnel block
+ *
+ * Returns:    ---
+ *
+ * Use:                Destroys a tunnel.
+ */
+
+static void t_destroy(tunnel *t)
+{
+  sel_rmfile(&t->f);
+  close(t->f.fd);
+  DESTROY(t);
+}
+
+const tunnel_ops tun_bsd = {
+  "bsd",
+  t_init,
+  t_create,
+  t_ifname,
+  t_inject,
+  t_destroy
+};
+
+#endif
+
+/*----- That's all, folks -------------------------------------------------*/