/usr/src/usr.bin/telnet/commands.c

Bug Summary

File:	src/usr.bin/telnet/commands.c
Warning:	line 1803, column 2 Potential leak of memory pointed to by 'user'
Annotated Source Code

Press '?' to see keyboard shortcuts
Show analyzer invocation
clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name commands.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/usr.bin/telnet/obj -resource-dir /usr/local/lib/clang/13.0.0 -D KLUDGELINEMODE -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/usr.bin/telnet/obj -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/usr.bin/telnet/commands.c
1/*	$OpenBSD: commands.c,v 1.87 2019/06/28 13:35:04 deraadt Exp $	*/
2/*	$NetBSD: commands.c,v 1.14 1996/03/24 22:03:48 jtk Exp $	*/

4/*
* Copyright (c) 1988, 1990, 1993
*	The Regents of the University of California.  All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
* 3. Neither the name of the University nor the names of its contributors
*    may be used to endorse or promote products derived from this software
*    without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/

33#include "telnet_locl.h"

35#include <sys/socket.h>
36#include <netinet/in.h>
37#include <netinet/ip.h>
38#include <arpa/inet.h>
39#include <arpa/telnet.h>

41#include <ctype.h>
42#include <err.h>
43#include <errno(*__errno()).h>
44#include <netdb.h>
45#include <pwd.h>
46#include <stdarg.h>
47#include <stdlib.h>
48#include <string.h>
49#include <unistd.h>
50#include <limits.h>

52char	*hostname;

54typedef struct {
char	*name;		/* command name */
char	*help;		/* help string (NULL for no help) */
int	(*handler)(int, char **);/* routine which executes command */
int	needconnect;	/* Do we need to be connected to execute? */
59} Command;

61#define        MAXARGV20         20

63static char line[256];
64static int margc;
65static char *margv[MAXARGV20+1];

67static int
68makeargv(void)
69{
  char *cp, *cp2, c;
  char **argp = margv;
  int ret = 0;

  margc = 0;
  cp = line;
  while ((c = *cp)) {
      if (margc >= MAXARGV20) {
          printf("too many arguments\n");
          ret = 1;
          break;
      }
int inquote = 0;
while (isspace((unsigned char)c))
   c = *++cp;
if (c == '\0')
   break;
*argp++ = cp;
margc += 1;
for (cp2 = cp; c != '\0'; c = *++cp) {
   if (inquote) {
if (c == inquote) {
    inquote = 0;
    continue;
}
   } else {
if (c == '\\') {
    if ((c = *++cp) == '\0')
	break;
} else if (c == '"') {
    inquote = '"';
    continue;
} else if (c == '\'') {
    inquote = '\'';
    continue;
} else if (isspace((unsigned char)c))
    break;
   }
   *cp2++ = c;
}
*cp2 = '\0';
if (c == '\0')
   break;
cp++;
  }
  *argp++ = 0;
  return (ret);
117}

119/*
* Make a character string into a number.
*
* Todo:  1.  Could take random integers (12, 0x12, 012, 0b1).
*/

125static char
126special(char *s)
127{
char c;
char b;

switch (*s) {
case '^':
b = *++s;
if (b == '?') {
    c = b | 0x40;		/* DEL */
} else {
    c = b & 0x1f;
}
break;
default:
c = *s;
break;
}
return c;
145}

147/*
* Construct a control character sequence
* for a special character.
*/
151static char *
152control(cc_t c)
153{
static char buf[5];
/*
* The only way I could get the Sun 3.5 compiler
* to shut up about
*	if ((unsigned int)c >= 0x80)
* was to assign "c" to an unsigned int variable...
* Arggg....
*/
unsigned int uic = (unsigned int)c;

if (uic == 0x7f)
return ("^?");
if (c == (cc_t)_POSIX_VDISABLE(0377)) {
return "off";
}
if (uic >= 0x80) {
buf[0] = '\\';
buf[1] = ((c>>6)&07) + '0';
buf[2] = ((c>>3)&07) + '0';
buf[3] = (c&07) + '0';
buf[4] = 0;
} else if (uic >= 0x20) {
buf[0] = c;
buf[1] = 0;
} else {
buf[0] = '^';
buf[1] = '@'+c;
buf[2] = 0;
}
return (buf);
184}

186/*
*	The following are data structures and routines for
*	the "send" command.
*
*/

192struct sendlist {
  char	*name;		/* How user refers to it (case independent) */
  char	*help;		/* Help information (0 ==> no help) */
  int		needconnect;	/* Need to be connected */
  int		narg;		/* Number of arguments */
  int		(*handler)();	/* Routine to perform (for special ops) */
  int		nbyte;		/* Number of bytes to send this command */
  int		what;		/* Character to be sent (<0 ==> special) */
200};
201

203static int
send_esc(void),
send_help(void),
send_docmd(char *),
send_dontcmd(char *),
send_willcmd(char *),
send_wontcmd(char *);

211static struct sendlist Sendlist[] = {
  { "ao",	"Send Telnet Abort output",		1, 0, 0, 2, AO245 },
  { "ayt",	"Send Telnet 'Are You There'",		1, 0, 0, 2, AYT246 },
  { "brk",	"Send Telnet Break",			1, 0, 0, 2, BREAK243 },
  { "break",	0,					1, 0, 0, 2, BREAK243 },
  { "ec",	"Send Telnet Erase Character",		1, 0, 0, 2, EC247 },
  { "el",	"Send Telnet Erase Line",		1, 0, 0, 2, EL248 },
  { "escape",	"Send current escape character",	1, 0, send_esc, 1, 0 },
  { "ga",	"Send Telnet 'Go Ahead' sequence",	1, 0, 0, 2, GA249 },
  { "ip",	"Send Telnet Interrupt Process",	1, 0, 0, 2, IP244 },
  { "intp",	0,					1, 0, 0, 2, IP244 },
  { "interrupt", 0,					1, 0, 0, 2, IP244 },
  { "intr",	0,					1, 0, 0, 2, IP244 },
  { "nop",	"Send Telnet 'No operation'",		1, 0, 0, 2, NOP241 },
  { "eor",	"Send Telnet 'End of Record'",		1, 0, 0, 2, EOR239 },
  { "abort",	"Send Telnet 'Abort Process'",		1, 0, 0, 2, ABORT238 },
  { "susp",	"Send Telnet 'Suspend Process'",	1, 0, 0, 2, SUSP237 },
  { "eof",	"Send Telnet End of File Character",	1, 0, 0, 2, xEOF236 },
  { "synch",	"Perform Telnet 'Synch operation'",	1, 0, dosynch, 2, 0 },
  { "getstatus", "Send request for STATUS",		1, 0, get_status, 6, 0 },
  { "?",	"Display send options",			0, 0, send_help, 0, 0 },
  { "help",	0,					0, 0, send_help, 0, 0 },
  { "do",	0,					0, 1, send_docmd, 3, 0 },
  { "dont",	0,					0, 1, send_dontcmd, 3, 0 },
  { "will",	0,					0, 1, send_willcmd, 3, 0 },
  { "wont",	0,					0, 1, send_wontcmd, 3, 0 },
  { 0 }
238};

240#define	GETSEND(name)((struct sendlist *) genget(name, (char **) Sendlist, sizeof(
struct sendlist))) ((struct sendlist *) genget(name, (char **) Sendlist, \
		sizeof(struct sendlist)))

