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