X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/eaa862321f94dbe879c2a1d60a426c923cf04c09..1c15e88899094343f75aeba04122cd96a96b428e:/usr/src/usr.bin/tip/tip.c

diff --git a/usr/src/usr.bin/tip/tip.c b/usr/src/usr.bin/tip/tip.c
index 3013bed10f..7bc02d6804 100644
--- a/usr/src/usr.bin/tip/tip.c
+++ b/usr/src/usr.bin/tip/tip.c
@@ -1,51 +1,40 @@
-/*	tip.c	4.2	81/05/10	*/
 /*
- * tip - Unix link to other systems
- *  tip [-v] [-speed] system-name
- *
- * Uses remote file for system descriptions.
- * Current commands (escapes):
- *
- *	~!	fork a shell on the local machine
- *	~c	change working directory on local machine
- *	~^D	exit tip
- *	~<	fetch file from remote system
- *	~>	send file to remote system
- *	~t	take a file from a remote UNIX (uses cat & echo)
- *	~p	send a file to a remote UNIX (uses cat)
- *	~|	fetch file from remote system and pipe it to
- *		 a local process
- *	~%	fork and wait for a program which inherits file
- *		 descriptors 3 & 4 attached to the remote machine
- *		 (optional by CONNECT define)
- *	~s	set or show variable
- *	~?	give a help summary
- *
- * Samuel J. Leffler	1-18-81
- *
- * sjl			2-11-81
- * add auto-dial stuff for the BIZCOMP
- *
- * sjl			2-14-81
- * cleaned up auto-dialer stuff and added variables
- *
- * sjl			2-19-81
- * handle quit and interrupt during calls
- *
- * sjl			3-8-81
- * made to pass lint
+ * Copyright (c) 1983 The Regents of the University of California.
+ * All rights reserved.
  *
- * sjl			4-11-81
- * mods to handle both FIOCAPACITY and FIONREAD in biz.c
- *
- * sjl			4-17-81
- * added take and put, made piping stuff work
- * honor uucp locks
- * rewrite remote file stuff for DN-11 like acu's and just to clean
- *   it up
+ * Redistribution and use in source and binary forms are permitted
+ * provided that: (1) source distributions retain this entire copyright
+ * notice and comment, and (2) distributions including binaries display
+ * the following acknowledgement:  ``This product includes software
+ * developed by the University of California, Berkeley and its contributors''
+ * in the documentation or other materials provided with the distribution
+ * and in all advertising materials mentioning features or use of this
+ * software. Neither the name of the University nor the names of its
+ * contributors may be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  */
 
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1983 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)tip.c	5.13 (Berkeley) 6/1/90";
+#endif /* not lint */
+
+/*
+ * tip - UNIX link to other systems
+ *  tip [-v] [-speed] system-name
+ * or
+ *  cu phone-number [-s speed] [-l line] [-a acu]
+ */
 #include "tip.h"
+#include "pathnames.h"
 
 /*
  * Baud rate mapping table
@@ -55,19 +44,30 @@ int bauds[] = {
 	1200, 1800, 2400, 4800, 9600, 19200, -1
 };
 
-int	intprompt();
-int	timeout();
-static int cleanup();
+int	disc = OTTYDISC;		/* tip normally runs this way */
+void	intprompt();
+void	timeout();
+void	cleanup();
+char	*sname();
+char	PNbuf[256];			/* This limits the size of a number */
 
 main(argc, argv)