243static int
244sendcmd(int argc, char **argv)
245{
  int count;		/* how many bytes we are going to need to send */
  int i;
  struct sendlist *s;	/* pointer to current command */
  int success = 0;
  int needconnect = 0;

  if (argc < 2) {
printf("need at least one argument for 'send' command\r\n");
printf("'send ?' for help\r\n");
return 0;
  }
  /*
   * First, validate all the send arguments.
   * In addition, we see how much space we are going to need, and
   * whether or not we will be doing a "SYNCH" operation (which
   * flushes the network queue).
   */
  count = 0;
  for (i = 1; i < argc; i++) {
s = GETSEND(argv[i])((struct sendlist *) genget(argv[i], (char **) Sendlist, sizeof
(struct sendlist)));
if (s == 0) {
   printf("Unknown send argument '%s'\r\n'send ?' for help.\r\n",
	argv[i]);
   return 0;
} else if (Ambiguous(s)) {
   printf("Ambiguous send argument '%s'\r\n'send ?' for help.\r\n",
	argv[i]);
   return 0;
}
if (i + s->narg >= argc) {
   fprintf(stderr(&__sF[2]),
   "Need %d argument%s to 'send %s' command.  'send %s ?' for help.\r\n",
s->narg, s->narg == 1 ? "" : "s", s->name, s->name);
   return 0;
}
count += s->nbyte;
if (s->handler == send_help) {
   send_help();
   return 0;
}

i += s->narg;
needconnect += s->needconnect;
  }
  if (!connected && needconnect) {
printf("?Need to be connected first.\r\n");
printf("'send ?' for help\r\n");
return 0;
  }
  /* Now, do we have enough room? */
  if (NETROOM()(ring_empty_count(&netoring)) < count) {
printf("There is not enough room in the buffer TO the network\r\n");
printf("to process your request.  Nothing will be done.\r\n");
printf("('send synch' will throw away most data in the network\r\n");
printf("buffer, if this might help.)\r\n");
return 0;
  }
  /* OK, they are all OK, now go through again and actually send */
  count = 0;
  for (i = 1; i < argc; i++) {
if ((s = GETSEND(argv[i])((struct sendlist *) genget(argv[i], (char **) Sendlist, sizeof
(struct sendlist)))) == 0) {
   fprintf(stderr(&__sF[2]), "Telnet 'send' error - argument disappeared!\r\n");
   quit();
}
if (s->handler) {
   count++;
   success += (*s->handler)((s->narg > 0) ? argv[i+1] : 0,
		  (s->narg > 1) ? argv[i+2] : 0);
   i += s->narg;
} else {
   NET2ADD(IAC, s->what){ { *netoring.supply = 255; ring_supplied(&netoring, 1); }
; { *netoring.supply = s->what; ring_supplied(&netoring
, 1); }; };
   printoption("SENT", IAC255, s->what);
}
  }
  return (count == success);
321}

323static int send_tncmd(void (*func)(int, int), char *cmd, char *name);

325static int
326send_esc(void)
327{
  NETADD(escape){ *netoring.supply = escape; ring_supplied(&netoring, 1);
 };
  return 1;
330}

332static int
333send_docmd(char *name)
334{
  return(send_tncmd(send_do, "do", name));
336}

338static int
339send_dontcmd(char *name)
340{
  return(send_tncmd(send_dont, "dont", name));
342}

344static int
345send_willcmd(char *name)
346{
  return(send_tncmd(send_will, "will", name));
348}

350static int
351send_wontcmd(char *name)
352{
  return(send_tncmd(send_wont, "wont", name));
354}

356int
357send_tncmd(void (*func)(int, int), char *cmd, char *name)
358{
  char **cpp;
  extern char *telopts[];
  int val = 0;

  if (isprefix(name, "help") || isprefix(name, "?")) {
int col, len;

printf("Usage: send %s <value|option>\r\n", cmd);
printf("\"value\" must be from 0 to 255\r\n");
printf("Valid options are:\r\n\t");

col = 8;
for (cpp = telopts; *cpp; cpp++) {
   len = strlen(*cpp) + 3;
   if (col + len > 65) {
printf("\r\n\t");
col = 8;
   }
   printf(" \"%s\"", *cpp);
   col += len;
}
printf("\r\n");
return 0;
  }
  cpp = (char **)genget(name, telopts, sizeof(char *));
  if (Ambiguous(cpp)) {
fprintf(stderr(&__sF[2]),"'%s': ambiguous argument ('send %s ?' for help).\r\n",
			name, cmd);
return 0;
  }
  if (cpp) {
val = cpp - telopts;
  } else {
char *cp = name;

while (*cp >= '0' && *cp <= '9') {
   val *= 10;
   val += *cp - '0';
   cp++;
}
if (*cp != 0) {
   fprintf(stderr(&__sF[2]), "'%s': unknown argument ('send %s ?' for help).\r\n",
			name, cmd);
   return 0;
} else if (val < 0 || val > 255) {
   fprintf(stderr(&__sF[2]), "'%s': bad value ('send %s ?' for help).\r\n",
			name, cmd);
   return 0;
}
  }
  if (!connected) {
printf("?Need to be connected first.\r\n");
return 0;
  }
  (*func)(val, 1);
  return 1;
415}

417static int
418send_help(void)
419{
  struct sendlist *s;	/* pointer to current command */
  for (s = Sendlist; s->name; s++) {
if (s->help)
   printf("%-15s %s\r\n", s->name, s->help);
  }
  return(0);
426}
427
428/*
* The following are the routines and data structures referred
* to by the arguments to the "toggle" command.
*/

433static int
434lclchars(int unused)
435{
  donelclchars = 1;
  return 1;
438}

440static int
441togcrlf(int unused)
442{
  if (crlf) {
printf("Will send carriage returns as telnet <CR><LF>.\r\n");
  } else {
printf("Will send carriage returns as telnet <CR><NUL>.\r\n");
  }
  return 1;
449}

451int binmode;

453static int
454togbinary(int val)
455{
  donebinarytoggle = 1;

  if (val >= 0) {
binmode = val;
  } else {
if (my_want_state_is_will(TELOPT_BINARY)(options[0]&0x02) &&
		my_want_state_is_do(TELOPT_BINARY)(options[0]&0x08)) {
   binmode = 1;
} else if (my_want_state_is_wont(TELOPT_BINARY)(!(options[0]&0x02)) &&
		my_want_state_is_dont(TELOPT_BINARY)(!(options[0]&0x08))) {
   binmode = 0;
}
val = binmode ? 0 : 1;
  }

  if (val == 1) {
if (my_want_state_is_will(TELOPT_BINARY)(options[0]&0x02) &&
			my_want_state_is_do(TELOPT_BINARY)(options[0]&0x08)) {
   printf("Already operating in binary mode with remote host.\r\n");
} else {
   printf("Negotiating binary mode with remote host.\r\n");
   tel_enter_binary(3);
}
  } else {
if (my_want_state_is_wont(TELOPT_BINARY)(!(options[0]&0x02)) &&
			my_want_state_is_dont(TELOPT_BINARY)(!(options[0]&0x08))) {
   printf("Already in network ascii mode with remote host.\r\n");
} else {
   printf("Negotiating network ascii mode with remote host.\r\n");
   tel_leave_binary(3);
}
  }
  return 1;
489}

491static int
492togrbinary(int val)
493{
  donebinarytoggle = 1;

  if (val == -1)
val = my_want_state_is_do(TELOPT_BINARY)(options[0]&0x08) ? 0 : 1;

  if (val == 1) {
if (my_want_state_is_do(TELOPT_BINARY)(options[0]&0x08)) {
   printf("Already receiving in binary mode.\r\n");
} else {
   printf("Negotiating binary mode on input.\r\n");
   tel_enter_binary(1);
}
  } else {
if (my_want_state_is_dont(TELOPT_BINARY)(!(options[0]&0x08))) {
   printf("Already receiving in network ascii mode.\r\n");
} else {
   printf("Negotiating network ascii mode on input.\r\n");
   tel_leave_binary(1);
}
  }
  return 1;
515}

