PageRenderTime 58ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 0ms

/contrib/telnet/telnet/utilities.c

https://bitbucket.org/evzijst/freebsd
C | 912 lines | 819 code | 42 blank | 51 comment | 135 complexity | f1d57d1861ef74790e1470d28dd53cd8 MD5 | raw file
Possible License(s): BSD-3-Clause, LGPL-2.0, AGPL-1.0, LGPL-2.1, GPL-2.0, BSD-2-Clause, 0BSD, MPL-2.0-no-copyleft-exception 
    

  1. /*
    2. 

  2.  * Copyright (c) 1988, 1993
    3. 

  3.  *	The Regents of the University of California.  All rights reserved.
    4. 

  4.  *
    5. 

  5.  * Redistribution and use in source and binary forms, with or without
    6. 

  6.  * modification, are permitted provided that the following conditions
    7. 

  7.  * are met:
    8. 

  8.  * 1. Redistributions of source code must retain the above copyright
    9. 

  9.  *    notice, this list of conditions and the following disclaimer.
    10. 

  10.  * 2. Redistributions in binary form must reproduce the above copyright
    11. 

  11.  *    notice, this list of conditions and the following disclaimer in the
    12. 

  12.  *    documentation and/or other materials provided with the distribution.
    13. 

  13.  * 3. All advertising materials mentioning features or use of this software
    14. 

  14.  *    must display the following acknowledgement:
    15. 

  15.  *	This product includes software developed by the University of
    16. 

  16.  *	California, Berkeley and its contributors.
    17. 

  17.  * 4. Neither the name of the University nor the names of its contributors
    18. 

  18.  *    may be used to endorse or promote products derived from this software
    19. 

  19.  *    without specific prior written permission.
    20. 

  20.  *
    21. 

  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
    22. 

  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
    23. 

  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
    24. 

  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
    25. 

  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
    26. 

  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
    27. 

  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
    28. 

  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
    29. 

  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
    30. 

  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
    31. 

  31.  * SUCH DAMAGE.
    32. 

  32.  */
    33. 

  33. 

  34. #if 0
    35. 

  35. #ifndef lint
    36. 

  36. static const char sccsid[] = "@(#)utilities.c	8.3 (Berkeley) 5/30/95";
    37. 

  37. #endif
    38. 

  38. #endif
    39. 

  39. #include <sys/cdefs.h>
    40. 

  40. __FBSDID("$FreeBSD$");
    41. 

  41. 

  42. #define	TELOPTS
    43. 

  43. #define	TELCMDS
    44. 

  44. #define	SLC_NAMES
    45. 

  45. #include <arpa/telnet.h>
    46. 

  46. #include <sys/types.h>
    47. 

  47. #include <sys/socket.h>
    48. 

  48. #include <sys/time.h>
    49. 

  49. #include <ctype.h>
    50. 

  50. #include <stdlib.h>
    51. 

  51. #include <unistd.h>
    52. 

  52. 

  53. #include "general.h"
    54. 

  54. 

  55. #include "fdset.h"
    56. 

  56. 

  57. #include "ring.h"
    58. 

  58. 

  59. #include "defines.h"
    60. 

  60. 

  61. #include "externs.h"
    62. 

  62. 

  63. #ifdef	AUTHENTICATION
    64. 

  64. #include <libtelnet/auth.h>
    65. 

  65. #endif
    66. 

  66. #ifdef	ENCRYPTION
    67. 

  67. #include <libtelnet/encrypt.h>
    68. 

  68. #endif
    69. 

  69. 

  70. FILE	*NetTrace = 0;		/* Not in bss, since needs to stay */
    71. 

  71. int	prettydump;
    72. 

  72. 

  73. /*
    74. 

  74.  * upcase()
    75. 

  75.  *
    76. 

  76.  *	Upcase (in place) the argument.
    77. 

  77.  */
    78. 

  78. 

  79. void
    80. 

  80. upcase(char *argument)
    81. 

  81. {
    82. 

  82.     int c;
    83. 

  83. 

  84.     while ((c = *argument) != 0) {
    85. 

  85. 	if (islower(c)) {
    86. 

  86. 	    *argument = toupper(c);
    87. 

  87. 	}
    88. 

  88. 	argument++;
    89. 

  89.     }
    90. 

  90. }
    91. 

  91. 

  92. /*
    93. 

  93.  * SetSockOpt()
    94. 

  94.  *
    95. 

  95.  * Compensate for differences in 4.2 and 4.3 systems.
    96. 

  96.  */
    97. 

  97. 

  98. int
    99. 

  99. SetSockOpt(int fd, int level, int option, int yesno)
    100. 

  100. {
    101. 

  101.     return setsockopt(fd, level, option,
    102. 

  102. 				(char *)&yesno, sizeof yesno);
    103. 

  103. }
    104. 

  104. 
    105. 

  105. /*
    106. 

  106.  * The following are routines used to print out debugging information.
    107. 

  107.  */
    108. 

  108. 

  109. unsigned char NetTraceFile[256] = "(standard output)";
    110. 

  110. 

  111. void
    112. 

  112. SetNetTrace(char *file)
    113. 

  113. {
    114. 

  114.     if (NetTrace && NetTrace != stdout)
    115. 

  115. 	fclose(NetTrace);
    116. 

  116.     if (file  && (strcmp(file, "-") != 0)) {
    117. 

  117. 	NetTrace = fopen(file, "w");
    118. 

  118. 	if (NetTrace) {
    119. 

  119. 	    strcpy((char *)NetTraceFile, file);
    120. 

  120. 	    return;
    121. 

  121. 	}
    122. 

  122. 	fprintf(stderr, "Cannot open %s.\n", file);
    123. 

  123.     }
    124. 

  124.     NetTrace = stdout;
    125. 

  125.     strcpy((char *)NetTraceFile, "(standard output)");
    126. 

  126. }
    127. 

  127. 

  128. void
    129. 

  129. Dump(char direction, unsigned char *buffer, int length)
    130. 

  130. {
    131. 

  131. #   define BYTES_PER_LINE	32
    132. 

  132. #   define min(x,y)	((x<y)? x:y)
    133. 

  133.     unsigned char *pThis;
    134. 

  134.     int offset;
    135. 

  135. 

  136.     offset = 0;
    137. 

  137. 

  138.     while (length) {
    139. 

  139. 	/* print one line */
    140. 

  140. 	fprintf(NetTrace, "%c 0x%x\t", direction, offset);
    141. 

  141. 	pThis = buffer;
    142. 

  142. 	if (prettydump) {
    143. 

  143. 	    buffer = buffer + min(length, BYTES_PER_LINE/2);
    144. 

  144. 	    while (pThis < buffer) {
    145. 

  145. 		fprintf(NetTrace, "%c%.2x",
    146. 

  146. 		    (((*pThis)&0xff) == 0xff) ? '*' : ' ',
    147. 

  147. 		    (*pThis)&0xff);
    148. 

  148. 		pThis++;
    149. 

  149. 	    }
    150. 

  150. 	    length -= BYTES_PER_LINE/2;
    151. 

  151. 	    offset += BYTES_PER_LINE/2;
    152. 

  152. 	} else {
    153. 

  153. 	    buffer = buffer + min(length, BYTES_PER_LINE);
    154. 

  154. 	    while (pThis < buffer) {
    155. 

  155. 		fprintf(NetTrace, "%.2x", (*pThis)&0xff);
    156. 

  156. 		pThis++;
    157. 

  157. 	    }
    158. 

  158. 	    length -= BYTES_PER_LINE;
    159. 

  159. 	    offset += BYTES_PER_LINE;
    160. 

  160. 	}
    161. 

  161. 	if (NetTrace == stdout) {
    162. 

  162. 	    fprintf(NetTrace, "\r\n");
    163. 

  163. 	} else {
    164. 

  164. 	    fprintf(NetTrace, "\n");
    165. 

  165. 	}
    166. 

  166. 	if (length < 0) {
    167. 

  167. 	    fflush(NetTrace);
    168. 

  168. 	    return;
    169. 

  169. 	}
    170. 

  170. 	/* find next unique line */
    171. 

  171.     }
    172. 

  172.     fflush(NetTrace);
    173. 

  173. }
    174. 

  174. 

  175. 

  176. void
    177. 

  177. printoption(const char *direction, int cmd, int option)
    178. 

  178. {
    179. 

  179. 	if (!showoptions)
    180. 

  180. 		return;
    181. 

  181. 	if (cmd == IAC) {
    182. 

  182. 		if (TELCMD_OK(option))
    183. 

  183. 		    fprintf(NetTrace, "%s IAC %s", direction, TELCMD(option));
    184. 

  184. 		else
    185. 

  185. 		    fprintf(NetTrace, "%s IAC %d", direction, option);
    186. 

  186. 	} else {
    187. 

  187. 		const char *fmt;
    188. 

  188. 		fmt = (cmd == WILL) ? "WILL" : (cmd == WONT) ? "WONT" :
    189. 

  189. 			(cmd == DO) ? "DO" : (cmd == DONT) ? "DONT" : 0;
    190. 

  190. 		if (fmt) {
    191. 

  191. 		    fprintf(NetTrace, "%s %s ", direction, fmt);
    192. 

  192. 		    if (TELOPT_OK(option))
    193. 

  193. 			fprintf(NetTrace, "%s", TELOPT(option));
    194. 

  194. 		    else if (option == TELOPT_EXOPL)
    195. 

  195. 			fprintf(NetTrace, "EXOPL");
    196. 

  196. 		    else
    197. 

  197. 			fprintf(NetTrace, "%d", option);
    198. 

  198. 		} else
    199. 

  199. 		    fprintf(NetTrace, "%s %d %d", direction, cmd, option);
    200. 

  200. 	}
    201. 

  201. 	if (NetTrace == stdout) {
    202. 

  202. 	    fprintf(NetTrace, "\r\n");
    203. 

  203. 	    fflush(NetTrace);
    204. 

  204. 	} else {
    205. 

  205. 	    fprintf(NetTrace, "\n");
    206. 

  206. 	}
    207. 

  207. 	return;
    208. 

  208. }
    209. 

  209. 

  210. void
    211. 

  211. optionstatus(void)
    212. 

  212. {
    213. 

  213.     int i;
    214. 

  214.     extern char will_wont_resp[], do_dont_resp[];
    215. 

  215. 

  216.     for (i = 0; i < 256; i++) {
    217. 

  217. 	if (do_dont_resp[i]) {
    218. 

  218. 	    if (TELOPT_OK(i))
    219. 

  219. 		printf("resp DO_DONT %s: %d\n", TELOPT(i), do_dont_resp[i]);
    220. 

  220. 	    else if (TELCMD_OK(i))
    221. 

  221. 		printf("resp DO_DONT %s: %d\n", TELCMD(i), do_dont_resp[i]);
    222. 

  222. 	    else
    223. 

  223. 		printf("resp DO_DONT %d: %d\n", i,
    224. 

  224. 				do_dont_resp[i]);
    225. 

  225. 	    if (my_want_state_is_do(i)) {
    226. 

  226. 		if (TELOPT_OK(i))
    227. 

  227. 		    printf("want DO   %s\n", TELOPT(i));
    228. 

  228. 		else if (TELCMD_OK(i))
    229. 

  229. 		    printf("want DO   %s\n", TELCMD(i));
    230. 

  230. 		else
    231. 

  231. 		    printf("want DO   %d\n", i);
    232. 

  232. 	    } else {
    233. 

  233. 		if (TELOPT_OK(i))
    234. 

  234. 		    printf("want DONT %s\n", TELOPT(i));
    235. 

  235. 		else if (TELCMD_OK(i))
    236. 

  236. 		    printf("want DONT %s\n", TELCMD(i));
    237. 

  237. 		else
    238. 

  238. 		    printf("want DONT %d\n", i);
    239. 

  239. 	    }
    240. 

  240. 	} else {
    241. 

  241. 	    if (my_state_is_do(i)) {
    242. 

  242. 		if (TELOPT_OK(i))
    243. 

  243. 		    printf("     DO   %s\n", TELOPT(i));
    244. 

  244. 		else if (TELCMD_OK(i))
    245. 

  245. 		    printf("     DO   %s\n", TELCMD(i));
    246. 

  246. 		else
    247. 

  247. 		    printf("     DO   %d\n", i);
    248. 

  248. 	    }
    249. 

  249. 	}
    250. 

  250. 	if (will_wont_resp[i]) {
    251. 

  251. 	    if (TELOPT_OK(i))
    252. 

  252. 		printf("resp WILL_WONT %s: %d\n", TELOPT(i), will_wont_resp[i]);
    253. 

  253. 	    else if (TELCMD_OK(i))
    254. 

  254. 		printf("resp WILL_WONT %s: %d\n", TELCMD(i), will_wont_resp[i]);
    255. 

  255. 	    else
    256. 

  256. 		printf("resp WILL_WONT %d: %d\n",
    257. 

  257. 				i, will_wont_resp[i]);
    258. 

  258. 	    if (my_want_state_is_will(i)) {
    259. 

  259. 		if (TELOPT_OK(i))
    260. 

  260. 		    printf("want WILL %s\n", TELOPT(i));
    261. 

  261. 		else if (TELCMD_OK(i))
    262. 

  262. 		    printf("want WILL %s\n", TELCMD(i));
    263. 

  263. 		else
    264. 

  264. 		    printf("want WILL %d\n", i);
    265. 

  265. 	    } else {
    266. 

  266. 		if (TELOPT_OK(i))
    267. 

  267. 		    printf("want WONT %s\n", TELOPT(i));
    268. 

  268. 		else if (TELCMD_OK(i))
    269. 

  269. 		    printf("want WONT %s\n", TELCMD(i));
    270. 

  270. 		else
    271. 

  271. 		    printf("want WONT %d\n", i);
    272. 

  272. 	    }
    273. 

  273. 	} else {
    274. 

  274. 	    if (my_state_is_will(i)) {
    275. 

  275. 		if (TELOPT_OK(i))
    276. 

  276. 		    printf("     WILL %s\n", TELOPT(i));
    277. 

  277. 		else if (TELCMD_OK(i))
    278. 

  278. 		    printf("     WILL %s\n", TELCMD(i));
    279. 

  279. 		else
    280. 

  280. 		    printf("     WILL %d\n", i);
    281. 

  281. 	    }
    282. 

  282. 	}
    283. 

  283.     }
    284. 

  284. 

  285. }
    286. 

  286. 

  287. void
    288. 

  288. printsub(char direction, unsigned char *pointer, int length)
    289. 

  289. {
    290. 

  290.     int i;
    291. 

  291. #ifdef	AUTHENTICATION
    292. 

  292.     char buf[512];
    293. 

  293. #endif
    294. 

  294.     extern int want_status_response;
    295. 

  295. 

  296.     if (showoptions || direction == 0 ||
    297. 

  297. 	(want_status_response && (pointer[0] == TELOPT_STATUS))) {
    298. 

  298. 	if (direction) {
    299. 

  299. 	    fprintf(NetTrace, "%s IAC SB ",
    300. 

  300. 				(direction == '<')? "RCVD":"SENT");
    301. 

  301. 	    if (length >= 3) {
    302. 

  302. 		int j;
    303. 

  303. 

  304. 		i = pointer[length-2];
    305. 

  305. 		j = pointer[length-1];
    306. 

  306. 

  307. 		if (i != IAC || j != SE) {
    308. 

  308. 		    fprintf(NetTrace, "(terminated by ");
    309. 

  309. 		    if (TELOPT_OK(i))
    310. 

  310. 			fprintf(NetTrace, "%s ", TELOPT(i));
    311. 

  311. 		    else if (TELCMD_OK(i))
    312. 

  312. 			fprintf(NetTrace, "%s ", TELCMD(i));
    313. 

  313. 		    else
    314. 

  314. 			fprintf(NetTrace, "%d ", i);
    315. 

  315. 		    if (TELOPT_OK(j))
    316. 

  316. 			fprintf(NetTrace, "%s", TELOPT(j));
    317. 

  317. 		    else if (TELCMD_OK(j))
    318. 

  318. 			fprintf(NetTrace, "%s", TELCMD(j));
    319. 

  319. 		    else
    320. 

  320. 			fprintf(NetTrace, "%d", j);
    321. 

  321. 		    fprintf(NetTrace, ", not IAC SE!) ");
    322. 

  322. 		}
    323. 

  323. 	    }
    324. 

  324. 	    length -= 2;
    325. 

  325. 	}
    326. 

  326. 	if (length < 1) {
    327. 

  327. 	    fprintf(NetTrace, "(Empty suboption??\?)");
    328. 

  328. 	    if (NetTrace == stdout)
    329. 

  329. 		fflush(NetTrace);
    330. 

  330. 	    return;
    331. 

  331. 	}
    332. 

  332. 	switch (pointer[0]) {
    333. 

  333. 	case TELOPT_TTYPE:
    334. 

  334. 	    fprintf(NetTrace, "TERMINAL-TYPE ");
    335. 

  335. 	    switch (pointer[1]) {
    336. 

  336. 	    case TELQUAL_IS:
    337. 

  337. 		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
    338. 

  338. 		break;
    339. 

  339. 	    case TELQUAL_SEND:
    340. 

  340. 		fprintf(NetTrace, "SEND");
    341. 

  341. 		break;
    342. 

  342. 	    default:
    343. 

  343. 		fprintf(NetTrace,
    344. 

  344. 				"- unknown qualifier %d (0x%x).",
    345. 

  345. 				pointer[1], pointer[1]);
    346. 

  346. 	    }
    347. 

  347. 	    break;
    348. 

  348. 	case TELOPT_TSPEED:
    349. 

  349. 	    fprintf(NetTrace, "TERMINAL-SPEED");
    350. 

  350. 	    if (length < 2) {
    351. 

  351. 		fprintf(NetTrace, " (empty suboption??\?)");
    352. 

  352. 		break;
    353. 

  353. 	    }
    354. 

  354. 	    switch (pointer[1]) {
    355. 

  355. 	    case TELQUAL_IS:
    356. 

  356. 		fprintf(NetTrace, " IS ");
    357. 

  357. 		fprintf(NetTrace, "%.*s", length-2, (char *)pointer+2);
    358. 

  358. 		break;
    359. 

  359. 	    default:
    360. 

  360. 		if (pointer[1] == 1)
    361. 

  361. 		    fprintf(NetTrace, " SEND");
    362. 

  362. 		else
    363. 

  363. 		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
    364. 

  364. 		for (i = 2; i < length; i++)
    365. 

  365. 		    fprintf(NetTrace, " ?%d?", pointer[i]);
    366. 

  366. 		break;
    367. 

  367. 	    }
    368. 

  368. 	    break;
    369. 

  369. 

  370. 	case TELOPT_LFLOW:
    371. 

  371. 	    fprintf(NetTrace, "TOGGLE-FLOW-CONTROL");
    372. 

  372. 	    if (length < 2) {
    373. 

  373. 		fprintf(NetTrace, " (empty suboption??\?)");
    374. 

  374. 		break;
    375. 

  375. 	    }
    376. 

  376. 	    switch (pointer[1]) {
    377. 

  377. 	    case LFLOW_OFF:
    378. 

  378. 		fprintf(NetTrace, " OFF"); break;
    379. 

  379. 	    case LFLOW_ON:
    380. 

  380. 		fprintf(NetTrace, " ON"); break;
    381. 

  381. 	    case LFLOW_RESTART_ANY:
    382. 

  382. 		fprintf(NetTrace, " RESTART-ANY"); break;
    383. 

  383. 	    case LFLOW_RESTART_XON:
    384. 

  384. 		fprintf(NetTrace, " RESTART-XON"); break;
    385. 

  385. 	    default:
    386. 

  386. 		fprintf(NetTrace, " %d (unknown)", pointer[1]);
    387. 

  387. 	    }
    388. 

  388. 	    for (i = 2; i < length; i++)
    389. 

  389. 		fprintf(NetTrace, " ?%d?", pointer[i]);
    390. 

  390. 	    break;
    391. 

  391. 

  392. 	case TELOPT_NAWS:
    393. 

  393. 	    fprintf(NetTrace, "NAWS");
    394. 

  394. 	    if (length < 2) {
    395. 

  395. 		fprintf(NetTrace, " (empty suboption??\?)");
    396. 

  396. 		break;
    397. 

  397. 	    }
    398. 

  398. 	    if (length == 2) {
    399. 

  399. 		fprintf(NetTrace, " ?%d?", pointer[1]);
    400. 

  400. 		break;
    401. 

  401. 	    }
    402. 

  402. 	    fprintf(NetTrace, " %d %d (%d)",
    403. 

  403. 		pointer[1], pointer[2],
    404. 

  404. 		(int)((((unsigned int)pointer[1])<<8)|((unsigned int)pointer[2])));
    405. 

  405. 	    if (length == 4) {
    406. 

  406. 		fprintf(NetTrace, " ?%d?", pointer[3]);
    407. 

  407. 		break;
    408. 

  408. 	    }
    409. 

  409. 	    fprintf(NetTrace, " %d %d (%d)",
    410. 

  410. 		pointer[3], pointer[4],
    411. 

  411. 		(int)((((unsigned int)pointer[3])<<8)|((unsigned int)pointer[4])));
    412. 

  412. 	    for (i = 5; i < length; i++)
    413. 

  413. 		fprintf(NetTrace, " ?%d?", pointer[i]);
    414. 

  414. 	    break;
    415. 

  415. 

  416. #ifdef	AUTHENTICATION
    417. 

  417. 	case TELOPT_AUTHENTICATION:
    418. 

  418. 	    fprintf(NetTrace, "AUTHENTICATION");
    419. 

  419. 	    if (length < 2) {
    420. 

  420. 		fprintf(NetTrace, " (empty suboption??\?)");
    421. 

  421. 		break;
    422. 

  422. 	    }
    423. 

  423. 	    switch (pointer[1]) {
    424. 

  424. 	    case TELQUAL_REPLY:
    425. 

  425. 	    case TELQUAL_IS:
    426. 

  426. 		fprintf(NetTrace, " %s ", (pointer[1] == TELQUAL_IS) ?
    427. 

  427. 							"IS" : "REPLY");
    428. 

  428. 		if (AUTHTYPE_NAME_OK(pointer[2]))
    429. 

  429. 		    fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[2]));
    430. 

  430. 		else
    431. 

  431. 		    fprintf(NetTrace, "%d ", pointer[2]);
    432. 

  432. 		if (length < 3) {
    433. 

  433. 		    fprintf(NetTrace, "(partial suboption??\?)");
    434. 

  434. 		    break;
    435. 

  435. 		}
    436. 

  436. 		fprintf(NetTrace, "%s|%s",
    437. 

  437. 			((pointer[3] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
    438. 

  438. 			"CLIENT" : "SERVER",
    439. 

  439. 			((pointer[3] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
    440. 

  440. 			"MUTUAL" : "ONE-WAY");
    441. 

  441. 

  442. 		auth_printsub(&pointer[1], length - 1, buf, sizeof(buf));
    443. 

  443. 		fprintf(NetTrace, "%s", buf);
    444. 

  444. 		break;
    445. 

  445. 

  446. 	    case TELQUAL_SEND:
    447. 

  447. 		i = 2;
    448. 

  448. 		fprintf(NetTrace, " SEND ");
    449. 

  449. 		while (i < length) {
    450. 

  450. 		    if (AUTHTYPE_NAME_OK(pointer[i]))
    451. 

  451. 			fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[i]));
    452. 

  452. 		    else
    453. 

  453. 			fprintf(NetTrace, "%d ", pointer[i]);
    454. 

  454. 		    if (++i >= length) {
    455. 

  455. 			fprintf(NetTrace, "(partial suboption??\?)");
    456. 

  456. 			break;
    457. 

  457. 		    }
    458. 

  458. 		    fprintf(NetTrace, "%s|%s ",
    459. 

  459. 			((pointer[i] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
    460. 

  460. 							"CLIENT" : "SERVER",
    461. 

  461. 			((pointer[i] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
    462. 

  462. 							"MUTUAL" : "ONE-WAY");
    463. 

  463. 		    ++i;
    464. 

  464. 		}
    465. 

  465. 		break;
    466. 

  466. 

  467. 	    case TELQUAL_NAME:
    468. 

  468. 		i = 2;
    469. 

  469. 		fprintf(NetTrace, " NAME \"");
    470. 

  470. 		while (i < length)
    471. 

  471. 		    putc(pointer[i++], NetTrace);
    472. 

  472. 		putc('"', NetTrace);
    473. 

  473. 		break;
    474. 

  474. 

  475. 	    default:
    476. 

  476. 		    for (i = 2; i < length; i++)
    477. 

  477. 			fprintf(NetTrace, " ?%d?", pointer[i]);
    478. 

  478. 		    break;
    479. 

  479. 	    }
    480. 

  480. 	    break;
    481. 

  481. #endif
    482. 

  482. 

  483. #ifdef	ENCRYPTION
    484. 

  484. 	case TELOPT_ENCRYPT:
    485. 

  485. 	    fprintf(NetTrace, "ENCRYPT");
    486. 

  486. 	    if (length < 2) {
    487. 

  487. 		fprintf(NetTrace, " (empty suboption??\?)");
    488. 

  488. 		break;
    489. 

  489. 	    }
    490. 

  490. 	    switch (pointer[1]) {
    491. 

  491. 	    case ENCRYPT_START:
    492. 

  492. 		fprintf(NetTrace, " START");
    493. 

  493. 		break;
    494. 

  494. 

  495. 	    case ENCRYPT_END:
    496. 

  496. 		fprintf(NetTrace, " END");
    497. 

  497. 		break;
    498. 

  498. 

  499. 	    case ENCRYPT_REQSTART:
    500. 

  500. 		fprintf(NetTrace, " REQUEST-START");
    501. 

  501. 		break;
    502. 

  502. 

  503. 	    case ENCRYPT_REQEND:
    504. 

  504. 		fprintf(NetTrace, " REQUEST-END");
    505. 

  505. 		break;
    506. 

  506. 

  507. 	    case ENCRYPT_IS:
    508. 

  508. 	    case ENCRYPT_REPLY:
    509. 

  509. 		fprintf(NetTrace, " %s ", (pointer[1] == ENCRYPT_IS) ?
    510. 

  510. 							"IS" : "REPLY");
    511. 

  511. 		if (length < 3) {
    512. 

  512. 		    fprintf(NetTrace, " (partial suboption??\?)");
    513. 

  513. 		    break;
    514. 

  514. 		}
    515. 

  515. 		if (ENCTYPE_NAME_OK(pointer[2]))
    516. 

  516. 		    fprintf(NetTrace, "%s ", ENCTYPE_NAME(pointer[2]));
    517. 

  517. 		else
    518. 

  518. 		    fprintf(NetTrace, " %d (unknown)", pointer[2]);
    519. 

  519. 

  520. 		encrypt_printsub(&pointer[1], length - 1, buf, sizeof(buf));
    521. 

  521. 		fprintf(NetTrace, "%s", buf);
    522. 

  522. 		break;
    523. 

  523. 

  524. 	    case ENCRYPT_SUPPORT:
    525. 

  525. 		i = 2;
    526. 

  526. 		fprintf(NetTrace, " SUPPORT ");
    527. 

  527. 		while (i < length) {
    528. 

  528. 		    if (ENCTYPE_NAME_OK(pointer[i]))
    529. 

  529. 			fprintf(NetTrace, "%s ", ENCTYPE_NAME(pointer[i]));
    530. 

  530. 		    else
    531. 

  531. 			fprintf(NetTrace, "%d ", pointer[i]);
    532. 

  532. 		    i++;
    533. 

  533. 		}
    534. 

  534. 		break;
    535. 

  535. 

  536. 	    case ENCRYPT_ENC_KEYID:
    537. 

  537. 		fprintf(NetTrace, " ENC_KEYID ");
    538. 

  538. 		goto encommon;
    539. 

  539. 

  540. 	    case ENCRYPT_DEC_KEYID:
    541. 

  541. 		fprintf(NetTrace, " DEC_KEYID ");
    542. 

  542. 		goto encommon;
    543. 

  543. 

  544. 	    default:
    545. 

  545. 		fprintf(NetTrace, " %d (unknown)", pointer[1]);
    546. 

  546. 	    encommon:
    547. 

  547. 		for (i = 2; i < length; i++)
    548. 

  548. 		    fprintf(NetTrace, " %d", pointer[i]);
    549. 

  549. 		break;
    550. 

  550. 	    }
    551. 

  551. 	    break;
    552. 

  552. #endif	/* ENCRYPTION */
    553. 

  553. 

  554. 	case TELOPT_LINEMODE:
    555. 

  555. 	    fprintf(NetTrace, "LINEMODE ");
    556. 

  556. 	    if (length < 2) {
    557. 

  557. 		fprintf(NetTrace, " (empty suboption??\?)");
    558. 

  558. 		break;
    559. 

  559. 	    }
    560. 

  560. 	    switch (pointer[1]) {
    561. 

  561. 	    case WILL:
    562. 

  562. 		fprintf(NetTrace, "WILL ");
    563. 

  563. 		goto common;
    564. 

  564. 	    case WONT:
    565. 

  565. 		fprintf(NetTrace, "WONT ");
    566. 

  566. 		goto common;
    567. 

  567. 	    case DO:
    568. 

  568. 		fprintf(NetTrace, "DO ");
    569. 

  569. 		goto common;
    570. 

  570. 	    case DONT:
    571. 

  571. 		fprintf(NetTrace, "DONT ");
    572. 

  572. 	    common:
    573. 

  573. 		if (length < 3) {
    574. 

  574. 		    fprintf(NetTrace, "(no option??\?)");
    575. 

  575. 		    break;
    576. 

  576. 		}
    577. 

  577. 		switch (pointer[2]) {
    578. 

  578. 		case LM_FORWARDMASK:
    579. 

  579. 		    fprintf(NetTrace, "Forward Mask");
    580. 

  580. 		    for (i = 3; i < length; i++)
    581. 

  581. 			fprintf(NetTrace, " %x", pointer[i]);
    582. 

  582. 		    break;
    583. 

  583. 		default:
    584. 

  584. 		    fprintf(NetTrace, "%d (unknown)", pointer[2]);
    585. 

  585. 		    for (i = 3; i < length; i++)
    586. 

  586. 			fprintf(NetTrace, " %d", pointer[i]);
    587. 

  587. 		    break;
    588. 

  588. 		}
    589. 

  589. 		break;
    590. 

  590. 

  591. 	    case LM_SLC:
    592. 

  592. 		fprintf(NetTrace, "SLC");
    593. 

  593. 		for (i = 2; i < length - 2; i += 3) {
    594. 

  594. 		    if (SLC_NAME_OK(pointer[i+SLC_FUNC]))
    595. 

  595. 			fprintf(NetTrace, " %s", SLC_NAME(pointer[i+SLC_FUNC]));
    596. 

  596. 		    else
    597. 

  597. 			fprintf(NetTrace, " %d", pointer[i+SLC_FUNC]);
    598. 

  598. 		    switch (pointer[i+SLC_FLAGS]&SLC_LEVELBITS) {
    599. 

  599. 		    case SLC_NOSUPPORT:
    600. 

  600. 			fprintf(NetTrace, " NOSUPPORT"); break;
    601. 

  601. 		    case SLC_CANTCHANGE:
    602. 

  602. 			fprintf(NetTrace, " CANTCHANGE"); break;
    603. 

  603. 		    case SLC_VARIABLE:
    604. 

  604. 			fprintf(NetTrace, " VARIABLE"); break;
    605. 

  605. 		    case SLC_DEFAULT:
    606. 

  606. 			fprintf(NetTrace, " DEFAULT"); break;
    607. 

  607. 		    }
    608. 

  608. 		    fprintf(NetTrace, "%s%s%s",
    609. 

  609. 			pointer[i+SLC_FLAGS]&SLC_ACK ? "|ACK" : "",
    610. 

  610. 			pointer[i+SLC_FLAGS]&SLC_FLUSHIN ? "|FLUSHIN" : "",
    611. 

  611. 			pointer[i+SLC_FLAGS]&SLC_FLUSHOUT ? "|FLUSHOUT" : "");
    612. 

  612. 		    if (pointer[i+SLC_FLAGS]& ~(SLC_ACK|SLC_FLUSHIN|
    613. 

  613. 						SLC_FLUSHOUT| SLC_LEVELBITS))
    614. 

  614. 			fprintf(NetTrace, "(0x%x)", pointer[i+SLC_FLAGS]);
    615. 

  615. 		    fprintf(NetTrace, " %d;", pointer[i+SLC_VALUE]);
    616. 

  616. 		    if ((pointer[i+SLC_VALUE] == IAC) &&
    617. 

  617. 			(pointer[i+SLC_VALUE+1] == IAC))
    618. 

  618. 				i++;
    619. 

  619. 		}
    620. 

  620. 		for (; i < length; i++)
    621. 

  621. 		    fprintf(NetTrace, " ?%d?", pointer[i]);
    622. 

  622. 		break;
    623. 

  623. 

  624. 	    case LM_MODE:
    625. 

  625. 		fprintf(NetTrace, "MODE ");
    626. 

  626. 		if (length < 3) {
    627. 

  627. 		    fprintf(NetTrace, "(no mode??\?)");
    628. 

  628. 		    break;
    629. 

  629. 		}
    630. 

  630. 		{
    631. 

  631. 		    char tbuf[64];
    632. 

  632. 		    sprintf(tbuf, "%s%s%s%s%s",
    633. 

  633. 			pointer[2]&MODE_EDIT ? "|EDIT" : "",
    634. 

  634. 			pointer[2]&MODE_TRAPSIG ? "|TRAPSIG" : "",
    635. 

  635. 			pointer[2]&MODE_SOFT_TAB ? "|SOFT_TAB" : "",
    636. 

  636. 			pointer[2]&MODE_LIT_ECHO ? "|LIT_ECHO" : "",
    637. 

  637. 			pointer[2]&MODE_ACK ? "|ACK" : "");
    638. 

  638. 		    fprintf(NetTrace, "%s", tbuf[1] ? &tbuf[1] : "0");
    639. 

  639. 		}
    640. 

  640. 		if (pointer[2]&~(MODE_MASK))
    641. 

  641. 		    fprintf(NetTrace, " (0x%x)", pointer[2]);
    642. 

  642. 		for (i = 3; i < length; i++)
    643. 

  643. 		    fprintf(NetTrace, " ?0x%x?", pointer[i]);
    644. 

  644. 		break;
    645. 

  645. 	    default:
    646. 

  646. 		fprintf(NetTrace, "%d (unknown)", pointer[1]);
    647. 

  647. 		for (i = 2; i < length; i++)
    648. 

  648. 		    fprintf(NetTrace, " %d", pointer[i]);
    649. 

  649. 	    }
    650. 

  650. 	    break;
    651. 

  651. 

  652. 	case TELOPT_STATUS: {
    653. 

  653. 	    const char *cp;
    654. 

  654. 	    int j, k;
    655. 

  655. 

  656. 	    fprintf(NetTrace, "STATUS");
    657. 

  657. 

  658. 	    switch (pointer[1]) {
    659. 

  659. 	    default:
    660. 

  660. 		if (pointer[1] == TELQUAL_SEND)
    661. 

  661. 		    fprintf(NetTrace, " SEND");
    662. 

  662. 		else
    663. 

  663. 		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
    664. 

  664. 		for (i = 2; i < length; i++)
    665. 

  665. 		    fprintf(NetTrace, " ?%d?", pointer[i]);
    666. 

  666. 		break;
    667. 

  667. 	    case TELQUAL_IS:
    668. 

  668. 		if (--want_status_response < 0)
    669. 

  669. 		    want_status_response = 0;
    670. 

  670. 		if (NetTrace == stdout)
    671. 

  671. 		    fprintf(NetTrace, " IS\r\n");
    672. 

  672. 		else
    673. 

  673. 		    fprintf(NetTrace, " IS\n");
    674. 

  674. 

  675. 		for (i = 2; i < length; i++) {
    676. 

  676. 		    switch(pointer[i]) {
    677. 

  677. 		    case DO:	cp = "DO"; goto common2;
    678. 

  678. 		    case DONT:	cp = "DONT"; goto common2;
    679. 

  679. 		    case WILL:	cp = "WILL"; goto common2;
    680. 

  680. 		    case WONT:	cp = "WONT"; goto common2;
    681. 

  681. 		    common2:
    682. 

  682. 			i++;
    683. 

  683. 			if (TELOPT_OK((int)pointer[i]))
    684. 

  684. 			    fprintf(NetTrace, " %s %s", cp, TELOPT(pointer[i]));
    685. 

  685. 			else
    686. 

  686. 			    fprintf(NetTrace, " %s %d", cp, pointer[i]);
    687. 

  687. 

  688. 			if (NetTrace == stdout)
    689. 

  689. 			    fprintf(NetTrace, "\r\n");
    690. 

  690. 			else
    691. 

  691. 			    fprintf(NetTrace, "\n");
    692. 

  692. 			break;
    693. 

  693. 

  694. 		    case SB:
    695. 

  695. 			fprintf(NetTrace, " SB ");
    696. 

  696. 			i++;
    697. 

  697. 			j = k = i;
    698. 

  698. 			while (j < length) {
    699. 

  699. 			    if (pointer[j] == SE) {
    700. 

  700. 				if (j+1 == length)
    701. 

  701. 				    break;
    702. 

  702. 				if (pointer[j+1] == SE)
    703. 

  703. 				    j++;
    704. 

  704. 				else
    705. 

  705. 				    break;
    706. 

  706. 			    }
    707. 

  707. 			    pointer[k++] = pointer[j++];
    708. 

  708. 			}
    709. 

  709. 			printsub(0, &pointer[i], k - i);
    710. 

  710. 			if (i < length) {
    711. 

  711. 			    fprintf(NetTrace, " SE");
    712. 

  712. 			    i = j;
    713. 

  713. 			} else
    714. 

  714. 			    i = j - 1;
    715. 

  715. 

  716. 			if (NetTrace == stdout)
    717. 

  717. 			    fprintf(NetTrace, "\r\n");
    718. 

  718. 			else
    719. 

  719. 			    fprintf(NetTrace, "\n");
    720. 

  720. 

  721. 			break;
    722. 

  722. 

  723. 		    default:
    724. 

  724. 			fprintf(NetTrace, " %d", pointer[i]);
    725. 

  725. 			break;
    726. 

  726. 		    }
    727. 

  727. 		}
    728. 

  728. 		break;
    729. 

  729. 	    }
    730. 

  730. 	    break;
    731. 

  731. 	  }
    732. 

  732. 

  733. 	case TELOPT_XDISPLOC:
    734. 

  734. 	    fprintf(NetTrace, "X-DISPLAY-LOCATION ");
    735. 

  735. 	    switch (pointer[1]) {
    736. 

  736. 	    case TELQUAL_IS:
    737. 

  737. 		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
    738. 

  738. 		break;
    739. 

  739. 	    case TELQUAL_SEND:
    740. 

  740. 		fprintf(NetTrace, "SEND");
    741. 

  741. 		break;
    742. 

  742. 	    default:
    743. 

  743. 		fprintf(NetTrace, "- unknown qualifier %d (0x%x).",
    744. 

  744. 				pointer[1], pointer[1]);
    745. 

  745. 	    }
    746. 

  746. 	    break;
    747. 

  747. 

  748. 	case TELOPT_NEW_ENVIRON:
    749. 

  749. 	    fprintf(NetTrace, "NEW-ENVIRON ");
    750. 

  750. #ifdef	OLD_ENVIRON
    751. 

  751. 	    goto env_common1;
    752. 

  752. 	case TELOPT_OLD_ENVIRON:
    753. 

  753. 	    fprintf(NetTrace, "OLD-ENVIRON");
    754. 

  754. 	env_common1:
    755. 

  755. #endif
    756. 

  756. 	    switch (pointer[1]) {
    757. 

  757. 	    case TELQUAL_IS:
    758. 

  758. 		fprintf(NetTrace, "IS ");
    759. 

  759. 		goto env_common;
    760. 

  760. 	    case TELQUAL_SEND:
    761. 

  761. 		fprintf(NetTrace, "SEND ");
    762. 

  762. 		goto env_common;
    763. 

  763. 	    case TELQUAL_INFO:
    764. 

  764. 		fprintf(NetTrace, "INFO ");
    765. 

  765. 	    env_common:
    766. 

  766. 		{
    767. 

  767. 		    int noquote = 2;
    768. 

  768. #if defined(ENV_HACK) && defined(OLD_ENVIRON)
    769. 

  769. 		    extern int old_env_var, old_env_value;
    770. 

  770. #endif
    771. 

  771. 		    for (i = 2; i < length; i++ ) {
    772. 

  772. 			switch (pointer[i]) {
    773. 

  773. 			case NEW_ENV_VALUE:
    774. 

  774. #ifdef OLD_ENVIRON
    775. 

  775. 		     /*	case NEW_ENV_OVAR: */
    776. 

  776. 			    if (pointer[0] == TELOPT_OLD_ENVIRON) {
    777. 

  777. # ifdef	ENV_HACK
    778. 

  778. 				if (old_env_var == OLD_ENV_VALUE)
    779. 

  779. 				    fprintf(NetTrace, "\" (VALUE) " + noquote);
    780. 

  780. 				else
    781. 

  781. # endif
    782. 

  782. 				    fprintf(NetTrace, "\" VAR " + noquote);
    783. 

  783. 			    } else
    784. 

  784. #endif /* OLD_ENVIRON */
    785. 

  785. 				fprintf(NetTrace, "\" VALUE " + noquote);
    786. 

  786. 			    noquote = 2;
    787. 

  787. 			    break;
    788. 

  788. 

  789. 			case NEW_ENV_VAR:
    790. 

  790. #ifdef OLD_ENVIRON
    791. 

  791. 		     /* case OLD_ENV_VALUE: */
    792. 

  792. 			    if (pointer[0] == TELOPT_OLD_ENVIRON) {
    793. 

  793. # ifdef	ENV_HACK
    794. 

  794. 				if (old_env_value == OLD_ENV_VAR)
    795. 

  795. 				    fprintf(NetTrace, "\" (VAR) " + noquote);
    796. 

  796. 				else
    797. 

  797. # endif
    798. 

  798. 				    fprintf(NetTrace, "\" VALUE " + noquote);
    799. 

  799. 			    } else
    800. 

  800. #endif /* OLD_ENVIRON */
    801. 

  801. 				fprintf(NetTrace, "\" VAR " + noquote);
    802. 

  802. 			    noquote = 2;
    803. 

  803. 			    break;
    804. 

  804. 

  805. 			case ENV_ESC:
    806. 

  806. 			    fprintf(NetTrace, "\" ESC " + noquote);
    807. 

  807. 			    noquote = 2;
    808. 

  808. 			    break;
    809. 

  809. 

  810. 			case ENV_USERVAR:
    811. 

  811. 			    fprintf(NetTrace, "\" USERVAR " + noquote);
    812. 

  812. 			    noquote = 2;
    813. 

  813. 			    break;
    814. 

  814. 

  815. 			default:
    816. 

  816. 			    if (isprint(pointer[i]) && pointer[i] != '"') {
    817. 

  817. 				if (noquote) {
    818. 

  818. 				    putc('"', NetTrace);
    819. 

  819. 				    noquote = 0;
    820. 

  820. 				}
    821. 

  821. 				putc(pointer[i], NetTrace);
    822. 

  822. 			    } else {
    823. 

  823. 				fprintf(NetTrace, "\" %03o " + noquote,
    824. 

  824. 							pointer[i]);
    825. 

  825. 				noquote = 2;
    826. 

  826. 			    }
    827. 

  827. 			    break;
    828. 

  828. 			}
    829. 

  829. 		    }
    830. 

  830. 		    if (!noquote)
    831. 

  831. 			putc('"', NetTrace);
    832. 

  832. 		    break;
    833. 

  833. 		}
    834. 

  834. 	    }
    835. 

  835. 	    break;
    836. 

  836. 

  837. 	default:
    838. 

  838. 	    if (TELOPT_OK(pointer[0]))
    839. 

  839. 		fprintf(NetTrace, "%s (unknown)", TELOPT(pointer[0]));
    840. 

  840. 	    else
    841. 

  841. 		fprintf(NetTrace, "%d (unknown)", pointer[0]);
    842. 

  842. 	    for (i = 1; i < length; i++)
    843. 

  843. 		fprintf(NetTrace, " %d", pointer[i]);
    844. 

  844. 	    break;
    845. 

  845. 	}
    846. 

  846. 	if (direction) {
    847. 

  847. 	    if (NetTrace == stdout)
    848. 

  848. 		fprintf(NetTrace, "\r\n");
    849. 

  849. 	    else
    850. 

  850. 		fprintf(NetTrace, "\n");
    851. 

  851. 	}
    852. 

  852. 	if (NetTrace == stdout)
    853. 

  853. 	    fflush(NetTrace);
    854. 

  854.     }
    855. 

  855. }
    856. 

  856. 

  857. /* EmptyTerminal - called to make sure that the terminal buffer is empty.
    858. 

  858.  *			Note that we consider the buffer to run all the
    859. 

  859.  *			way to the kernel (thus the select).
    860. 

  860.  */
    861. 

  861. 

  862. static void
    863. 

  863. EmptyTerminal(void)
    864. 

  864. {
    865. 

  865.     fd_set	o;
    866. 

  866. 

  867.     FD_ZERO(&o);
    868. 

  868. 

  869.     if (TTYBYTES() == 0) {
    870. 

  870. 	FD_SET(tout, &o);
    871. 

  871. 	(void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
    872. 

  872. 			(struct timeval *) 0);	/* wait for TTLOWAT */
    873. 

  873.     } else {
    874. 

  874. 	while (TTYBYTES()) {
    875. 

  875. 	    (void) ttyflush(0);
    876. 

  876. 	    FD_SET(tout, &o);
    877. 

  877. 	    (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
    878. 

  878. 				(struct timeval *) 0);	/* wait for TTLOWAT */
    879. 

  879. 	}
    880. 

  880.     }
    881. 

  881. }
    882. 

  882. 

  883. static void
    884. 

  884. SetForExit(void)
    885. 

  885. {
    886. 

  886.     setconnmode(0);
    887. 

  887.     do {
    888. 

  888. 	(void)telrcv();			/* Process any incoming data */
    889. 

  889. 	EmptyTerminal();
    890. 

  890.     } while (ring_full_count(&netiring));	/* While there is any */
    891. 

  891.     setcommandmode();
    892. 

  892.     fflush(stdout);
    893. 

  893.     fflush(stderr);
    894. 

  894.     setconnmode(0);
    895. 

  895.     EmptyTerminal();			/* Flush the path to the tty */
    896. 

  896.     setcommandmode();
    897. 

  897. }
    898. 

  898. 

  899. void
    900. 

  900. Exit(int returnCode)
    901. 

  901. {
    902. 

  902.     SetForExit();
    903. 

  903.     exit(returnCode);
    904. 

  904. }
    905. 

  905. 

  906. void
    907. 

  907. ExitString(const char *string, int returnCode)
    908. 

  908. {
    909. 

  909.     SetForExit();
    910. 

  910.     fwrite(string, 1, strlen(string), stderr);
    911. 

  911.     exit(returnCode);
    912. 

  912. }
    913. 

  913.