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