Import the ISDN userland utilities. Just about ready to start shaking

this baby out in earnest..

4 files changed, 557 insertions, 0 deletions

diff --git a/gnu/usr.sbin/isdn/iid/Changes b/gnu/usr.sbin/isdn/iid/Changes
new file mode 100644
index 0000000..49b1bbb
--- /dev/null
+++ b/gnu/usr.sbin/isdn/iid/Changes
@@ -0,0 +1,27 @@
+1c1
+< static char     rcsid[] = "@(#)$Id: iid.c,v 1.1 1994/12/19 07:25:48 jkr Exp $";
+---
+> static char     rcsid[] = "@(#)$Id: iid.c,v 1.2 1994/12/22 16:53:13 jkr Exp $";
+3c3
+<  *  ISDN System  -  $Revision: 1.1 $   $State: Exp $
+---
+>  *  ISDN System  -  $Revision: 1.2 $   $State: Exp $
+13a14,17
+>  * Revision 1.2  1994/12/22  16:53:13  jkr
+>  * changes for rescan/signal
+>  * next_lno = next_dno = 0
+>  *
+17,19d20
+<  * Revision 1.1  1994/12/16  19:39:44  jkr
+<  * Initial revision first check in
+<  *
+96a98
+> 	next_lno = next_dno = 0; /* jkr*/
+186a189,191
+> #ifdef TEST
+> fprintf(stderr,"DIAL-NR:%s\n",p+1);
+> #endif
+203a209,211
+> #ifdef TEST
+> fprintf(stderr,"LIST-NR:%s\n",p+1);
+> #endif
diff --git a/gnu/usr.sbin/isdn/iid/Makefile b/gnu/usr.sbin/isdn/iid/Makefile
new file mode 100644
index 0000000..243bf21
--- /dev/null
+++ b/gnu/usr.sbin/isdn/iid/Makefile
@@ -0,0 +1,4 @@
+PROG=		iid
+CFLAGS+=	-DBSD -O
+
+.include <bsd.prog.mk>
diff --git a/gnu/usr.sbin/isdn/iid/iid.1 b/gnu/usr.sbin/isdn/iid/iid.1
new file mode 100644
index 0000000..ab2112f
--- /dev/null
+++ b/gnu/usr.sbin/isdn/iid/iid.1
@@ -0,0 +1,62 @@
+.\" Copyright (c) 1994 Dietmar Friede
+.Dd September 15, 1994
+.Os BSD
+.Dt "ISDN iid" 1
+.Sh NAME
+.Nm iid
+.Nd ISDN ip daemon
+.Sh SYNOPSIS
+.Nm iid
+[ -F ] [ -c file ] [ -l file ]
+
+-F	do not fork
+
+-c file	use file as source of the configuration (default /etc/isdn.ip)
+
+-l file	use file as logfile (default /var/log/isdn.ip)
+
+.Sh DESCRIPTION
+Die Form der Konfigurationdatei /etc/isdn.ip wird,
+bis ich das mit dem Euro ISDN verstanden hab:
+
+1. Zeile beschreibt auf welcher Nummer (Subadresse, "EAZ") der Treiber hoert:
+
+An:
+
+Bedeutet Adresse n ("EAZ" n).
+
+Die folgenden Zeilen beschreiben jeweils ein Interface (ii0 - iin)
+
+0:d102:l102:pu:m1500:s1502:w10:
+1:d133:d132:l133:pr:m500:s500:w0:
+2:d134:l134:l123:pX:a3:m2048:s2048:w600:
+3:d334:d335:l334:l323:pC:m1000:s1000:w30:
+
+Wobei die erste Spalte die Nummer des Interfaces ist.
+
+dn	dial n		waehle die Nummer n
+
+an	adress a	benutz beim Waehlen 'n' als Suffix der eigenen Adresse
+
+ln	listen n	hoere auf der Nummer n
+
+px	protocoll x	siehe oben.
+
+wn	wait n		Haeng auf wenn n Sekunden nichts uebertragen wurde, n = 0 haeng nicht auf.
+
+mn	mtu n		die maximale IP Uebertagungslaenge wird n
+
+sm	size m		Pufferlaenge der ISDN-Karte sm >= mn bei UI sm >= mn+2
+
+Wobei das Maximum 2048 ist.
+
+Das direkte IP ISDN Interface funktioniert nur wenn, die anrufende
+Gegenstelle sich mit ihrer Nummer identifiziert. Mit Hilfe dieser Nummer
+wird dann das Interface iin ausgewaehlt.
+
+Als Protokoll wird HDLC mit UI-frames (u), HDLC roh (r), X75 (X) und BTX-X75 (C)
+unterstuetzt.
+
+Falls irgendein Hacker gerne irgend eine andere Methode moechte sei sie
+auf das tty Interface verwiesen. Nach normalen login kann dort
+slip benutzt werden. Es ist keine weitere Idendifikation noetig.
diff --git a/gnu/usr.sbin/isdn/iid/iid.c b/gnu/usr.sbin/isdn/iid/iid.c
new file mode 100644
index 0000000..11b8c36
--- /dev/null
+++ b/gnu/usr.sbin/isdn/iid/iid.c
@@ -0,0 +1,464 @@
+static char     rcsid[] = "@(#)$Id: iid.c,v 1.4 1995/01/25 13:42:33 jkr Exp jkr $";
+/*******************************************************************************
+ *  II - Version 0.1 $Revision: 1.4 $   $State: Exp $
+ *
+ * Copyright 1994 Dietmar Friede
+ *******************************************************************************
+ * Bug reports, patches, comments, suggestions should be sent to:
+ *
+ *	jkr@saarlink.de or jkrause@guug.de
+ *
+ *******************************************************************************
+ * $Log: iid.c,v $
+ *
+ ******************************************************************************/
+
+/* ISDN IP Daemon */
+/* It handles dial and accept requests for ISDN-IP Connections */
+
+#include <sys/types.h>
+#include <stdio.h>
+#include <signal.h>
+#include <errno.h>
+#include <setjmp.h>
+#include <string.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <sys/ioctl.h>
+#include <sys/file.h>
+#include "../../../../sys/gnu/isdn/isdn_ioctl.h"
+#define min(a,b)	((a)<(b)?(a):(b))
+
+#define NII	4
+#define N_NO	(4*NII)
+
+telno_t         dial_no[N_NO];
+
+struct no
+{
+	u_char          from, n;
+}               no[NII];
+
+struct listen_no
+{
+	u_short         ap;
+	telno_t         t;
+}               listen_no[N_NO];
+
+listen_t        listen;
+dial_t          dial[NII];
+isdn_param      ip[NII];
+
+int             next_lno, next_dno;
+
+int             dofork = 1;
+int             quit = 0, rescan = 0;
+jmp_buf         context;
+char           *logfile = "/var/log/isdn.ip";
+char           *configfile = "/etc/isdn.ip";
+
+int             subadr, prot, timeout, bsize, spv, ui, serv;
+int             def_subadr = 1;
+int             ind, rind;
+char            rbuf[2048];
+unsigned short  si_mask;
+
+void
+catchsig()
+{
+	quit++;
+	longjmp(context, 1);
+}
+
+void
+catchsighup()
+{
+	rescan++;
+	(void) signal(SIGHUP, catchsighup);
+	longjmp(context, 1);
+}
+
+setdefault()
+{
+	subadr = -1;
+	prot = 2;
+	ui = 1;
+	serv = 7;
+	timeout = 600;
+	bsize = 2048;
+	spv = 0;
+	next_lno = next_dno = 0;/* jkr */
+}
+
+char           *
+gettoc()
+{
+	if (rind == -1)
+	{
+		rind = 0;
+		return (rbuf);
+	}
+	while (rbuf[++rind]);
+	rind++;
+
+	if (rind >= ind)
+		return (NULL);
+
+	return (&rbuf[rind]);
+}
+
+filline(FILE * f)
+{
+	int             c;
+
+	ind = 1;
+	rbuf[0] = 'H';
+
+	while ((c = fgetc(f)) != EOF)
+	{
+		if (isalnum(c))
+		{
+			rbuf[ind++] = c;
+		} else
+			switch (c)
+			{
+			case '#':
+				fgets(rbuf + ind, 2048 - ind, f);
+				if (ind == 1)
+					break;
+				/* Fall through */
+			case '\n':
+				rbuf[ind] = 0;
+				rind = -1;
+				return (0);
+			case ':':
+				rbuf[ind++] = 0;
+				break;
+			}
+	}
+	if (ind > 1)
+		return (0);
+	return (EOF);
+}
+
+process(FILE * f, int n)
+{
+	char           *p;
+	int             ap = 0;
+	telno_t        *t;
+
+	setdefault();
+
+	no[ap].from = no[ap].n = 0;
+	while (filline(f) != EOF)
+	{
+		while ((p = gettoc()) != NULL)
+			switch (p[0])
+			{
+			case 'A':
+				def_subadr = p[1] - '0';
+				listen.subadr_mask |= 1 << def_subadr;
+				break;
+			case 'a':
+				subadr = p[1] - '0';
+				break;
+			case 'd':
+				if (next_dno >= N_NO)
+				{
+					fprintf(stderr, "Too many numbers to dial\n");
+					exit(1);
+				}
+				t = &dial_no[next_dno++];
+				no[ap].n++;
+				t->length = strlen(p + 1) + 1;
+				if (t->length > 123)
+				{
+					fprintf(stderr, "ISDN number too long\n");
+					exit(1);
+				}
+				t->no[0] = 0x81;
+				strncpy(&t->no[1], p + 1, t->length);
+				break;
+			case 'l':
+				if (next_lno >= N_NO)
+				{
+					fprintf(stderr, "Too many numbers to listen\n");
+					exit(1);
+				}
+				listen_no[next_lno].ap = ap;
+				t = &listen_no[next_lno++].t;
+				t->length = strlen(p + 1) + 1;
+				if (t->length > 123)
+				{
+					fprintf(stderr, "ISDN number too long\n");
+					exit(1);
+				}
+				t->no[0] = 0x81;
+				strncpy(&t->no[1], p + 1, t->length);
+				break;
+			case 'p':
+				switch (p[1])
+				{
+				case 'r':
+					serv = 7;
+					prot = 2;
+					ui = 0;
+					break;
+				case 'u':
+					serv = 7;
+					prot = 2;
+					ui = 1;
+					break;
+				case 'X':
+					serv = 7;
+					prot = 1;
+					ui = 0;
+					break;
+				case 'C':
+					serv = 15;
+					prot = 5;
+					ui = 0;
+					break;
+				default:
+					fprintf(stderr, "Protocoll not supported\n");
+					exit(1);
+				}
+				break;
+			case 'w':
+				timeout = atoi(p + 1);
+				break;
+			case 's':
+				bsize = atoi(p + 1);
+				break;
+			case 'S':
+				spv++;
+				break;
+			default:
+			}
+		fillparam(ap, &ip[ap], &dial[ap]);
+		if (ioctl(n, ISDN_SET_PARAM, &ip[ap]) < 0)
+		{
+			perror("ioctl: Set Param");
+			exit(3);
+		}
+		setdefault();
+		ap++;
+		no[ap].from = next_dno;
+		no[ap].n = 0;
+	}
+	listen.si_mask = si_mask;
+	if (listen.subadr_mask == 0)
+		listen.subadr_mask |= 1 << def_subadr;
+	listen.inf_mask = 3;
+	listen.ctrl = 0;
+	if (ioctl(n, ISDN_LISTEN, &listen) < 0)
+	{
+		perror("ioctl: Listen");
+		exit(4);
+	}
+}
+
+fillparam(int ap, isdn_param * ip, dial_t * d)
+{
+	if (subadr == -1)
+		subadr = def_subadr;
+	si_mask |= (u_short) (1 << serv);
+	/*
+	 * spv = 0;
+	 */
+	bzero(ip, sizeof(isdn_param));
+	bzero(d, sizeof(dial_t));
+	d->appl = ip->appl = ap;
+	d->b_channel = 0x83;
+	d->inf_mask = 3;
+	d->out_serv = serv;
+	d->src_subadr = '0' + subadr;
+	ip->dlpd.protokoll = prot;
+	ip->dlpd.length = 7;
+	ip->dlpd.data_length = bsize;
+	ip->timeout = timeout;
+	ip->prot = ui;
+	ip->ncpd.protokoll = 4;
+}
+
+void
+main(int argc, char **argv)
+{
+	FILE           *f;
+	int             a, n, i;
+	u_char          buf[4];
+
+	dofork = 1;
+
+	while ((i = getopt(argc, argv, "c:l:F")) != EOF)
+		switch (i)
+		{
+		default:
+			fprintf(stderr, "Usage: iid [ -F ] [ -c configfile ] [ -l logfile ]\n");
+			exit(1);
+		case 'c':
+			configfile = optarg;
+			break;
+		case 'l':
+			logfile = optarg;
+			break;
+		case 'F':
+			dofork = 0;
+			break;
+		}
+
+	if (dofork)
+	{
+		if ((i = fork()) < 0)
+		{
+			fprintf(stderr, "Can't fork, %m");
+			exit(1);
+		}
+		if (i > 0)
+			exit(0);
+	}			/* running as daemon now */
+	if (freopen(logfile, "a", stderr) == NULL)
+	{
+		perror(logfile);
+		exit(1);
+	}
+	if ((n = open("/dev/isdn", O_RDWR)) < 0)
+	{
+		perror("open: /dev/isdn");
+		exit(1);
+	}
+	if ((f = fopen(configfile, "r")) == NULL)
+	{
+		perror(configfile);
+		exit(1);
+	}
+	process(f, n);
+	fclose(f);
+
+	(void) signal(SIGHUP, catchsighup);
+
+	(void) signal(SIGTERM, catchsig);
+	(void) signal(SIGKILL, catchsig);
+	(void) signal(SIGINT, catchsig);
+	(void) signal(SIGQUIT, catchsig);
+
+	rescan = quit = 0;
+	fprintf(stderr, "s:iid started\n");
+	fflush(stderr);
+	while (1)
+	{
+		int             l;
+		int             an, cn, serv, serv_add, subadr;
+		int             typ, nl, dl;
+		char           *tn;
+
+		(void) setjmp(context);
+		if ((l = read(n, rbuf, 1024)) > 0)
+		{
+			switch (rbuf[0])
+			{
+			case 'a':
+				sscanf(rbuf + 2, "%d %d %d %d %d %d %d %n",
+				       &an, &cn, &serv, &serv_add, &subadr, &typ, &nl, &l);
+				l += 2;
+				buf[0] = cn;
+				buf[1] = find_appl(an, rbuf + l);
+				buf[2] = buf[3] = 0;
+				if (buf[1] == 0xff)
+				{
+					buf[2] = 0x3e;	/* call reject */
+				}
+				if (ioctl(n, ISDN_ACCEPT, &buf) < 0)
+				{
+					perror("ioctl: Accept");
+				}
+				if (buf[1] == 0xff)
+					fprintf(stderr, "r:%d:%s\n", an, rbuf + l);
+				else
+					fprintf(stderr, "a:%d:%s\n", an, rbuf + l);
+				break;
+			case 'd':
+				sscanf(rbuf + 2, "%d", &an);
+				dial[an].ctrl = 0;
+				dial[an].appl = an;
+				if (no[an].n)
+					dial[an].telno = dial_no[no[an].from];
+				else
+				{
+					fprintf(stderr, "cannot dial %d\n", an);
+					break;
+				}
+				if (ioctl(n, ISDN_DIAL, &dial[an]) < 0)
+				{
+					perror("ioctl: Dial");
+				}
+				fprintf(stderr, "d:%d:%s\n", an, &dial[an].telno.no[1]);
+				break;
+			case 'i':
+				sscanf(rbuf + 2, "%d %d %d %n", &an, &typ, &nl, &l);
+				fprintf(stderr, "i:%d:%x:%s\n", an, typ, rbuf + l + 2);
+				switch (typ)
+				{
+				case 2:
+					break;
+				}
+				break;
+			case 'C':
+				sscanf(rbuf + 2, "%d %d %d", &an, &cn, &dl);
+				if (dl)
+				{
+					buf[0] = cn;
+					buf[1] = an;
+					buf[2] = 0;
+					if (ioctl(n, ISDN_ACCEPT, buf) < 0)
+					{
+						perror("ioctl: Accept");
+					}
+				}
+				fprintf(stderr, "C:%d:%d\n", an, cn);
+				break;
+			case 'D':
+				sscanf(rbuf + 2, "%d %d", &an, &cn);
+				fprintf(stderr, "D:%d:%d\n", an, cn);
+				break;
+			default:
+				break;
+			}
+		}
+		if (quit)
+		{
+			fprintf(stderr, "s:Quit\n");
+			exit(0);
+		}
+		if (rescan)
+		{
+			fprintf(stderr, "s:rescan\n");
+			rescan = 0;
+			if ((f = fopen(configfile, "r")) == NULL)
+				perror(configfile);
+			else
+			{
+				process(f, n);
+				fclose(f);
+			}
+		}
+		fflush(stderr);
+	}
+}
+
+int
+find_appl(int an, u_char * b)
+{
+	int             i;
+	char           *tn;
+
+	for (i = 0; i < next_lno; i++)
+	{
+		if (((tn = strstr(b, &listen_no[i].t.no[1])) != NULL)
+		    && (strcmp(&listen_no[i].t.no[1], tn) == 0))
+			return (listen_no[i].ap);
+	}
+
+	fprintf(stderr, "I?:%d:%s\n", an, b);
+	return (-1);
+}