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