517static int
518togxbinary(int val)
519{
  donebinarytoggle = 1;

  if (val == -1)
val = my_want_state_is_will(TELOPT_BINARY)(options[0]&0x02) ? 0 : 1;

  if (val == 1) {
if (my_want_state_is_will(TELOPT_BINARY)(options[0]&0x02)) {
   printf("Already transmitting in binary mode.\r\n");
} else {
   printf("Negotiating binary mode on output.\r\n");
   tel_enter_binary(2);
}
  } else {
if (my_want_state_is_wont(TELOPT_BINARY)(!(options[0]&0x02))) {
   printf("Already transmitting in network ascii mode.\r\n");
} else {
   printf("Negotiating network ascii mode on output.\r\n");
   tel_leave_binary(2);
}
  }
  return 1;
541}


544static int togglehelp(int);

546struct togglelist {
  char	*name;			/* name of toggle */
  char	*help;			/* help message */
  int		(*handler)(int);	/* routine to do actual setting */
  int		*variable;
  char	*actionexplanation;
  int		needconnect;	/* Need to be connected */
553};

555static struct togglelist Togglelist[] = {
  { "autoflush",
"flushing of output when sending interrupt characters",
   0,
&autoflush,
    "flush output when sending interrupt characters" },
  { "autosynch",
"automatic sending of interrupt characters in urgent mode",
   0,
&autosynch,
    "send interrupt characters in urgent mode" },
  { "autologin",
"automatic sending of login name",
   0,
&autologin,
    "send login name" },
  { "skiprc",
"don't read ~/.telnetrc file",
   0,
&skiprc,
    "skip reading of ~/.telnetrc file" },
  { "binary",
"sending and receiving of binary data",
   togbinary,
0,
    0 },
  { "inbinary",
"receiving of binary data",
   togrbinary,
0,
    0 },
  { "outbinary",
"sending of binary data",
   togxbinary,
0,
    0 },
  { "crlf",
"sending carriage returns as telnet <CR><LF>",
   togcrlf,
&crlf,
    0 },
  { "crmod",
"mapping of received carriage returns",
   0,
&crmod,
    "map carriage return on output" },
  { "localchars",
"local recognition of certain control characters",
   lclchars,
&localchars,
    "recognize certain control characters" },
  { " ", "", 0, 0 },		/* empty line */
  { "netdata",
"printing of hexadecimal network data (debugging)",
   0,
&netdata,
    "print hexadecimal representation of network traffic" },
  { "prettydump",
"output of \"netdata\" to user readable format (debugging)",
   0,
&prettydump,
    "print user readable output for \"netdata\"" },
  { "options",
"viewing of options processing (debugging)",
   0,
&showoptions,
    "show option processing" },
  { "termdata",
"(debugging) toggle printing of hexadecimal terminal data",
   0,
&termdata,
    "print hexadecimal representation of terminal traffic" },
  { "?",
0,
   togglehelp },
  { "help",
0,
   togglehelp },
  { 0 }
634};

636static int
637togglehelp(int unused)
638{
  struct togglelist *c;

  for (c = Togglelist; c->name; c++) {
if (c->help) {
   if (*c->help)
printf("%-15s toggle %s\r\n", c->name, c->help);
   else
printf("\r\n");
}
  }
  printf("\r\n");
  printf("%-15s %s\r\n", "?", "display help information");
  return 0;
652}

654static void
655settogglehelp(int set)
656{
  struct togglelist *c;

  for (c = Togglelist; c->name; c++) {
if (c->help) {
   if (*c->help)
printf("%-15s %s %s\r\n", c->name, set ? "enable" : "disable",
				c->help);
   else
printf("\r\n");
}
  }
668}

670#define	GETTOGGLE(name)(struct togglelist *) genget(name, (char **) Togglelist, sizeof
(struct togglelist)) (struct togglelist *) \
genget(name, (char **) Togglelist, sizeof(struct togglelist))

673static int
674toggle(int argc, char *argv[])
675{
  int retval = 1;
  char *name;
  struct togglelist *c;

  if (argc < 2) {
fprintf(stderr(&__sF[2]),
   "Need an argument to 'toggle' command.  'toggle ?' for help.\r\n");
return 0;
  }
  argc--;
  argv++;
  while (argc--) {
name = *argv++;
c = GETTOGGLE(name)(struct togglelist *) genget(name, (char **) Togglelist, sizeof
(struct togglelist));
if (Ambiguous(c)) {
   fprintf(stderr(&__sF[2]), "'%s': ambiguous argument ('toggle ?' for help).\r\n",
			name);
   return 0;
} else if (c == 0) {
   fprintf(stderr(&__sF[2]), "'%s': unknown argument ('toggle ?' for help).\r\n",
			name);
   return 0;
} else if (!connected && c->needconnect) {
   printf("?Need to be connected first.\r\n");
   printf("'send ?' for help\r\n");
   return 0;
} else {
   if (c->variable) {
*c->variable = !*c->variable;		/* invert it */
if (c->actionexplanation) {
    printf("%s %s.\r\n", *c->variable? "Will" : "Won't",
					c->actionexplanation);
}
   }
   if (c->handler) {
retval &= (*c->handler)(-1);
   }
}
  }
  return retval;
716}
717
718/*
* The following perform the "set" command.
*/

722struct termios new_tc = { 0 };

724struct setlist {
  char *name;				/* name */
  char *help;				/* help information */
  void (*handler)(const char *);
  cc_t *charp;			/* where it is located at */
729};

731static struct setlist Setlist[] = {
732#ifdef	KLUDGELINEMODE1
  { "echo", 	"character to toggle local echoing on/off", 0, &echoc },
734#endif
  { "escape",	"character to escape back to telnet command mode", 0, &escape },
  { "rlogin", "rlogin escape character", 0, &rlogin },
  { " ", "" },
  { " ", "The following need 'localchars' to be toggled true", 0, 0 },
  { "flushoutput", "character to cause an Abort Output", 0, &termFlushCharnew_tc.c_cc[15] },
  { "interrupt", "character to cause an Interrupt Process", 0, &termIntCharnew_tc.c_cc[8] },
  { "quit",	"character to cause an Abort process", 0, &termQuitCharnew_tc.c_cc[9] },
  { "eof",	"character to cause an EOF ", 0, &termEofCharnew_tc.c_cc[0] },
  { " ", "" },
  { " ", "The following are for local editing in linemode", 0, 0 },
  { "erase",	"character to use to erase a character", 0, &termEraseCharnew_tc.c_cc[3] },
  { "kill",	"character to use to erase a line", 0, &termKillCharnew_tc.c_cc[5] },
  { "lnext",	"character to use for literal next", 0, &termLiteralNextCharnew_tc.c_cc[14] },
  { "susp",	"character to cause a Suspend Process", 0, &termSuspCharnew_tc.c_cc[10] },
  { "reprint", "character to use for line reprint", 0, &termRprntCharnew_tc.c_cc[6] },
  { "worderase", "character to use to erase a word", 0, &termWerasCharnew_tc.c_cc[4] },
  { "start",	"character to use for XON", 0, &termStartCharnew_tc.c_cc[12] },
  { "stop",	"character to use for XOFF", 0, &termStopCharnew_tc.c_cc[13] },
  { "forw1",	"alternate end of line character", 0, &termForw1Charnew_tc.c_cc[1] },
  { "forw2",	"alternate end of line character", 0, &termForw2Charnew_tc.c_cc[1] },
  { "ayt",	"alternate AYT character", 0, &termAytCharnew_tc.c_cc[18] },
  { 0 }
757};

759static struct setlist *
760getset(char *name)
761{
  return (struct setlist *)
genget(name, (char **) Setlist, sizeof(struct setlist));
764}

766void
767set_escape_char(char *s)
768{
if (rlogin != _POSIX_VDISABLE(0377)) {
rlogin = (s && *s) ? special(s) : _POSIX_VDISABLE(0377);
printf("Telnet rlogin escape character is '%s'.\r\n",
			control(rlogin));
} else {
escape = (s && *s) ? special(s) : _POSIX_VDISABLE(0377);
printf("Telnet escape character is '%s'.\r\n", control(escape));
}
777}

