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