crypto/telnet/telnet/utilities.c

   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 }