779static int
780setcmd(int argc, char *argv[])
781{
  int value;
  struct setlist *ct;
  struct togglelist *c;

  if (argc < 2 || argc > 3) {
printf("Format is 'set Name Value'\r\n'set ?' for help.\r\n");
return 0;
  }
  if ((argc == 2) && (isprefix(argv[1], "?") || isprefix(argv[1], "help"))) {
for (ct = Setlist; ct->name; ct++)
   printf("%-15s %s\r\n", ct->name, ct->help);
printf("\r\n");
settogglehelp(1);
printf("%-15s %s\r\n", "?", "display help information");
return 0;
  }

  ct = getset(argv[1]);
  if (ct == 0) {
c = GETTOGGLE(argv[1])(struct togglelist *) genget(argv[1], (char **) Togglelist, sizeof
(struct togglelist));
if (c == 0) {
   fprintf(stderr(&__sF[2]), "'%s': unknown argument ('set ?' for help).\r\n",
	argv[1]);
   return 0;
} else if (Ambiguous(c)) {
   fprintf(stderr(&__sF[2]), "'%s': ambiguous argument ('set ?' for help).\r\n",
	argv[1]);
   return 0;
} else if (!connected && c->needconnect) {
   printf("?Need to be connected first.\r\n");
   printf("'send ?' for help\r\n");
   return 0;
}

if (c->variable) {
   if ((argc == 2) || (strcmp("on", argv[2]) == 0))
*c->variable = 1;
   else if (strcmp("off", argv[2]) == 0)
*c->variable = 0;
   else {
printf("Format is 'set togglename [on|off]'\r\n'set ?' for help.\r\n");
return 0;
   }
   if (c->actionexplanation) {
printf("%s %s.\r\n", *c->variable? "Will" : "Won't",
					c->actionexplanation);
   }
}
if (c->handler)
   (*c->handler)(1);
  } else if (argc != 3) {
printf("Format is 'set Name Value'\r\n'set ?' for help.\r\n");
return 0;
  } else if (Ambiguous(ct)) {
fprintf(stderr(&__sF[2]), "'%s': ambiguous argument ('set ?' for help).\r\n",
	argv[1]);
return 0;
  } else if (ct->handler) {
(*ct->handler)(argv[2]);
printf("%s set to \"%s\".\r\n", ct->name, (char *)ct->charp);
  } else {
if (strcmp("off", argv[2])) {
   value = special(argv[2]);
} else {
   value = _POSIX_VDISABLE(0377);
}
*(ct->charp) = (cc_t)value;
printf("%s character is '%s'.\r\n", ct->name, control(*(ct->charp)));
  }
  slc_check();
  return 1;
853}

855static int
856unsetcmd(int argc, char *argv[])
857{
  struct setlist *ct;
  struct togglelist *c;
  char *name;

  if (argc < 2) {
fprintf(stderr(&__sF[2]),
   "Need an argument to 'unset' command.  'unset ?' for help.\r\n");
return 0;
  }
  if (isprefix(argv[1], "?") || isprefix(argv[1], "help")) {
for (ct = Setlist; ct->name; ct++)
   printf("%-15s %s\r\n", ct->name, ct->help);
printf("\r\n");
settogglehelp(0);
printf("%-15s %s\r\n", "?", "display help information");
return 0;
  }

  argc--;
  argv++;
  while (argc--) {
name = *argv++;
ct = getset(name);
if (ct == 0) {
   c = GETTOGGLE(name)(struct togglelist *) genget(name, (char **) Togglelist, sizeof
(struct togglelist));
   if (c == 0) {
fprintf(stderr(&__sF[2]), "'%s': unknown argument ('unset ?' for help).\r\n",
	name);
return 0;
   } else if (Ambiguous(c)) {
fprintf(stderr(&__sF[2]), "'%s': ambiguous argument ('unset ?' for help).\r\n",
	name);
return 0;
   }
   if (c->variable) {
*c->variable = 0;
if (c->actionexplanation) {
    printf("%s %s.\r\n", *c->variable? "Will" : "Won't",
					c->actionexplanation);
}
   }
   if (c->handler)
(*c->handler)(0);
} else if (Ambiguous(ct)) {
   fprintf(stderr(&__sF[2]), "'%s': ambiguous argument ('unset ?' for help).\r\n",
	name);
   return 0;
} else if (ct->handler) {
   (*ct->handler)(NULL((void *)0));
   printf("%s reset to \"%s\".\r\n", ct->name, (char *)ct->charp);
} else {
   *(ct->charp) = _POSIX_VDISABLE(0377);
   printf("%s character is '%s'.\r\n", ct->name, control(*(ct->charp)));
}
  }
  return 1;
914}
915
916/*
* The following are the data structures and routines for the
* 'mode' command.
*/
920#ifdef	KLUDGELINEMODE1
921static int
922dokludgemode(int unused)
923{
  kludgelinemode = 1;
  send_wont(TELOPT_LINEMODE34, 1);
  send_dont(TELOPT_SGA3, 1);
  send_dont(TELOPT_ECHO1, 1);
  return 1;
929}
930#endif

932static int
933dolinemode(int unused)
934{
935#ifdef	KLUDGELINEMODE1
  if (kludgelinemode)
send_dont(TELOPT_SGA3, 1);
938#endif
  send_will(TELOPT_LINEMODE34, 1);
  send_dont(TELOPT_ECHO1, 1);
  return 1;
942}

944static int
945docharmode(int unused)
946{
947#ifdef	KLUDGELINEMODE1
  if (kludgelinemode)
send_do(TELOPT_SGA3, 1);
  else
951#endif
  send_wont(TELOPT_LINEMODE34, 1);
  send_do(TELOPT_ECHO1, 1);
  return 1;
955}

957static int
958dolmmode(int bit, int on)
959{
  unsigned char c;

  if (my_want_state_is_wont(TELOPT_LINEMODE)(!(options[34]&0x02))) {
printf("?Need to have LINEMODE option enabled first.\r\n");
printf("'mode ?' for help.\r\n");
return 0;
  }

  if (on)
c = (linemode | bit);
  else
c = (linemode & ~bit);
  lm_mode(&c, 1, 1);
  return 1;
974}

976int
977tn_setmode(int bit)
978{
  return dolmmode(bit, 1);
980}

982int
983tn_clearmode(int bit)
984{
  return dolmmode(bit, 0);
986}

988struct modelist {
char	*name;		/* command name */
char	*help;		/* help string */
int	(*handler)(int);/* routine which executes command */
int	needconnect;	/* Do we need to be connected to execute? */
int	arg1;
994};

996static int modehelp(int);

998static struct modelist ModeList[] = {
  { "character", "Disable LINEMODE option",	docharmode, 1 },
1000#ifdef	KLUDGELINEMODE1
  { "",	"(or disable obsolete line-by-line mode)", 0 },
1002#endif
  { "line",	"Enable LINEMODE option",	dolinemode, 1 },
1004#ifdef	KLUDGELINEMODE1
  { "",	"(or enable obsolete line-by-line mode)", 0 },
1006#endif
  { "", "", 0 },
  { "",	"These require the LINEMODE option to be enabled", 0 },
  { "isig",	"Enable signal trapping",	tn_setmode, 1, MODE_TRAPSIG0x02 },
  { "+isig",	0,				tn_setmode, 1, MODE_TRAPSIG0x02 },
  { "-isig",	"Disable signal trapping",	tn_clearmode, 1, MODE_TRAPSIG0x02 },
  { "edit",	"Enable character editing",	tn_setmode, 1, MODE_EDIT0x01 },
  { "+edit",	0,				tn_setmode, 1, MODE_EDIT0x01 },
  { "-edit",	"Disable character editing",	tn_clearmode, 1, MODE_EDIT0x01 },
  { "softtabs", "Enable tab expansion",	tn_setmode, 1, MODE_SOFT_TAB0x08 },
  { "+softtabs", 0,				tn_setmode, 1, MODE_SOFT_TAB0x08 },
  { "-softtabs", "Disable character editing",	tn_clearmode, 1, MODE_SOFT_TAB0x08 },
  { "litecho", "Enable literal character echo", tn_setmode, 1, MODE_LIT_ECHO0x10 },
  { "+litecho", 0,				tn_setmode, 1, MODE_LIT_ECHO0x10 },
  { "-litecho", "Disable literal character echo", tn_clearmode, 1, MODE_LIT_ECHO0x10 },
  { "help",	0,				modehelp, 0 },
1022#ifdef	KLUDGELINEMODE1
  { "kludgeline", 0,				dokludgemode, 1 },
1024#endif
  { "", "", 0 },
  { "?",	"Print help information",	modehelp, 0 },
  { 0 },
1028};