-char *argv[];
+	char *argv[];
 {
 	char *system = NOSTR;
 	register int i;
-#ifdef VMUNIX
-	int disc;
-#endif
-	char *p;
+	register char *p;
+	char sbuf[12];
+
+	gid = getgid();
+	egid = getegid();
+	uid = getuid();
+	euid = geteuid();
+	if (equal(sname(argv[0]), "cu")) {
+		cumode = 1;
+		cumain(argc, argv);
+		goto cucommon;
+	}
 
 	if (argc > 4) {
 		fprintf(stderr, "usage: tip [-v] [-speed] [system-name]\n");
@@ -77,86 +77,134 @@ char *argv[];
 		fprintf(stderr, "tip: must be interactive\n");
 		exit(1);
 	}
-	if (argc > 1 && argv[argc-1][0] != '-')
-		system = argv[argc-1];		/* always last item */
-	signal(SIGINT, cleanup);
-	signal(SIGQUIT, cleanup);
-	signal(SIGHUP, cleanup);
-	signal(SIGTERM, cleanup);
+
+	for (; argc > 1; argv++, argc--) {
+		if (argv[1][0] != '-')
+			system = argv[1];
+		else switch (argv[1][1]) {
+
+		case 'v':
+			vflag++;
+			break;
+
+		case '0': case '1': case '2': case '3': case '4':
+		case '5': case '6': case '7': case '8': case '9':
+			BR = atoi(&argv[1][1]);
+			break;
+
+		default:
+			fprintf(stderr, "tip: %s, unknown option\n", argv[1]);
+			break;
+		}
+	}
+
+	if (system == NOSTR)
+		goto notnumber;
+	if (isalpha(*system))
+		goto notnumber;
+	/*
+	 * System name is really a phone number...
+	 * Copy the number then stomp on the original (in case the number
+	 *	is private, we don't want 'ps' or 'w' to find it).
+	 */
+	if (strlen(system) > sizeof PNbuf - 1) {
+		fprintf(stderr, "tip: phone number too long (max = %d bytes)\n",
+			sizeof PNbuf - 1);
+		exit(1);
+	}
+	strncpy( PNbuf, system, sizeof PNbuf - 1 );
+	for (p = system; *p; p++)
+		*p = '\0';
+	PN = PNbuf;
+	(void)sprintf(sbuf, "tip%d", BR);
+	system = sbuf;
+
+notnumber:
+	(void)signal(SIGINT, cleanup);
+	(void)signal(SIGQUIT, cleanup);
+	(void)signal(SIGHUP, cleanup);
+	(void)signal(SIGTERM, cleanup);
+
 	if ((i = hunt(system)) == 0) {
 		printf("all ports busy\n");
 		exit(3);
 	}
 	if (i == -1) {
 		printf("link down\n");
+		(void)uu_unlock(uucplock);
 		exit(3);
 	}
 	setbuf(stdout, NULL);
 	loginit();
-	/*
-	 * Now that we have the logfile and the ACU open
-	 *  return to the real uid and gid.  These things will
-	 *  be closed on exit.  Note that we can't run as root,
-	 *  because locking mechanism on the tty and the accounting
-	 *  will be bypassed.
-	 */
-	setuid(getuid());
-	setgid(getgid());
-	for (i = 1; i < argc-1; i++)
-		if (equal(argv[i], "-v"))
-			vflag++;
+
 	/*
 	 * Kludge, their's no easy way to get the initialization
 	 *   in the right order, so force it here
 	 */
 	if ((PH = getenv("PHONES")) == NOSTR)
-		PH = "/etc/phones";
+		PH = _PATH_PHONES;
 	vinit();				/* init variables */
-	for (i = 1; i < argc-1; i++)
-		if (argv[i][0] == '-' && argv[i][1] != 'v') {
-			if (isnum(argv[i][1]))
-				number(value(BAUDRATE)) = atoi(&argv[i][1]);
-			else
-				printf("%s: unknown option\n", argv[i]);
-		}
-	if ((arg.sg_ispeed = speed(number(value(BAUDRATE)))) == NULL) {
+	setparity("even");			/* set the parity table */
+	if ((i = speed(number(value(BAUDRATE)))) == NULL) {
 		printf("tip: bad baud rate %d\n", number(value(BAUDRATE)));
-		delock(uucplock);
+		(void)uu_unlock(uucplock);
 		exit(3);
 	}
-	arg.sg_ospeed = arg.sg_ispeed;
+
 	/*
-	 * NOTE that remote side runs in TANDEM mode,
-	 *  if the host doesn't honor X-ON/X-OFF with default
-	 *  start/stop chars, the remote description must be
-	 *  extended and tchars will have to be set up here.
-	 * If the host doesn't honor TANDEM mode, then watch
-	 *  out, as you'll get garbage.
+	 * Now that we have the logfile and the ACU open
+	 *  return to the real uid and gid.  These things will
+	 *  be closed on exit.  Swap real and effective uid's
+	 *  so we can get the original permissions back
+	 *  for removing the uucp lock.
 	 */
-	arg.sg_flags = RAW | TANDEM;
-	ioctl(FD, TIOCSETP, &arg);
-
-	ioctl(0, TIOCGETP, &defarg);	/* store initial status */
-	ioctl(0, TIOCGETC, &defchars);
-	arg = defarg;
-	arg.sg_flags = ANYP | CBREAK;
-	tchars = defchars;
-	tchars.t_intrc = tchars.t_quitc = -1;
+	user_uid();
 
+	/*
+	 * Hardwired connections require the
+	 *  line speed set before they make any transmissions
+	 *  (this is particularly true of things like a DF03-AC)
+	 */
+	if (HW)
+		ttysetup(i);
 	if (p = connect()) {
 		printf("\07%s\n[EOT]\n", p);
-		delock(uucplock);
+		daemon_uid();
+		(void)uu_unlock(uucplock);
 		exit(1);
 	}
-	write(1, "\07connected\n", 11);
-	raw();
-#ifdef VMUNIX
+	if (!HW)
+		ttysetup(i);
+cucommon:
+	/*
+	 * From here down the code is shared with
+	 * the "cu" version of tip.
+	 */
+
+	ioctl(0, TIOCGETP, (char *)&defarg);
+	ioctl(0, TIOCGETC, (char *)&defchars);
+	ioctl(0, TIOCGLTC, (char *)&deflchars);
 	ioctl(0, TIOCGETD, (char *)&odisc);
-	disc = OTTYDISC;
-	ioctl(0, TIOCSETD, (char *)&disc);
-#endif
+	arg = defarg;
+	arg.sg_flags = ANYP | CBREAK;
+	tchars = defchars;
+	tchars.t_intrc = tchars.t_quitc = -1;
+	ltchars = deflchars;
+	ltchars.t_suspc = ltchars.t_dsuspc = ltchars.t_flushc
+		= ltchars.t_lnextc = -1;
+	raw();
+
 	pipe(fildes); pipe(repdes);
-	signal(SIGALRM, timeout);
+	(void)signal(SIGALRM, timeout);
+
+	/*
+	 * Everything's set up now:
+	 *	connection established (hardwired or dialup)
+	 *	line conditioned (baud rate, mode, etc.)
+	 *	internal data structures (variables)
+	 * so, fork one process for local side and one for remote.
+	 */
+	printf(cumode ? "Connected\r\n" : "\07connected\r\n");
 	if (pid = fork())
 		tipin();
 	else
@@ -164,20 +212,63 @@ char *argv[];
 	/*NOTREACHED*/
 }
 
-static
+void
 cleanup()
 {
-	delock(uucplock);
+
+	daemon_uid();
+	(void)uu_unlock(uucplock);
+	if (odisc)
+		ioctl(0, TIOCSETD, (char *)&odisc);
 	exit(0);
 }
 
+/*
+ * Muck with user ID's.  We are setuid to the owner of the lock
+ * directory when we start.  user_uid() reverses real and effective
+ * ID's after startup, to run with the user's permissions.
+ * daemon_uid() switches back to the privileged uid for unlocking.
+ * Finally, to avoid running a shell with the wrong real uid,
+ * shell_uid() sets real and effective uid's to the user's real ID.
+ */
+static int uidswapped;
+
+user_uid()
+{
+	if (uidswapped == 0) {
+		setregid(egid, gid);
+		setreuid(euid, uid);
+		uidswapped = 1;
+	}
+}
+
+daemon_uid()
+{
+
+	if (uidswapped) {
+		setreuid(uid, euid);
+		setregid(gid, egid);
+		uidswapped = 0;
+	}
+}
+
+shell_uid()
+{
+
+	setreuid(uid, uid);
+	setregid(gid, gid);
+}
+
 /*
  * put the controlling keyboard into raw mode
  */
 raw()
 {
+
 	ioctl(0, TIOCSETP, &arg);
 	ioctl(0, TIOCSETC, &tchars);
+	ioctl(0, TIOCSLTC, &ltchars);
+	ioctl(0, TIOCSETD, (char *)&disc);
 }
 
 
@@ -186,10 +277,15 @@ raw()
  */
 unraw()
 {
-	ioctl(0, TIOCSETP, &defarg);
-	ioctl(0, TIOCSETC, &defchars);
+
+	ioctl(0, TIOCSETD, (char *)&odisc);
+	ioctl(0, TIOCSETP, (char *)&defarg);
+	ioctl(0, TIOCSETC, (char *)&defchars);
+	ioctl(0, TIOCSLTC, (char *)&deflchars);
 }
 
+static	jmp_buf promptbuf;
+
 /*
  * Print string ``s'', then read a string
  *  in from the terminal.  Handles signals & allows use of
@@ -200,33 +296,35 @@ prompt(s, p)
 	register char *p;
 {
 	register char *b = p;
+	sig_t oint, oquit;
 
 	stoprompt = 0;
-	signal(SIGINT, intprompt);
-	signal(SIGQUIT, SIG_IGN);
+	oint = signal(SIGINT, intprompt);
+	oquit = signal(SIGQUIT, SIG_IGN);
 	unraw();
 	printf("%s", s);
-	while ((*p = getchar()) != EOF && *p != '\n') {
-		if (stoprompt)
-			goto pbreak;
-		p++;
-	}
+	if (setjmp(promptbuf) == 0)
+		while ((*p = getchar()) != EOF && *p != '\n')
+			p++;
 	*p = '\0';
-pbreak:
+
 	raw();
-	signal(SIGINT, SIG_DFL);
-	signal(SIGQUIT,SIG_DFL);
-	return(stoprompt || p == b);
+	(void)signal(SIGINT, oint);
+	(void)signal(SIGQUIT, oquit);
+	return (stoprompt || p == b);
 }
 
 /*
  * Interrupt service routine during prompting
  */
+void
 intprompt()
 {
-	signal(SIGINT, SIG_IGN);
+
+	(void)signal(SIGINT, SIG_IGN);
 	stoprompt = 1;
 	printf("\r\n");
+	longjmp(promptbuf, 1);
 }
 
 /*
@@ -236,27 +334,40 @@ tipin()
 {
 	char gch, bol = 1;
 
+	/*
+	 * Kinda klugey here...
+	 *   check for scripting being turned on from the .tiprc file,
+	 *   but be careful about just using setscript(), as we may
+	 *   send a SIGEMT before tipout has a chance to set up catching
+	 *   it; so wait a second, then setscript()
+	 */
+	if (boolean(value(SCRIPT))) {
+		sleep(1);
+		setscript();
+	}
+
 	while (1) {
 		gch = getchar()&0177;
 		if ((gch == character(value(ESCAPE))) && bol) {
 			if (!(gch = escape()))
 				continue;
-		} else if (gch == character(value(RAISECHAR))) {
+		} else if (!cumode && gch == character(value(RAISECHAR))) {
 			boolean(value(RAISE)) = !boolean(value(RAISE));
-			printf("%s", ctrl(character(value(RAISECHAR))));
 			continue;
 		} else if (gch == '\r') {
 			bol = 1;
-			write(FD, &gch, 1);
+			pwrite(FD, &gch, 1);
+			if (boolean(value(HALFDUPLEX)))
+				printf("\r\n");
 			continue;
-		} else if (gch == character(value(FORCE))) {
-			printf("%s", ctrl(character(value(FORCE))));
+		} else if (!cumode && gch == character(value(FORCE)))
 			gch = getchar()&0177;
-		}
 		bol = any(gch, value(EOL));
 		if (boolean(value(RAISE)) && islower(gch))
-			toupper(gch);
-		write(FD, &gch, 1);
+			gch = toupper(gch);
+		pwrite(FD, &gch, 1);
+		if (boolean(value(HALFDUPLEX)))
+			printf("%c", gch);
 	}
 }
 
