1/*
2 * Copyright (c) 1988, 1993
3 *	The Regents of the University of California.  All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 * 3. Neither the name of the University nor the names of its contributors
14 *    may be used to endorse or promote products derived from this software
15 *    without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 */
29
30#if 0
31#ifndef lint
32static const char sccsid[] = "@(#)utilities.c	8.3 (Berkeley) 5/30/95";
33#endif
34#endif
35
36#define	TELOPTS
37#define	TELCMDS
38#define	SLC_NAMES
39#include <arpa/telnet.h>
40#include <sys/types.h>
41#include <sys/socket.h>
42#include <sys/time.h>
43#include <ctype.h>
44#include <stdlib.h>
45#include <unistd.h>
46
47#include "general.h"
48
49#include "fdset.h"
50
51#include "ring.h"
52
53#include "defines.h"
54
55#include "externs.h"
56
57#ifdef	AUTHENTICATION
58#include <libtelnet/auth.h>
59#endif
60#ifdef	ENCRYPTION
61#include <libtelnet/encrypt.h>
62#endif
63
64FILE	*NetTrace = 0;		/* Not in bss, since needs to stay */
65int	prettydump;
66
67/*
68 * upcase()
69 *
70 *	Upcase (in place) the argument.
71 */
72
73void
74upcase(char *argument)
75{
76    int c;
77
78    while ((c = *argument) != 0) {
79	if (islower(c)) {
80	    *argument = toupper(c);
81	}
82	argument++;
83    }
84}
85
86/*
87 * SetSockOpt()
88 *
89 * Compensate for differences in 4.2 and 4.3 systems.
90 */
91
92int
93SetSockOpt(int fd, int level, int option, int yesno)
94{
95    return setsockopt(fd, level, option,
96				(char *)&yesno, sizeof yesno);
97}
98
99/*
100 * The following are routines used to print out debugging information.
101 */
102
103unsigned char NetTraceFile[256] = "(standard output)";
104
105void
106SetNetTrace(char *file)
107{
108    if (NetTrace && NetTrace != stdout)
109	fclose(NetTrace);
110    if (file  && (strcmp(file, "-") != 0)) {
111	NetTrace = fopen(file, "w");
112	if (NetTrace) {
113	    strcpy((char *)NetTraceFile, file);
114	    return;
115	}
116	fprintf(stderr, "Cannot open %s.\n", file);
117    }
118    NetTrace = stdout;
119    strcpy((char *)NetTraceFile, "(standard output)");
120}
121
122void
123Dump(char direction, unsigned char *buffer, int length)
124{
125#   define BYTES_PER_LINE	32
126#   define min(x,y)	((x<y)? x:y)
127    unsigned char *pThis;
128    int offset;
129
130    offset = 0;
131
132    while (length) {
133	/* print one line */
134	fprintf(NetTrace, "%c 0x%x\t", direction, offset);
135	pThis = buffer;
136	if (prettydump) {
137	    buffer = buffer + min(length, BYTES_PER_LINE/2);
138	    while (pThis < buffer) {
139		fprintf(NetTrace, "%c%.2x",
140		    (((*pThis)&0xff) == 0xff) ? '*' : ' ',
141		    (*pThis)&0xff);
142		pThis++;
143	    }
144	    length -= BYTES_PER_LINE/2;
145	    offset += BYTES_PER_LINE/2;
146	} else {
147	    buffer = buffer + min(length, BYTES_PER_LINE);
148	    while (pThis < buffer) {
149		fprintf(NetTrace, "%.2x", (*pThis)&0xff);
150		pThis++;
151	    }
152	    length -= BYTES_PER_LINE;
153	    offset += BYTES_PER_LINE;
154	}
155	if (NetTrace == stdout) {
156	    fprintf(NetTrace, "\r\n");
157	} else {
158	    fprintf(NetTrace, "\n");
159	}
160	if (length < 0) {
161	    fflush(NetTrace);
162	    return;
163	}
164	/* find next unique line */
165    }
166    fflush(NetTrace);
167}
168
169
170void
171printoption(const char *direction, int cmd, int option)
172{
173	if (!showoptions)
174		return;
175	if (cmd == IAC) {
176		if (TELCMD_OK(option))
177		    fprintf(NetTrace, "%s IAC %s", direction, TELCMD(option));
178		else
179		    fprintf(NetTrace, "%s IAC %d", direction, option);
180	} else {
181		const char *fmt;
182		fmt = (cmd == WILL) ? "WILL" : (cmd == WONT) ? "WONT" :
183			(cmd == DO) ? "DO" : (cmd == DONT) ? "DONT" : 0;
184		if (fmt) {
185		    fprintf(NetTrace, "%s %s ", direction, fmt);
186		    if (TELOPT_OK(option))
187			fprintf(NetTrace, "%s", TELOPT(option));
188		    else if (option == TELOPT_EXOPL)
189			fprintf(NetTrace, "EXOPL");
190		    else
191			fprintf(NetTrace, "%d", option);
192		} else
193		    fprintf(NetTrace, "%s %d %d", direction, cmd, option);
194	}
195	if (NetTrace == stdout) {
196	    fprintf(NetTrace, "\r\n");
197	    fflush(NetTrace);
198	} else {
199	    fprintf(NetTrace, "\n");
200	}
201	return;
202}
203
204void
205optionstatus(void)
206{
207    int i;
208    extern char will_wont_resp[], do_dont_resp[];
209
210    for (i = 0; i < 256; i++) {
211	if (do_dont_resp[i]) {
212	    if (TELOPT_OK(i))
213		printf("resp DO_DONT %s: %d\n", TELOPT(i), do_dont_resp[i]);
214	    else if (TELCMD_OK(i))
215		printf("resp DO_DONT %s: %d\n", TELCMD(i), do_dont_resp[i]);
216	    else
217		printf("resp DO_DONT %d: %d\n", i,
218				do_dont_resp[i]);
219	    if (my_want_state_is_do(i)) {
220		if (TELOPT_OK(i))
221		    printf("want DO   %s\n", TELOPT(i));
222		else if (TELCMD_OK(i))
223		    printf("want DO   %s\n", TELCMD(i));
224		else
225		    printf("want DO   %d\n", i);
226	    } else {
227		if (TELOPT_OK(i))
228		    printf("want DONT %s\n", TELOPT(i));
229		else if (TELCMD_OK(i))
230		    printf("want DONT %s\n", TELCMD(i));
231		else
232		    printf("want DONT %d\n", i);
233	    }
234	} else {
235	    if (my_state_is_do(i)) {
236		if (TELOPT_OK(i))
237		    printf("     DO   %s\n", TELOPT(i));
238		else if (TELCMD_OK(i))
239		    printf("     DO   %s\n", TELCMD(i));
240		else
241		    printf("     DO   %d\n", i);
242	    }
243	}
244	if (will_wont_resp[i]) {
245	    if (TELOPT_OK(i))
246		printf("resp WILL_WONT %s: %d\n", TELOPT(i), will_wont_resp[i]);
247	    else if (TELCMD_OK(i))
248		printf("resp WILL_WONT %s: %d\n", TELCMD(i), will_wont_resp[i]);
249	    else
250		printf("resp WILL_WONT %d: %d\n",
251				i, will_wont_resp[i]);
252	    if (my_want_state_is_will(i)) {
253		if (TELOPT_OK(i))
254		    printf("want WILL %s\n", TELOPT(i));
255		else if (TELCMD_OK(i))
256		    printf("want WILL %s\n", TELCMD(i));
257		else
258		    printf("want WILL %d\n", i);
259	    } else {
260		if (TELOPT_OK(i))
261		    printf("want WONT %s\n", TELOPT(i));
262		else if (TELCMD_OK(i))
263		    printf("want WONT %s\n", TELCMD(i));
264		else
265		    printf("want WONT %d\n", i);
266	    }
267	} else {
268	    if (my_state_is_will(i)) {
269		if (TELOPT_OK(i))
270		    printf("     WILL %s\n", TELOPT(i));
271		else if (TELCMD_OK(i))
272		    printf("     WILL %s\n", TELCMD(i));
273		else
274		    printf("     WILL %d\n", i);
275	    }
276	}
277    }
278
279}
280
281void
282printsub(char direction, unsigned char *pointer, int length)
283{
284    int i;
285#ifdef	AUTHENTICATION
286    char buf[512];
287#endif
288    extern int want_status_response;
289
290    if (showoptions || direction == 0 ||
291	(want_status_response && (pointer[0] == TELOPT_STATUS))) {
292	if (direction) {
293	    fprintf(NetTrace, "%s IAC SB ",
294				(direction == '<')? "RCVD":"SENT");
295	    if (length >= 3) {
296		int j;
297
298		i = pointer[length-2];
299		j = pointer[length-1];
300
301		if (i != IAC || j != SE) {
302		    fprintf(NetTrace, "(terminated by ");
303		    if (TELOPT_OK(i))
304			fprintf(NetTrace, "%s ", TELOPT(i));
305		    else if (TELCMD_OK(i))
306			fprintf(NetTrace, "%s ", TELCMD(i));
307		    else
308			fprintf(NetTrace, "%d ", i);
309		    if (TELOPT_OK(j))
310			fprintf(NetTrace, "%s", TELOPT(j));
311		    else if (TELCMD_OK(j))
312			fprintf(NetTrace, "%s", TELCMD(j));
313		    else
314			fprintf(NetTrace, "%d", j);
315		    fprintf(NetTrace, ", not IAC SE!) ");
316		}
317	    }
318	    length -= 2;
319	}
320	if (length < 1) {
321	    fprintf(NetTrace, "(Empty suboption??\?)");
322	    if (NetTrace == stdout)
323		fflush(NetTrace);
324	    return;
325	}
326	switch (pointer[0]) {
327	case TELOPT_TTYPE:
328	    fprintf(NetTrace, "TERMINAL-TYPE ");
329	    switch (pointer[1]) {
330	    case TELQUAL_IS:
331		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
332		break;
333	    case TELQUAL_SEND:
334		fprintf(NetTrace, "SEND");
335		break;
336	    default:
337		fprintf(NetTrace,
338				"- unknown qualifier %d (0x%x).",
339				pointer[1], pointer[1]);
340	    }
341	    break;
342	case TELOPT_TSPEED:
343	    fprintf(NetTrace, "TERMINAL-SPEED");
344	    if (length < 2) {
345		fprintf(NetTrace, " (empty suboption??\?)");
346		break;
347	    }
348	    switch (pointer[1]) {
349	    case TELQUAL_IS:
350		fprintf(NetTrace, " IS ");
351		fprintf(NetTrace, "%.*s", length-2, (char *)pointer+2);
352		break;
353	    default:
354		if (pointer[1] == 1)
355		    fprintf(NetTrace, " SEND");
356		else
357		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
358		for (i = 2; i < length; i++)
359		    fprintf(NetTrace, " ?%d?", pointer[i]);
360		break;
361	    }
362	    break;
363
364	case TELOPT_LFLOW:
365	    fprintf(NetTrace, "TOGGLE-FLOW-CONTROL");
366	    if (length < 2) {
367		fprintf(NetTrace, " (empty suboption??\?)");
368		break;
369	    }
370	    switch (pointer[1]) {
371	    case LFLOW_OFF:
372		fprintf(NetTrace, " OFF"); break;
373	    case LFLOW_ON:
374		fprintf(NetTrace, " ON"); break;
375	    case LFLOW_RESTART_ANY:
376		fprintf(NetTrace, " RESTART-ANY"); break;
377	    case LFLOW_RESTART_XON:
378		fprintf(NetTrace, " RESTART-XON"); break;
379	    default:
380		fprintf(NetTrace, " %d (unknown)", pointer[1]);
381	    }
382	    for (i = 2; i < length; i++)
383		fprintf(NetTrace, " ?%d?", pointer[i]);
384	    break;
385
386	case TELOPT_NAWS:
387	    fprintf(NetTrace, "NAWS");
388	    if (length < 2) {
389		fprintf(NetTrace, " (empty suboption??\?)");
390		break;
391	    }
392	    if (length == 2) {
393		fprintf(NetTrace, " ?%d?", pointer[1]);
394		break;
395	    }
396	    fprintf(NetTrace, " %d %d (%d)",
397		pointer[1], pointer[2],
398		(int)((((unsigned int)pointer[1])<<8)|((unsigned int)pointer[2])));
399	    if (length == 4) {
400		fprintf(NetTrace, " ?%d?", pointer[3]);
401		break;
402	    }
403	    fprintf(NetTrace, " %d %d (%d)",
404		pointer[3], pointer[4],
405		(int)((((unsigned int)pointer[3])<<8)|((unsigned int)pointer[4])));
406	    for (i = 5; i < length; i++)
407		fprintf(NetTrace, " ?%d?", pointer[i]);
408	    break;
409
410#ifdef	AUTHENTICATION
411	case TELOPT_AUTHENTICATION:
412	    fprintf(NetTrace, "AUTHENTICATION");
413	    if (length < 2) {
414		fprintf(NetTrace, " (empty suboption??\?)");
415		break;
416	    }
417	    switch (pointer[1]) {
418	    case TELQUAL_REPLY:
419	    case TELQUAL_IS:
420		fprintf(NetTrace, " %s ", (pointer[1] == TELQUAL_IS) ?
421							"IS" : "REPLY");
422		if (AUTHTYPE_NAME_OK(pointer[2]))
423		    fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[2]));
424		else
425		    fprintf(NetTrace, "%d ", pointer[2]);
426		if (length < 3) {
427		    fprintf(NetTrace, "(partial suboption??\?)");
428		    break;
429		}
430		fprintf(NetTrace, "%s|%s",
431			((pointer[3] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
432			"CLIENT" : "SERVER",
433			((pointer[3] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
434			"MUTUAL" : "ONE-WAY");
435
436		auth_printsub(&pointer[1], length - 1, buf, sizeof(buf));
437		fprintf(NetTrace, "%s", buf);
438		break;
439
440	    case TELQUAL_SEND:
441		i = 2;
442		fprintf(NetTrace, " SEND ");
443		while (i < length) {
444		    if (AUTHTYPE_NAME_OK(pointer[i]))
445			fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[i]));
446		    else
447			fprintf(NetTrace, "%d ", pointer[i]);
448		    if (++i >= length) {
449			fprintf(NetTrace, "(partial suboption??\?)");
450			break;
451		    }
452		    fprintf(NetTrace, "%s|%s ",
453			((pointer[i] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
454							"CLIENT" : "SERVER",
455			((pointer[i] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
456							"MUTUAL" : "ONE-WAY");
457		    ++i;
458		}
459		break;
460
461	    case TELQUAL_NAME:
462		i = 2;
463		fprintf(NetTrace, " NAME \"");
464		while (i < length)
465		    putc(pointer[i++], NetTrace);
466		putc('"', NetTrace);
467		break;
468
469	    default:
470		    for (i = 2; i < length; i++)
471			fprintf(NetTrace, " ?%d?", pointer[i]);
472		    break;
473	    }
474	    break;
475#endif
476
477#ifdef	ENCRYPTION
478	case TELOPT_ENCRYPT:
479	    fprintf(NetTrace, "ENCRYPT");
480	    if (length < 2) {
481		fprintf(NetTrace, " (empty suboption??\?)");
482		break;
483	    }
484	    switch (pointer[1]) {
485	    case ENCRYPT_START:
486		fprintf(NetTrace, " START");
487		break;
488
489	    case ENCRYPT_END:
490		fprintf(NetTrace, " END");
491		break;
492
493	    case ENCRYPT_REQSTART:
494		fprintf(NetTrace, " REQUEST-START");
495		break;
496
497	    case ENCRYPT_REQEND:
498		fprintf(NetTrace, " REQUEST-END");
499		break;
500
501	    case ENCRYPT_IS:
502	    case ENCRYPT_REPLY:
503		fprintf(NetTrace, " %s ", (pointer[1] == ENCRYPT_IS) ?
504							"IS" : "REPLY");
505		if (length < 3) {
506		    fprintf(NetTrace, " (partial suboption??\?)");
507		    break;
508		}
509		if (ENCTYPE_NAME_OK(pointer[2]))
510		    fprintf(NetTrace, "%s ", ENCTYPE_NAME(pointer[2]));
511		else
512		    fprintf(NetTrace, " %d (unknown)", pointer[2]);
513
514		encrypt_printsub(&pointer[1], length - 1, buf, sizeof(buf));
515		fprintf(NetTrace, "%s", buf);
516		break;
517
518	    case ENCRYPT_SUPPORT:
519		i = 2;
520		fprintf(NetTrace, " SUPPORT ");
521		while (i < length) {
522		    if (ENCTYPE_NAME_OK(pointer[i]))
523			fprintf(NetTrace, "%s ", ENCTYPE_NAME(pointer[i]));
524		    else
525			fprintf(NetTrace, "%d ", pointer[i]);
526		    i++;
527		}
528		break;
529
530	    case ENCRYPT_ENC_KEYID:
531		fprintf(NetTrace, " ENC_KEYID ");
532		goto encommon;
533
534	    case ENCRYPT_DEC_KEYID:
535		fprintf(NetTrace, " DEC_KEYID ");
536		goto encommon;
537
538	    default:
539		fprintf(NetTrace, " %d (unknown)", pointer[1]);
540	    encommon:
541		for (i = 2; i < length; i++)
542		    fprintf(NetTrace, " %d", pointer[i]);
543		break;
544	    }
545	    break;
546#endif	/* ENCRYPTION */
547
548	case TELOPT_LINEMODE:
549	    fprintf(NetTrace, "LINEMODE ");
550	    if (length < 2) {
551		fprintf(NetTrace, " (empty suboption??\?)");
552		break;
553	    }
554	    switch (pointer[1]) {
555	    case WILL:
556		fprintf(NetTrace, "WILL ");
557		goto common;
558	    case WONT:
559		fprintf(NetTrace, "WONT ");
560		goto common;
561	    case DO:
562		fprintf(NetTrace, "DO ");
563		goto common;
564	    case DONT:
565		fprintf(NetTrace, "DONT ");
566	    common:
567		if (length < 3) {
568		    fprintf(NetTrace, "(no option??\?)");
569		    break;
570		}
571		switch (pointer[2]) {
572		case LM_FORWARDMASK:
573		    fprintf(NetTrace, "Forward Mask");
574		    for (i = 3; i < length; i++)
575			fprintf(NetTrace, " %x", pointer[i]);
576		    break;
577		default:
578		    fprintf(NetTrace, "%d (unknown)", pointer[2]);
579		    for (i = 3; i < length; i++)
580			fprintf(NetTrace, " %d", pointer[i]);
581		    break;
582		}
583		break;
584
585	    case LM_SLC:
586		fprintf(NetTrace, "SLC");
587		for (i = 2; i < length - 2; i += 3) {
588		    if (SLC_NAME_OK(pointer[i+SLC_FUNC]))
589			fprintf(NetTrace, " %s", SLC_NAME(pointer[i+SLC_FUNC]));
590		    else
591			fprintf(NetTrace, " %d", pointer[i+SLC_FUNC]);
592		    switch (pointer[i+SLC_FLAGS]&SLC_LEVELBITS) {
593		    case SLC_NOSUPPORT:
594			fprintf(NetTrace, " NOSUPPORT"); break;
595		    case SLC_CANTCHANGE:
596			fprintf(NetTrace, " CANTCHANGE"); break;
597		    case SLC_VARIABLE:
598			fprintf(NetTrace, " VARIABLE"); break;
599		    case SLC_DEFAULT:
600			fprintf(NetTrace, " DEFAULT"); break;
601		    }
602		    fprintf(NetTrace, "%s%s%s",
603			pointer[i+SLC_FLAGS]&SLC_ACK ? "|ACK" : "",
604			pointer[i+SLC_FLAGS]&SLC_FLUSHIN ? "|FLUSHIN" : "",
605			pointer[i+SLC_FLAGS]&SLC_FLUSHOUT ? "|FLUSHOUT" : "");
606		    if (pointer[i+SLC_FLAGS]& ~(SLC_ACK|SLC_FLUSHIN|
607						SLC_FLUSHOUT| SLC_LEVELBITS))
608			fprintf(NetTrace, "(0x%x)", pointer[i+SLC_FLAGS]);
609		    fprintf(NetTrace, " %d;", pointer[i+SLC_VALUE]);
610		    if ((pointer[i+SLC_VALUE] == IAC) &&
611			(pointer[i+SLC_VALUE+1] == IAC))
612				i++;
613		}
614		for (; i < length; i++)
615		    fprintf(NetTrace, " ?%d?", pointer[i]);
616		break;
617
618	    case LM_MODE:
619		fprintf(NetTrace, "MODE ");
620		if (length < 3) {
621		    fprintf(NetTrace, "(no mode??\?)");
622		    break;
623		}
624		{
625		    char tbuf[64];
626		    snprintf(tbuf, sizeof(tbuf), "%s%s%s%s%s",
627			pointer[2]&MODE_EDIT ? "|EDIT" : "",
628			pointer[2]&MODE_TRAPSIG ? "|TRAPSIG" : "",
629			pointer[2]&MODE_SOFT_TAB ? "|SOFT_TAB" : "",
630			pointer[2]&MODE_LIT_ECHO ? "|LIT_ECHO" : "",
631			pointer[2]&MODE_ACK ? "|ACK" : "");
632		    fprintf(NetTrace, "%s", tbuf[1] ? &tbuf[1] : "0");
633		}
634		if (pointer[2]&~(MODE_MASK))
635		    fprintf(NetTrace, " (0x%x)", pointer[2]);
636		for (i = 3; i < length; i++)
637		    fprintf(NetTrace, " ?0x%x?", pointer[i]);
638		break;
639	    default:
640		fprintf(NetTrace, "%d (unknown)", pointer[1]);
641		for (i = 2; i < length; i++)
642		    fprintf(NetTrace, " %d", pointer[i]);
643	    }
644	    break;
645
646	case TELOPT_STATUS: {
647	    const char *cp;
648	    int j, k;
649
650	    fprintf(NetTrace, "STATUS");
651
652	    switch (pointer[1]) {
653	    default:
654		if (pointer[1] == TELQUAL_SEND)
655		    fprintf(NetTrace, " SEND");
656		else
657		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
658		for (i = 2; i < length; i++)
659		    fprintf(NetTrace, " ?%d?", pointer[i]);
660		break;
661	    case TELQUAL_IS:
662		if (--want_status_response < 0)
663		    want_status_response = 0;
664		if (NetTrace == stdout)
665		    fprintf(NetTrace, " IS\r\n");
666		else
667		    fprintf(NetTrace, " IS\n");
668
669		for (i = 2; i < length; i++) {
670		    switch(pointer[i]) {
671		    case DO:	cp = "DO"; goto common2;
672		    case DONT:	cp = "DONT"; goto common2;
673		    case WILL:	cp = "WILL"; goto common2;
674		    case WONT:	cp = "WONT"; goto common2;
675		    common2:
676			i++;
677			if (TELOPT_OK((int)pointer[i]))
678			    fprintf(NetTrace, " %s %s", cp, TELOPT(pointer[i]));
679			else
680			    fprintf(NetTrace, " %s %d", cp, pointer[i]);
681
682			if (NetTrace == stdout)
683			    fprintf(NetTrace, "\r\n");
684			else
685			    fprintf(NetTrace, "\n");
686			break;
687
688		    case SB:
689			fprintf(NetTrace, " SB ");
690			i++;
691			j = k = i;
692			while (j < length) {
693			    if (pointer[j] == SE) {
694				if (j+1 == length)
695				    break;
696				if (pointer[j+1] == SE)
697				    j++;
698				else
699				    break;
700			    }
701			    pointer[k++] = pointer[j++];
702			}
703			printsub(0, &pointer[i], k - i);
704			if (i < length) {
705			    fprintf(NetTrace, " SE");
706			    i = j;
707			} else
708			    i = j - 1;
709
710			if (NetTrace == stdout)
711			    fprintf(NetTrace, "\r\n");
712			else
713			    fprintf(NetTrace, "\n");
714
715			break;
716
717		    default:
718			fprintf(NetTrace, " %d", pointer[i]);
719			break;
720		    }
721		}
722		break;
723	    }
724	    break;
725	  }
726
727	case TELOPT_XDISPLOC:
728	    fprintf(NetTrace, "X-DISPLAY-LOCATION ");
729	    switch (pointer[1]) {
730	    case TELQUAL_IS:
731		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
732		break;
733	    case TELQUAL_SEND:
734		fprintf(NetTrace, "SEND");
735		break;
736	    default:
737		fprintf(NetTrace, "- unknown qualifier %d (0x%x).",
738				pointer[1], pointer[1]);
739	    }
740	    break;
741
742	case TELOPT_NEW_ENVIRON:
743	    fprintf(NetTrace, "NEW-ENVIRON ");
744#ifdef	OLD_ENVIRON
745	    goto env_common1;
746	case TELOPT_OLD_ENVIRON:
747	    fprintf(NetTrace, "OLD-ENVIRON");
748	env_common1:
749#endif
750	    switch (pointer[1]) {
751	    case TELQUAL_IS:
752		fprintf(NetTrace, "IS ");
753		goto env_common;
754	    case TELQUAL_SEND:
755		fprintf(NetTrace, "SEND ");
756		goto env_common;
757	    case TELQUAL_INFO:
758		fprintf(NetTrace, "INFO ");
759	    env_common:
760		{
761		    int noquote = 2;
762#if defined(ENV_HACK) && defined(OLD_ENVIRON)
763		    extern int old_env_var, old_env_value;
764#endif
765		    for (i = 2; i < length; i++ ) {
766			switch (pointer[i]) {
767			case NEW_ENV_VALUE:
768#ifdef OLD_ENVIRON
769		     /*	case NEW_ENV_OVAR: */
770			    if (pointer[0] == TELOPT_OLD_ENVIRON) {
771# ifdef	ENV_HACK
772				if (old_env_var == OLD_ENV_VALUE)
773				    fprintf(NetTrace, "\" (VALUE) " + noquote);
774				else
775# endif
776				    fprintf(NetTrace, "\" VAR " + noquote);
777			    } else
778#endif /* OLD_ENVIRON */
779				fprintf(NetTrace, "%s", "\" VALUE " + noquote);
780			    noquote = 2;
781			    break;
782
783			case NEW_ENV_VAR:
784#ifdef OLD_ENVIRON
785		     /* case OLD_ENV_VALUE: */
786			    if (pointer[0] == TELOPT_OLD_ENVIRON) {
787# ifdef	ENV_HACK
788				if (old_env_value == OLD_ENV_VAR)
789				    fprintf(NetTrace, "\" (VAR) " + noquote);
790				else
791# endif
792				    fprintf(NetTrace, "\" VALUE " + noquote);
793			    } else
794#endif /* OLD_ENVIRON */
795				fprintf(NetTrace, "%s", "\" VAR " + noquote);
796			    noquote = 2;
797			    break;
798
799			case ENV_ESC:
800			    fprintf(NetTrace, "%s", "\" ESC " + noquote);
801			    noquote = 2;
802			    break;
803
804			case ENV_USERVAR:
805			    fprintf(NetTrace, "%s", "\" USERVAR " + noquote);
806			    noquote = 2;
807			    break;
808
809			default:
810			    if (isprint(pointer[i]) && pointer[i] != '"') {
811				if (noquote) {
812				    putc('"', NetTrace);
813				    noquote = 0;
814				}
815				putc(pointer[i], NetTrace);
816			    } else {
817				fprintf(NetTrace, "\" %03o " + noquote,
818							pointer[i]);
819				noquote = 2;
820			    }
821			    break;
822			}
823		    }
824		    if (!noquote)
825			putc('"', NetTrace);
826		    break;
827		}
828	    }
829	    break;
830
831	default:
832	    if (TELOPT_OK(pointer[0]))
833		fprintf(NetTrace, "%s (unknown)", TELOPT(pointer[0]));
834	    else
835		fprintf(NetTrace, "%d (unknown)", pointer[0]);
836	    for (i = 1; i < length; i++)
837		fprintf(NetTrace, " %d", pointer[i]);
838	    break;
839	}
840	if (direction) {
841	    if (NetTrace == stdout)
842		fprintf(NetTrace, "\r\n");
843	    else
844		fprintf(NetTrace, "\n");
845	}
846	if (NetTrace == stdout)
847	    fflush(NetTrace);
848    }
849}
850
851/* EmptyTerminal - called to make sure that the terminal buffer is empty.
852 *			Note that we consider the buffer to run all the
853 *			way to the kernel (thus the select).
854 */
855
856static void
857EmptyTerminal(void)
858{
859    fd_set	o;
860
861    FD_ZERO(&o);
862
863    if (TTYBYTES() == 0) {
864	FD_SET(tout, &o);
865	(void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
866			(struct timeval *) 0);	/* wait for TTLOWAT */
867    } else {
868	while (TTYBYTES()) {
869	    (void) ttyflush(0);
870	    FD_SET(tout, &o);
871	    (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
872				(struct timeval *) 0);	/* wait for TTLOWAT */
873	}
874    }
875}
876
877static void
878SetForExit(void)
879{
880    setconnmode(0);
881    do {
882	(void)telrcv();			/* Process any incoming data */
883	EmptyTerminal();
884    } while (ring_full_count(&netiring));	/* While there is any */
885    setcommandmode();
886    fflush(stdout);
887    fflush(stderr);
888    setconnmode(0);
889    EmptyTerminal();			/* Flush the path to the tty */
890    setcommandmode();
891}
892
893void
894Exit(int returnCode)
895{
896    SetForExit();
897    exit(returnCode);
898}
899
900void
901ExitString(const char *string, int returnCode)
902{
903    SetForExit();
904    fwrite(string, 1, strlen(string), stderr);
905    exit(returnCode);
906}
907