1030static int
1031modehelp(int unused)
1032{
  struct modelist *mt;

  printf("format is:  'mode Mode', where 'Mode' is one of:\r\n\r\n");
  for (mt = ModeList; mt->name; mt++) {
if (mt->help) {
   if (*mt->help)
printf("%-15s %s\r\n", mt->name, mt->help);
   else
printf("\r\n");
}
  }
  return 0;
1045}

1047#define	GETMODECMD(name)(struct modelist *) genget(name, (char **) ModeList, sizeof(struct
 modelist)) (struct modelist *) \
genget(name, (char **) ModeList, sizeof(struct modelist))

1050static int
1051modecmd(int argc, char *argv[])
1052{
  struct modelist *mt;

  if (argc != 2) {
printf("'mode' command requires an argument\r\n");
printf("'mode ?' for help.\r\n");
  } else if ((mt = GETMODECMD(argv[1])(struct modelist *) genget(argv[1], (char **) ModeList, sizeof
(struct modelist))) == 0) {
fprintf(stderr(&__sF[2]), "Unknown mode '%s' ('mode ?' for help).\r\n", argv[1]);
  } else if (Ambiguous(mt)) {
fprintf(stderr(&__sF[2]), "Ambiguous mode '%s' ('mode ?' for help).\r\n", argv[1]);
  } else if (mt->needconnect && !connected) {
printf("?Need to be connected first.\r\n");
printf("'mode ?' for help.\r\n");
  } else if (mt->handler) {
return (*mt->handler)(mt->arg1);
  }
  return 0;
1069}
1070
1071/*
* The following data structures and routines implement the
* "display" command.
*/

1076static int
1077display(int argc, char *argv[])
1078{
  struct togglelist *tl;
  struct setlist *sl;

1082#define	dotog(tl)	if (tl->variable && tl->actionexplanation) { \
	    if (*tl->variable) { \
		printf("will"); \
	    } else { \
		printf("won't"); \
	    } \
	    printf(" %s.\r\n", tl->actionexplanation); \
	}

1091#define	doset(sl)   if (sl->name && *sl->name != ' ') { \
	if (sl->handler == 0) \
	    printf("%-15s [%s]\r\n", sl->name, control(*sl->charp)); \
	else \
	    printf("%-15s \"%s\"\r\n", sl->name, (char *)sl->charp); \
    }

  if (argc == 1) {
for (tl = Togglelist; tl->name; tl++) {
   dotog(tl);
}
printf("\r\n");
for (sl = Setlist; sl->name; sl++) {
   doset(sl);
}
  } else {
int i;

for (i = 1; i < argc; i++) {
   sl = getset(argv[i]);
   tl = GETTOGGLE(argv[i])(struct togglelist *) genget(argv[i], (char **) Togglelist, sizeof
(struct togglelist));
   if (Ambiguous(sl) || Ambiguous(tl)) {
printf("?Ambiguous argument '%s'.\r\n", argv[i]);
return 0;
   } else if (!sl && !tl) {
printf("?Unknown argument '%s'.\r\n", argv[i]);
return 0;
   } else {
if (tl) {
    dotog(tl);
}
if (sl) {
    doset(sl);
}
   }
}
  }
1128/*@*/optionstatus();
  return 1;
1130#undef	doset
1131#undef	dotog
1132}

1134/*
* The following are the data structures, and many of the routines,
* relating to command processing.
*/

1139/*
* Set the escape character.
*/
1142static int
1143setescape(int argc, char *argv[])
1144{
char *arg;
char buf[50];

printf(
   "Deprecated usage - please use 'set escape%s%s' in the future.\r\n",
		(argc > 2)? " ":"", (argc > 2)? argv[1]: "");
if (argc > 2)
arg = argv[1];
else {
printf("new escape character: ");
(void) fgets(buf, sizeof(buf), stdin(&__sF[0]));
arg = buf;
}
if (arg[0] != '\0')
escape = arg[0];
printf("Escape character is '%s'.\r\n", control(escape));
(void) fflush(stdout(&__sF[1]));
return 1;
1163}

1165static int
1166togcrmod(int unused1, char *unused2[])
1167{
  crmod = !crmod;
  printf("Deprecated usage - please use 'toggle crmod' in the future.\r\n");
  printf("%s map carriage return on output.\r\n", crmod ? "Will" : "Won't");
  (void) fflush(stdout(&__sF[1]));
  return 1;
1173}

1175int
1176telnetsuspend(int unused1, char *unused2[])
1177{
  setcommandmode();
  {
long oldrows, oldcols, newrows, newcols, err;

err = (TerminalWindowSize(&oldrows, &oldcols) == 0) ? 1 : 0;
(void) kill(0, SIGTSTP18);
/*
* If we didn't get the window size before the SUSPEND, but we
* can get them now (?), then send the NAWS to make sure that
* we are set up for the right window size.
*/
if (TerminalWindowSize(&newrows, &newcols) && connected &&
   (err || ((oldrows != newrows) || (oldcols != newcols)))) {
sendnaws();
}
  }
  /* reget parameters in case they were changed */
  TerminalSaveState();
  setconnmode(0);
  return 1;
1198}

1200static void
1201close_connection(void)
1202{
if (connected) {
(void) shutdown(net, SHUT_RDWR2);
printf("Connection closed.\r\n");
(void)close(net);
connected = 0;
resettermname = 1;
/* reset options */
tninit();
}
1212}

1214static int
1215bye(int argc, char *argv[])
1216{
close_connection();
longjmp(toplevel, 1);
1219}

1221void
1222quit(void)
1223{
close_connection();
Exit(0);
1226}

1228static int
1229quitcmd(int unused1, char *unused2[])
1230{
quit();
1232}

1234static int
1235logout(int unused1, char *unused2[])
1236{
send_do(TELOPT_LOGOUT18, 1);
(void) netflush();
return 1;
1240}

1242
1243/*
* The SLC command.
*/

1247struct slclist {
char	*name;
char	*help;
void	(*handler)(int);
int	arg;
1252};

1254static void slc_help(int);

1256struct slclist SlcList[] = {
  { "export",	"Use local special character definitions",
				slc_mode_export,	0 },
  { "import",	"Use remote special character definitions",
				slc_mode_import,	1 },
  { "check",	"Verify remote special character definitions",
				slc_mode_import,	0 },
  { "help",	0,				slc_help,		0 },
  { "?",	"Print help information",	slc_help,		0 },
  { 0 },
1266};

1268static void
1269slc_help(int unused)
1270{
  struct slclist *c;

  for (c = SlcList; c->name; c++) {
if (c->help) {
   if (*c->help)
printf("%-15s %s\r\n", c->name, c->help);
   else
printf("\r\n");
}
  }
1281}

1283static struct slclist *
1284getslc(char *name)
1285{
  return (struct slclist *)
genget(name, (char **) SlcList, sizeof(struct slclist));
1288}

