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 36 static 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 70 FILE *NetTrace = 0; /* Not in bss, since needs to stay */ 71 int prettydump; 72 73 /* 74 * upcase() 75 * 76 * Upcase (in place) the argument. 77 */ 78 79 void 80 upcase(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 98 int 99 SetSockOpt(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 109 unsigned char NetTraceFile[256] = "(standard output)"; 110 111 void 112 SetNetTrace(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 128 void 129 Dump(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 176 void 177 printoption(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 210 void 211 optionstatus(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 287 void 288 printsub(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 862 static void 863 EmptyTerminal(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 883 static void 884 SetForExit(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 899 void 900 Exit(int returnCode) 901 { 902 SetForExit(); 903 exit(returnCode); 904 } 905 906 void 907 ExitString(const char *string, int returnCode) 908 { 909 SetForExit(); 910 fwrite(string, 1, strlen(string), stderr); 911 exit(returnCode); 912 } 913