@@ -274,43 +385,46 @@ escape()
 	gch = (getchar()&0177);
 	for (p = etable; p->e_char; p++)
 		if (p->e_char == gch) {
-			if ((p->e_flags&PRIV) && getuid())
+			if ((p->e_flags&PRIV) && uid)
 				continue;
 			printf("%s", ctrl(c));
 			(*p->e_func)(gch);
-			return(0);
+			return (0);
 		}
-
-	write(FD, &c, 1);
-	return(gch);
+	/* ESCAPE ESCAPE forces ESCAPE */
+	if (c != gch)
+		pwrite(FD, &c, 1);
+	return (gch);
 }
 
 speed(n)
+	int n;
 {
 	register int *p;
 
 	for (p = bauds; *p != -1;  p++)
 		if (*p == n)
-			return(p-bauds);
-	return(NULL);
+			return (p - bauds);
+	return (NULL);
 }
 
 any(c, p)
 	register char c, *p;
 {
-	while (*p)
+	while (p && *p)
 		if (*p++ == c)
-			return(1);
-	return(0);
+			return (1);
+	return (0);
 }
 
 size(s)
 	register char	*s;
 {
-	register int	i = 0;
+	register int i = 0;
 
-	while (*s++) i++;
-	return(i);
+	while (s && *s++)
+		i++;
+	return (i);
 }
 
 char *