1290static int
1291slccmd(int argc, char *argv[])
1292{
  struct slclist *c;

  if (argc != 2) {
fprintf(stderr(&__sF[2]),
   "Need an argument to 'slc' command.  'slc ?' for help.\r\n");
return 0;
  }
  c = getslc(argv[1]);
  if (c == 0) {
fprintf(stderr(&__sF[2]), "'%s': unknown argument ('slc ?' for help).\r\n",
  				argv[1]);
return 0;
  }
  if (Ambiguous(c)) {
fprintf(stderr(&__sF[2]), "'%s': ambiguous argument ('slc ?' for help).\r\n",
  				argv[1]);
return 0;
  }
  (*c->handler)(c->arg);
  slcstate();
  return 1;
1314}
1315
1316/*
* The ENVIRON command.
*/

1320struct envlist {
char	*name;
char	*help;
void	(*handler)();
int	narg;
1325};

1327static void	env_help(void);
1328static void	env_undefine(const char *);
1329static void	env_export(const char *);
1330static void	env_unexport(const char *);
1331static void	env_send(const char *);
1332static void	env_list(void);
1333static struct env_lst *env_find(const char *var);

1335struct envlist EnvList[] = {
  { "define",	"Define an environment variable",
				(void (*)())env_define,	2 },
  { "undefine", "Undefine an environment variable",
				env_undefine,	1 },
  { "export",	"Mark an environment variable for automatic export",
				env_export,	1 },
  { "unexport", "Don't mark an environment variable for automatic export",
				env_unexport,	1 },
  { "send",	"Send an environment variable", env_send,	1 },
  { "list",	"List the current environment variables",
				env_list,	0 },
  { "help",	0,				env_help,		0 },
  { "?",	"Print help information",	env_help,		0 },
  { 0 },
1350};

1352static void
1353env_help(void)
1354{
  struct envlist *c;

  for (c = EnvList; c->name; c++) {
if (c->help) {
   if (*c->help)
printf("%-15s %s\r\n", c->name, c->help);
   else
printf("\r\n");
}
  }
1365}

1367static struct envlist *
1368getenvcmd(char *name)
1369{
  return (struct envlist *)
genget(name, (char **) EnvList, sizeof(struct envlist));
1372}

1374static int
1375env_cmd(int argc, char *argv[])
1376{
  struct envlist *c;

  if (argc < 2) {
fprintf(stderr(&__sF[2]),
   "Need an argument to 'environ' command.  'environ ?' for help.\r\n");
return 0;
  }
  c = getenvcmd(argv[1]);
  if (c == 0) {
fprintf(stderr(&__sF[2]), "'%s': unknown argument ('environ ?' for help).\r\n",
  				argv[1]);
return 0;
  }
  if (Ambiguous(c)) {
fprintf(stderr(&__sF[2]), "'%s': ambiguous argument ('environ ?' for help).\r\n",
  				argv[1]);
return 0;
  }
  if (c->narg + 2 != argc) {
fprintf(stderr(&__sF[2]),
   "Need %s%d argument%s to 'environ %s' command.  'environ ?' for help.\r\n",
c->narg < argc + 2 ? "only " : "",
c->narg, c->narg == 1 ? "" : "s", c->name);
return 0;
  }
  (*c->handler)(argv[2], argv[3]);
  return 1;
1404}

1406struct env_lst {
struct env_lst *next;	/* pointer to next structure */
struct env_lst *prev;	/* pointer to previous structure */
char *var;		/* pointer to variable name */
char *value;		/* pointer to variable value */
int export;		/* 1 -> export with default list of variables */
int welldefined;	/* A well defined variable */
1413};

1415struct env_lst envlisthead;

1417static struct env_lst *
1418env_find(const char *var)
1419{
struct env_lst *ep;

for (ep = envlisthead.next; ep; ep = ep->next) {
if (strcmp(ep->var, var) == 0)
	return(ep);
}
return(NULL((void *)0));
1427}

1429void
1430env_init(void)
1431{
extern char **environ;
char **epp, *cp;
struct env_lst *ep;

for (epp = environ; *epp; epp++) {
if ((cp = strchr(*epp, '='))) {
	*cp = '\0';
	ep = env_define(*epp, cp+1);
	ep->export = 0;
	*cp = '=';
}
}
/*
* Special case for DISPLAY variable.  If it is ":0.0" or
* "unix:0.0", we have to get rid of "unix" and insert our
* hostname.
*/
if ((ep = env_find("DISPLAY"))
   && ((*ep->value == ':')
|| (strncmp(ep->value, "unix:", 5) == 0))) {
char hbuf[HOST_NAME_MAX255+1];
char *cp2 = strchr(ep->value, ':');

gethostname(hbuf, sizeof hbuf);

if (asprintf (&cp, "%s%s", hbuf, cp2) == -1)
	err(1, "asprintf");

free(ep->value);
ep->value = cp;
}
/*
* If USER is not defined, but LOGNAME is, then add
* USER with the value from LOGNAME.  By default, we
* don't export the USER variable.
*/
if ((env_find("USER") == NULL((void *)0)) && (ep = env_find("LOGNAME"))) {
env_define("USER", ep->value);
env_unexport("USER");
}
env_export("DISPLAY");
env_export("PRINTER");
env_export("XAUTHORITY");
1475}

1477struct env_lst *
1478env_define(const char *var, const char *value)
1479{
struct env_lst *ep;

if ((ep = env_find(var))) {
free(ep->var);
free(ep->value);
} else {
if ((ep = malloc(sizeof(struct env_lst))) == NULL((void *)0))
	err(1, "malloc");
ep->next = envlisthead.next;
envlisthead.next = ep;
ep->prev = &envlisthead;
if (ep->next)
	ep->next->prev = ep;
}
ep->welldefined = opt_welldefined(var);
ep->export = 1;
if ((ep->var = strdup(var)) == NULL((void *)0))
err(1, "strdup");
if ((ep->value = strdup(value)) == NULL((void *)0))
err(1, "strdup");
return(ep);
1501}

1503static void
1504env_undefine(const char *var)
1505{
struct env_lst *ep;

if ((ep = env_find(var))) {
ep->prev->next = ep->next;
if (ep->next)
	ep->next->prev = ep->prev;
free(ep->var);
free(ep->value);
free(ep);
}
1516}

1518static void
1519env_export(const char *var)
1520{
struct env_lst *ep;

if ((ep = env_find(var)))
ep->export = 1;
1525}

1527static void
1528env_unexport(const char *var)
1529{
struct env_lst *ep;

if ((ep = env_find(var)) != NULL((void *)0))
ep->export = 0;
1534}

1536static void
1537env_send(const char *var)
1538{
struct env_lst *ep;

if (my_state_is_wont(TELOPT_NEW_ENVIRON)(!(options[39]&0x01))
) {
fprintf(stderr(&__sF[2]),
    "Cannot send '%s': Telnet ENVIRON option not enabled\r\n",
							var);
return;
}
ep = env_find(var);
if (ep == 0) {
fprintf(stderr(&__sF[2]), "Cannot send '%s': variable not defined\r\n",
							var);
return;
}
env_opt_start_info();
env_opt_add(ep->var);
env_opt_end(0);
1557}

1559static void
1560env_list(void)
1561{
struct env_lst *ep;

for (ep = envlisthead.next; ep; ep = ep->next) {
printf("%c %-20s %s\r\n", ep->export ? '*' : ' ',
			ep->var, ep->value);
}
1568}

1570char *
1571env_default(int init, int welldefined)
1572{
static struct env_lst *nep = NULL((void *)0);

if (init) {
nep = &envlisthead;
return NULL((void *)0);
}
if (nep) {
while ((nep = nep->next)) {
	if (nep->export && (nep->welldefined == welldefined))
		return(nep->var);
}
}
return(NULL((void *)0));
1586}

1588char *
1589env_getvalue(const char *var, int exported_only)
1590{
struct env_lst *ep;

if ((ep = env_find(var)) && (!exported_only || ep->export))
return(ep->value);
return(NULL((void *)0));
1596}

