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