@@ -336,7 +450,7 @@ interp(s)
 		;
 	}
 	*p = '\0';
-	return(buf);
+	return (buf);
 }
 
 char *
@@ -353,7 +467,7 @@ ctrl(c)
 		s[0] = c;
 		s[1] = '\0';
 	}
-	return(s);
+	return (s);
 }
 
 /*
@@ -367,10 +481,114 @@ help(c)
 
 	printf("%c\r\n", c);
 	for (p = etable; p->e_char; p++) {
-		if ((p->e_flags&PRIV) && getuid())
+		if ((p->e_flags&PRIV) && uid)
 			continue;
 		printf("%2s", ctrl(character(value(ESCAPE))));
 		printf("%-2s %c   %s\r\n", ctrl(p->e_char),
 			p->e_flags&EXP ? '*': ' ', p->e_help);
 	}
 }
+
+/*
+ * Set up the "remote" tty's state
+ */
+ttysetup(speed)
+	int speed;
+{
+	unsigned bits = LDECCTQ;
+
+	arg.sg_ispeed = arg.sg_ospeed = speed;
+	arg.sg_flags = RAW;
+	if (boolean(value(TAND)))
+		arg.sg_flags |= TANDEM;
+	ioctl(FD, TIOCSETP, (char *)&arg);
+	ioctl(FD, TIOCLBIS, (char *)&bits);
+}
+
+/*
+ * Return "simple" name from a file name,
+ * strip leading directories.
+ */
+char *
+sname(s)
+	register char *s;
+{
+	register char *p = s;
+
+	while (*s)
+		if (*s++ == '/')
+			p = s;
+	return (p);
+}
+
+static char partab[0200];
+static int bits8;
+
+/*
+ * Do a write to the remote machine with the correct parity.
+ * We are doing 8 bit wide output, so we just generate a character
+ * with the right parity and output it.
+ */
+pwrite(fd, buf, n)
+	int fd;
+	char *buf;
+	register int n;
+{
+	register int i;
+	register char *bp;
+	extern int errno;
+
+	bp = buf;
+	if (bits8 == 0)
+		for (i = 0; i < n; i++) {
+			*bp = partab[(*bp) & 0177];
+			bp++;
+		}
+	if (write(fd, buf, n) < 0) {
+		if (errno == EIO)
+			abort("Lost carrier.");
+		/* this is questionable */
+		perror("write");
+	}
+}
+
+/*
+ * Build a parity table with appropriate high-order bit.
+ */
+setparity(defparity)
+	char *defparity;
+{
+	register int i;
+	char *parity;
+	extern char evenpartab[];
+
+	if (value(PARITY) == NOSTR)
+		value(PARITY) = defparity;
+	parity = value(PARITY);
+	if (equal(parity, "none")) {
+		bits8 = 1;
+		return;
+	} else
+		bits8 = 0;
+	for (i = 0; i < 0200; i++)
+		partab[i] = evenpartab[i];
+	if (equal(parity, "even"))
+		return;
+	if (equal(parity, "odd")) {
+		for (i = 0; i < 0200; i++)
+			partab[i] ^= 0200;	/* reverse bit 7 */
+		return;
+	}
+	if (equal(parity, "zero")) {
+		for (i = 0; i < 0200; i++)
+			partab[i] &= ~0200;	/* turn off bit 7 */
+		return;
+	}
+	if (equal(parity, "one")) {
+		for (i = 0; i < 0200; i++)
+			partab[i] |= 0200;	/* turn on bit 7 */
+		return;
+	}
+	fprintf(stderr, "%s: unknown parity value\n", PA);
+	fflush(stderr);
+}