1598static void
1599connection_status(int local_only)
1600{
if (!connected)
printf("No connection.\r\n");
else {
printf("Connected to %s.\r\n", hostname);
if (!local_only) {
	int mode = getconnmode();

	printf("Operating ");
	if (my_want_state_is_will(TELOPT_LINEMODE)(options[34]&0x02)) {
		printf("with LINEMODE option\r\n"
		    "%s line editing\r\n"
		    "%s catching of signals\r\n",
		    (mode & MODE_EDIT0x01) ? "Local" : "No",
		    (mode & MODE_TRAPSIG0x02) ? "Local" : "No");
		slcstate();
1616#ifdef	KLUDGELINEMODE1
	} else if (kludgelinemode &&
	    my_want_state_is_dont(TELOPT_SGA)(!(options[3]&0x08))) {
		printf("in obsolete linemode\r\n");
1620#endif
	} else {
		printf("in single character mode\r\n");
		if (localchars)
			printf("Catching signals locally\r\n");
	}

	printf("%s character echo\r\n",
	    (mode & MODE_ECHO0x0200) ? "Local" : "Remote");
	if (my_want_state_is_will(TELOPT_LFLOW)(options[33]&0x02))
		printf("%s flow control\r\n",
		    (mode & MODE_FLOW0x0100) ? "Local" : "No");
}
}
printf("Escape character is '%s'.\r\n", control(escape));
(void) fflush(stdout(&__sF[1]));
1636}

1638/*
* Print status about the connection.
*/
1641static int
1642status(int argc, char *argv[])
1643{
connection_status(0);
return 1;
1646}

1648/*
* Function that gets called when SIGINFO is received.
*/
1651void
1652ayt_status(int sig)
1653{
connection_status(1);
1655}

1657static Command *getcmd(char *name);

1659static void
1660cmdrc(char *m1, char *m2)
1661{
  static char rcname[128];
  Command *c;
  FILE *rcfile;
  int gotmachine = 0;
  int l1 = strlen(m1);
  int l2 = strlen(m2);
  char m1save[HOST_NAME_MAX255+1];

  if (skiprc)
return;

  strlcpy(m1save, m1, sizeof(m1save));
  m1 = m1save;

  if (rcname[0] == 0) {
char *home = getenv("HOME");

if (home == NULL((void *)0) || *home == '\0')
   return;
snprintf (rcname, sizeof(rcname), "%s/.telnetrc",
  home ? home : "");
  }

  if ((rcfile = fopen(rcname, "r")) == 0) {
return;
  }

  for (;;) {
if (fgets(line, sizeof(line), rcfile) == NULL((void *)0))
   break;
if (line[0] == 0)
   break;
if (line[0] == '#')
   continue;
if (gotmachine) {
   if (!isspace((unsigned char)line[0]))
gotmachine = 0;
}
if (gotmachine == 0) {
   if (isspace((unsigned char)line[0]))
continue;
   if (strncasecmp(line, m1, l1) == 0)
strncpy(line, &line[l1], sizeof(line) - l1);
   else if (strncasecmp(line, m2, l2) == 0)
strncpy(line, &line[l2], sizeof(line) - l2);
   else if (strncasecmp(line, "DEFAULT", 7) == 0)
strncpy(line, &line[7], sizeof(line) - 7);
   else
continue;
   if (line[0] != ' ' && line[0] != '\t' && line[0] != '\n')
continue;
   gotmachine = 1;
}
if (makeargv())
   continue;
if (margv[0] == 0)
   continue;
c = getcmd(margv[0]);
if (Ambiguous(c)) {
   printf("?Ambiguous command: %s\r\n", margv[0]);
   continue;
}
if (c == 0) {
   printf("?Invalid command: %s\r\n", margv[0]);
   continue;
}
/*
* This should never happen...
*/
if (c->needconnect && !connected) {
   printf("?Need to be connected first for %s.\r\n", margv[0]);
   continue;
}
(*c->handler)(margc, margv);
  }
  fclose(rcfile);
1738}

1740int
1741tn(int argc, char *argv[])
1742{
  struct addrinfo hints, *res, *res0;
  char *cmd, *hostp = 0, *portp = 0, *user = 0, *aliasp = 0;
  int error, retry;
  const int niflags = NI_NUMERICHOST1, tos = IPTOS_LOWDELAY0x10;

  if (connected) {
1
Assuming 'connected' is 0→
2
←
Taking false branch→
printf("?Already connected to %s\r\n", hostname);
return 0;
  }
  if (connections) {
3
←
Assuming 'connections' is 0→
4
←
Taking false branch→
printf("Repeated connections not supported\r\n");
return 0;
  }
  if (argc < 2) {
5
←
Assuming 'argc' is >= 2→
6
←
Taking false branch→
strlcpy(line, "open ", sizeof(line));
printf("(to) ");
(void) fgets(&line[strlen(line)], sizeof(line) - strlen(line), stdin(&__sF[0]));
if (makeargv())
          return 0;
argc = margc;
argv = margv;
  }
  cmd = *argv;
  --argc; ++argv;
  while (argc) {
7
←
Loop condition is true.  Entering loop body→
18
←
Loop condition is false. Execution continues on line 1806→
if (strcmp(*argv, "help") == 0 || isprefix(*argv, "?"))
8
←
Assuming the condition is false→
9
←
Assuming the condition is false→
10
←
Taking false branch→
   goto usage;
if (strcmp(*argv, "-l") == 0) {
11
←
Taking true branch→
   --argc; ++argv;
   if (argc == 0)
12
←
Assuming 'argc' is not equal to 0→
13
←
Taking false branch→
goto usage;
   if ((user = strdup(*argv++)) == NULL((void *)0))
14
←
Memory is allocated→
15
←
Assuming the condition is false→
16
←
Taking false branch→
err(1, "strdup");
   --argc;
   continue;
17
←
 Execution continues on line 1767→
}
if (strcmp(*argv, "-b") == 0) {
   --argc; ++argv;
   if (argc == 0)
goto usage;
   aliasp = *argv++;
   --argc;
   continue;
}
if (strcmp(*argv, "-a") == 0) {
   --argc; ++argv;
   autologin = 1;
   continue;
}
if (hostp == 0) {
   hostp = *argv++;
   --argc;
   continue;
}
if (portp == 0) {
   portp = *argv++;
   --argc;
   continue;
}
  usage:
printf("usage: %s [-a] [-b hostalias] [-l user] host-name [port]\r\n", cmd);
21
←
Potential leak of memory pointed to by 'user'
return 0;
  }
  if (hostp18.1
'hostp' is equal to null
 == 0)
19
←
Taking true branch→
goto usage;
20
←
Control jumps to line 1803→

  hostname = hostp;
  memset(&hints, 0, sizeof(hints));
  hints.ai_family = family;
  hints.ai_socktype = SOCK_STREAM1;
  hints.ai_flags = AI_CANONNAME2;
  if (portp == NULL((void *)0)) {
      portp = "telnet";
      telnetport = 1;
  } else if (*portp == '-') {
      portp++;
      telnetport = 1;
  } else
      telnetport = 0;
  error = getaddrinfo(hostp, portp, &hints, &res0);
  if (error) {
      if (error == EAI_SERVICE-8)
          warnx("%s: bad port", portp);
      else
          warnx("%s: %s", hostp, gai_strerror(error));
      return 0;
  }

  net = -1;
  retry = 0;
  for (res = res0; res; res = res->ai_next) {
if (1 /* retry */) {
   char hbuf[NI_MAXHOST256];

   if (getnameinfo(res->ai_addr, res->ai_addrlen, hbuf, sizeof(hbuf),
    NULL((void *)0), 0, niflags) != 0) {
strlcpy(hbuf, "(invalid)", sizeof(hbuf));
   }
   printf("Trying %s...\r\n", hbuf);
}
net = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
if (net == -1)
   continue;

if (aliasp) {
   struct addrinfo ahints, *ares;

   memset(&ahints, 0, sizeof(ahints));
   ahints.ai_family = family;
   ahints.ai_socktype = SOCK_STREAM1;
   ahints.ai_flags = AI_PASSIVE1;
   error = getaddrinfo(aliasp, "0", &ahints, &ares);
   if (error) {
warn("%s: %s", aliasp, gai_strerror(error));
close(net);
net = -1;
continue;
   }
   if (bind(net, ares->ai_addr, ares->ai_addrlen) == -1) {
perror(aliasp);
(void) close(net);   /* dump descriptor */
net = -1;
freeaddrinfo(ares);
continue;
          }
   freeaddrinfo(ares);
}

switch (res->ai_family) {
case AF_INET2:
if (setsockopt(net, IPPROTO_IP0, IP_TOS3, &tos, sizeof(tos)) == -1
    && errno(*__errno()) != ENOPROTOOPT42)
	perror("telnet: setsockopt (IP_TOS) (ignored)");
break;
case AF_INET624:
if (setsockopt(net, IPPROTO_IPV641, IPV6_TCLASS61, &tos,
    sizeof(tos)) == -1 && errno(*__errno()) != ENOPROTOOPT42)
	perror("telnet: setsockopt (IPV6_TCLASS) (ignored)");
break;
}

if (connect(net, res->ai_addr, res->ai_addrlen) == -1) {
   char hbuf[NI_MAXHOST256];

   if (getnameinfo(res->ai_addr, res->ai_addrlen, hbuf, sizeof(hbuf),
    NULL((void *)0), 0, niflags) != 0) {
strlcpy(hbuf, "(invalid)", sizeof(hbuf));
   }
   fprintf(stderr(&__sF[2]), "telnet: connect to address %s: %s\n", hbuf,
strerror(errno(*__errno())));

   close(net);
   net = -1;
   retry++;
   continue;
}

connected++;
break;
  }
  freeaddrinfo(res0);
  if (net < 0) {
return 0;
  }
  cmdrc(hostp, hostname);
  if (autologin && user == NULL((void *)0)) {
struct passwd *pw;

user = getlogin();
if (user == NULL((void *)0) ||
   (pw = getpwnam(user)) == NULL((void *)0) || pw->pw_uid != getuid()) {
if ((pw = getpwuid(getuid())) != NULL((void *)0))
	user = pw->pw_name;
else
	user = NULL((void *)0);
}
  }
  if (user) {
env_define("USER", user);
env_export("USER");
  }
  connection_status(1);
  if (setjmp(peerdied) == 0)
telnet(user);
  (void)close(net);
  ExitString("Connection closed by foreign host.\r\n",1);
1929}

1931#define HELPINDENT(sizeof ("connect")) (sizeof ("connect"))

1933static char
openhelp[] =	"connect to a site",
closehelp[] =	"close current connection",
logouthelp[] =	"forcibly logout remote user and close the connection",
quithelp[] =	"exit telnet",
statushelp[] =	"print status information",
helphelp[] =	"print help information",
sendhelp[] =	"transmit special characters ('send ?' for more)",
sethelp[] = 	"set operating parameters ('set ?' for more)",
unsethelp[] = 	"unset operating parameters ('unset ?' for more)",
togglestring[] ="toggle operating parameters ('toggle ?' for more)",
slchelp[] =	"change state of special charaters ('slc ?' for more)",
displayhelp[] =	"display operating parameters",
zhelp[] =	"suspend telnet",
envhelp[] =	"change environment variables ('environ ?' for more)",
modestring[] = "try to enter line or character mode ('mode ?' for more)";

1950static int	help(int, char**);

1952static Command cmdtab[] = {
{ "close",	closehelp,	bye,		1 },
{ "logout",	logouthelp,	logout,		1 },
{ "display",	displayhelp,	display,	0 },
{ "mode",	modestring,	modecmd,	0 },
{ "open",	openhelp,	tn,		0 },
{ "quit",	quithelp,	quitcmd,	0 },
{ "send",	sendhelp,	sendcmd,	0 },
{ "set",	sethelp,	setcmd,		0 },
{ "unset",	unsethelp,	unsetcmd,	0 },
{ "status",	statushelp,	status,		0 },
{ "toggle",	togglestring,	toggle,		0 },
{ "slc",	slchelp,	slccmd,		0 },

{ "z",		zhelp,		telnetsuspend,	0 },
{ "environ",	envhelp,	env_cmd,	0 },
{ "?",		helphelp,	help,		0 },
{ 0,		0,		0,		0 }
1970};

1972static char	crmodhelp[] =	"deprecated command -- use 'toggle crmod' instead";
1973static char	escapehelp[] =	"deprecated command -- use 'set escape' instead";

1975static Command cmdtab2[] = {
{ "help",	0,		help,		0 },
{ "escape",	escapehelp,	setescape,	0 },
{ "crmod",	crmodhelp,	togcrmod,	0 },
{ 0,		0,		0,		0 }
1980};


1983static Command *
1984getcmd(char *name)
1985{
  Command *cm;

  if ((cm = (Command *) genget(name, (char **) cmdtab, sizeof(Command))))
return cm;
  return (Command *) genget(name, (char **) cmdtab2, sizeof(Command));
1991}

1993void
1994command(int top, char *tbuf, int cnt)
1995{
  Command *c;

  setcommandmode();
  if (!top) {
putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
  } else {
(void) signal(SIGINT2, SIG_DFL(void (*)(int))0);
(void) signal(SIGQUIT3, SIG_DFL(void (*)(int))0);
  }
  for (;;) {
if (rlogin == _POSIX_VDISABLE(0377))
printf("%s> ", prompt);
if (tbuf) {
   char *cp;
   cp = line;
   while (cnt > 0 && (*cp++ = *tbuf++) != '\n')
cnt--;
   tbuf = 0;
   if (cp == line || *--cp != '\n' || cp == line)
goto getline;
   *cp = '\0';
   if (rlogin == _POSIX_VDISABLE(0377))
printf("%s\r\n", line);
} else {
getline:
   if (rlogin != _POSIX_VDISABLE(0377))
printf("%s> ", prompt);
   if (fgets(line, sizeof(line), stdin(&__sF[0])) == NULL((void *)0)) {
if (feof(stdin)(!__isthreaded ? ((((&__sF[0]))->_flags & 0x0020) !=
 0) : (feof)((&__sF[0]))) || ferror(stdin)(!__isthreaded ? ((((&__sF[0]))->_flags & 0x0040) !=
 0) : (ferror)((&__sF[0]))))
    quit();
break;
   }
}
if (line[0] == 0)
   break;
if (makeargv())
          break;
if (margv[0] == 0) {
   break;
}
c = getcmd(margv[0]);
if (Ambiguous(c)) {
   printf("?Ambiguous command\r\n");
   continue;
}
if (c == 0) {
   printf("?Invalid command\r\n");
   continue;
}
if (c->needconnect && !connected) {
   printf("?Need to be connected first.\r\n");
   continue;
}
if ((*c->handler)(margc, margv)) {
   break;
}
  }
  if (!top) {
if (!connected)
   longjmp(toplevel, 1);
setconnmode(0);
  }
2058}
2059
2060/*
* Help command.
*/
2063static int
2064help(int argc, char *argv[])
2065{
Command *c;

if (argc == 1) {
printf("Commands may be abbreviated.  Commands are:\r\n\r\n");
for (c = cmdtab; c->name; c++)
	if (c->help) {
		printf("%-*s\t%s\r\n", (int)HELPINDENT(sizeof ("connect")), c->name,
						    c->help);
	}
return 0;
}
while (--argc > 0) {
char *arg;
arg = *++argv;
c = getcmd(arg);
if (Ambiguous(c))
	printf("?Ambiguous help command %s\r\n", arg);
else if (c == NULL((void *)0))
	printf("?Invalid help command %s\r\n", arg);
else
	printf("%s\r\n", c->help);
}
return 0;
2089}