开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Telnet客户端 > 查看源码
xtmain.c
资源名称：xt-1.2-src.tar.gz　[点击查看]
上传用户：duobangkj
上传日期：2007-01-07
资源大小：70k
文件大小：11k
源码类别：

Telnet客户端

开发平台：

Unix_Linux

xtmain.c：源码内容
  1. /* xtmain.c -- main module for XT
  2. This file uses 4-character tabstops
  3. */
  5. #include <stdio.h>
  6. #include <string.h>
  7. #include <sys/types.h>
  8. #include <signal.h>
  9. #include <ctype.h>
  10. #include <termio.h>
  11. #include <setjmp.h>
  12. #include "xt.h"
  14. #define Resume_Not_Allowed 1
  16. short
  17. autoflag = FALSE, /* Automatic capturing */
  18. cismode = FALSE, /* Automatic response to CIS "ENQ" */
  19. cr_add = TRUE, /* Add cr to nl in B+ uploads */
  20.   menuflag = TRUE, /* Show mini-menu */
  21. nl2cr = TRUE, /* Map nl to cr when transmitting ASCII */
  22. reterm = FALSE, /* Jump into terminal mode */
  23. statflag = FALSE, /* Flag for status display */
  24. eofflag = FALSE; /* Flag to quit a script */
  25. int s_cis(), s_set(), s_exit(), s_shell();
  26. char Msg[80], directory[128], hostname[40], ddsname[SM_BUFF];
  27. unchar BS, LK;
  28. FILE *tfp;
  29. struct termio newmode, oldmode, sigmode;
  30. static char *statfmt = "rtt%-8s %25s %srn",
  31. version[]="@(#)XT 1.2 JPRadley 8 July 1997",
  32. oldshell[SM_BUFF],
  33. *babble[] = {
  34. "rnUsage: xt [-n site] | [-s file]",
  35. "t-n sitetSitename to contact with telnet",
  36. "t-s scripttExecute 'script' immediately",
  37. NIL(char)
  38. };
  39. static s_script(), s_term(), s_help(), s_host(), 
  40. SET_cr(), SET_cis(), SET_nl(), SET_xcape(),
  41. SET_menu(), SET_autocapt(), SET_cfile(), SET_dir();
  42. extern short scriptflag;
  43. extern int sfd;
  44. extern void B_Transfer(), dbglog(), sattach(), get_ttype();
  45. jmp_buf erret; /* non-local error return */
  47. struct kw { /* Used by command parsing routines */
  48. char *keyword;
  49. int (*rtn)();
  50. };
  52. static struct kw cmds[] = {
  53. {"c", s_cis},
  54. {"cis", s_cis},
  55. {"n", s_host},
  56. {"nethost", s_host},
  57. {"s", s_script},
  58. {"script", s_script},
  59. {"t", s_term},
  60. {"term", s_term},
  61. {"bindings",show_bindings},
  62. {"set", s_set},
  63. {"q", s_exit},
  64. {"quit", s_exit},
  65. {"exit", s_exit},
  66. {"x", s_exit},
  67. {"!", s_shell},
  68. {"!!", s_shell},
  69. {"$", s_shell},
  70. {"~", s_shell},
  71. {"help", s_help},
  72. {"?", s_help},
  73. {NIL(char), 0}
  74. };
  76. static struct kw setlist[] = {
  77. {"auto", SET_autocapt},
  78. {"cfile", SET_cfile},
  79. {"cis", SET_cis},
  80. {"cr", SET_cr},
  81. {"dir", SET_dir},
  82. {"menu", SET_menu},
  83. {"nl", SET_nl},
  84. {"escape", SET_xcape},
  85. {"xcape", SET_xcape},
  86. {NIL(char), 0}
  87. };
  89. /* Print the status of the program */
  90. static void
  91. status()
  92. {
  93. struct kw *ptr;
  94. char p[40];
  95. int (*fct)() = 0;
  97. statflag = TRUE;
  99. cls();
  100. cur_off();
  101. if (*hostname)
  102. sprintf(p,"      Telnet => %s",hostname);
  103. else
  104. p[0]='';
  105. drawline(0, 0, CO);
  106. sprintf(Msg,"%s%s",&version[4], p);
  107. ttgoto(1,(CO-(int)strlen(Msg))/2 -1);
  108. S1(Msg);
  109. drawline(2, 0, CO);
  110. ttgoto(3, 0);
  111. fprintf(tfp, statfmt, "Keyword", "Description", "Status");
  112. fprintf(tfp, statfmt,"--------","-------------------------","-----------");
  114. for (ptr = setlist; ptr->keyword; ptr++)
  115. if (ptr->rtn != fct){
  116. fct = ptr->rtn;
  117. (*fct)();
  118. }
  120. ttgoto(14, 25);
  121. S1("Type "help" or ? for help");
  122. statflag = FALSE;
  123. cur_on();
  124. }
  126. /* Catch a signal and jump to main. Reset signal and do a longjmp */
  127. static RETSIGTYPE
  128. catch(junk)
  129. int junk;
  130. {
  131. if (! isatty(2))
  132. s_exit();
  134. S2("XT: Interrupt");
  136. signal(SIGINT,catch);
  137. signal(SIGQUIT,catch);
  138. longjmp(erret,1);
  139. }
  141. static void
  142. usage()
  143. {
  144. char **ptr;
  146. for (ptr = babble; *ptr; ptr++)
  147. fprintf(tfp, "%srn", *ptr);
  148. }
  150. main(argc, argv)
  151. int argc;
  152. char **argv;
  153. {
  154. char *script = NIL(char);
  155. extern char *optarg;
  156. int c;
  157. extern int optind;
  159. struct kw *ptr;
  160. tfp = stderr;
  161. if (isatty(2))
  162. get_ttype();
  164. ioctl(0, TCGETA, &oldmode); /* get current tty mode */
  166. /* trap for SIGHUP and SIGTERM, make sure LCKfile gets killed */
  167. signal(SIGHUP,(RETSIGTYPE (*)())s_exit);
  168. signal(SIGTERM,(RETSIGTYPE (*)())s_exit);
  170. newmode = oldmode;
  172. newmode.c_iflag &= ~(IXON | IXOFF | IXANY);
  173. newmode.c_lflag &= ~(ICANON | ISIG | ECHO);
  174. newmode.c_oflag = OPOST | ONLCR;
  175. newmode.c_cc[VMIN] = 1;
  176. newmode.c_cc[VTIME] = 1;
  177. BS = newmode.c_cc[VERASE];
  178. LK = newmode.c_cc[VKILL];
  180. mode(NEWMODE);
  182. sigmode = newmode;
  183. sigmode.c_lflag |= ISIG;
  185. oldshell[0] = ''; /* set last command to blank */
  186. if (setjmp(erret)) /* set error handler to exit */
  187. exit(0); /*  while parsing command line */
  188. signal(SIGINT,catch); /* catch break & quit signals/keys */
  189. signal(SIGQUIT,catch);
  191. default_bindings();
  193. while ((c = getopt(argc, argv, "s:n:")) != -1)
  194. switch (c){
  195. case 's': /* Execute SCRIPT file */
  196. script = optarg;
  197. break;
  198. case 'n': /* network connection using telnet */
  199. sprintf(hostname,"%s",optarg);
  200. break;
  201. default: /* Bad command .. print help */
  202. usage();
  203. mode(OLDMODE);
  204. exit(1);
  205. }
  207. getcwd(directory, 64);
  208. do_script(STARTUP);
  210. #if LOG
  211. dbglog();
  212. #endif
  214. if (!script)
  215. status();
  217. for (;;){
  218. setjmp(erret);
  219. signal(SIGQUIT,(RETSIGTYPE (*)())s_exit);
  220. mode(SIGMODE);
  222. if (script)
  223. do_script(script),
  224. reterm = TRUE,
  225. script = NIL(char);
  227. if (sfd < 0 && *hostname)
  228. reterm = xttn();
  229. if (reterm && sfd > 0 && isatty(2)){
  230. s_term();
  231. continue;
  232. }
  234. reterm = FALSE;
  235. fputc('r',tfp),
  236. fputc('n',tfp);
  237.   if (menuflag)
  238. fputc('t',tfp),
  239.   S1("[t]erminal mode  [q]uit  [s]cript  [?]help");
  240. show(-1,"<XT>");
  241. fputc(' ',tfp);
  243. lptr = line;
  244. getline();
  245. fputc('r',tfp),
  246. fputc('n',tfp);
  248. getword();
  249. lc_word(word);
  250. if (word[0] == '') /* If blank line... reprompt */
  251. continue;
  253. for (ptr = cmds; ptr->keyword; ptr++)
  254. if (!strcmp(word, ptr->keyword))
  255. break;
  257. if (ptr->keyword)
  258. (*ptr->rtn)();
  259. else
  260. sprintf(Msg,"Unrecognized command: %s",word),
  261. S;
  262. }
  263. }
  265. static
  266. s_script()
  267. {
  268. getword();
  270. if (word[0] == ''){
  271. S1("Script file not specified");
  272. return;
  273. }
  275. sprintf(ddsname,"%s",word);
  276. do_script(ddsname);
  277. reterm = TRUE;
  278. }
  280. static
  281. s_host()
  282. {
  283. getword();
  285. if (word[0] == ''){
  286. S1("Hostname not specified");
  287. return;
  288. }
  290. sprintf(hostname,"%s",word);
  291. reterm = xttn();
  292. }
  294. static
  295. s_term()
  296. {
  297. reterm = tnterm();
  298. if (cismode != 2)
  299. return;
  300. cismode = 1;
  301. s_cis();
  302. }
  304. s_cis()
  305. {
  306. mode(SIGMODE);
  307. B_Transfer();
  308. }
  310. s_shell()
  311. {
  312. int stat_loc = 0;
  313. char c = word[0];
  314. static char *shell = NIL(char);
  315. RETSIGTYPE (*oldvec)();
  317. #if NOSHELL
  318. return(0);
  319. #endif
  320. if (word[0] == word[1])
  321. strcpy(wptr = word, oldshell);
  322. else {
  323. getword();
  324. if (*wptr)
  325. strcpy(oldshell, wptr);
  326. }
  328. if (!shell){
  329. shell = getenv("SHELL");
  330. if (!shell)
  331. shell = "/bin/sh";
  332. }
  334. #if 0 
  335. fputc('r',tfp),
  336. fputc('n',tfp);
  337. #endif
  338. mode(OLDMODE);
  340. if (!forkem()){
  341. if (c == '$') /* Attach modem to stdin, stdout */
  342. sattach();
  344. signal(SIGCLD,SIG_DFL);
  345. signal(SIGINT,SIG_DFL);
  346. signal(SIGQUIT,SIG_DFL);
  347. if (word[0] == '')
  348. execl(shell, shell, "-i", NIL(char));
  349. else
  350. execl(shell, shell, "-c", wptr, NIL(char));
  351. S1("Exec failed!");
  352. exit(2);
  353. }
  355. oldvec = signal(SIGINT,SIG_IGN);
  356. wait(&stat_loc);
  357. signal(SIGINT,oldvec);
  359. strcpy(oldshell, wptr);
  360. return(!!stat_loc);
  361. }
  363. static char *cmdlist[] = {
  364. "tXT Command Summary",
  365. "",
  366. "tc",
  367. "tcisttInitiate CIS B+ File Transfer (Upload and Download)",
  368. "",
  369. "tx",
  370. "tq",
  371. "texit",
  372. "tquitttExit XT",
  373. "",
  374. "tsetttDisplay XT parameters",
  375. "tset kwttDisplay XT parameter for 'kw'",
  376. "tset kw valtSet XT keyword 'kw' to 'val'",
  377. "",
  378. "tn host",
  379. "tnethost hosttTelnet to 'host'",
  380. "",
  381. "ts file",
  382. "tscript filetExecute XT script 'file'",
  383. "",
  384. #if !NOSHELL
  385. "t!ttExecute a local interactive shell",
  386. "t! cmdttExecute shell command string on the local system",
  387. "t!!ttRe-execute the last shell command string",
  388. "",
  389. "t$ cmdttShell command with stdin and stdout redirected to modem",
  390. "",
  391. #endif
  392. "tt",
  393. "ttermttEnter Terminal mode",
  394. "",
  395. "t?",
  396. "thelpttPrint (this) help text",
  397. " ",
  398. "tSET Keywords:",
  399. "",
  400. "tsettttDisplay current XT status",
  401. "",
  402. "tset auto on|offttSet|Unset automatic capturing",
  403. "",
  404. "tset cfile namettChange name of capture file",
  405. "",
  406. "tset cis onttSet CIS <ENQ> mode (Auto up/download)",
  407. "tset cis offttDo not respond to <ENQ>",
  408. "",
  409. "tset cr on|offttSet|Unset Carriage Return Injection mode",
  410. "",
  411. "tset dir namettChange current directory",
  412. "",
  413. "tset xcape char",
  414. "tset escape charttSet the Terminal mode escape character",
  415. "",
  416.   "tset menu on|offttDo|Don't show mini-menu before XT prompt",
  417. "",
  418. "tset nl on|offttSet|Unset newline translation",
  419. "",
  420. " ",
  421. NIL(char) };
  423. static
  424. s_help()
  425. {
  426. char **ptr = cmdlist;
  427. int curline = 0;
  429. mode(OLDMODE);
  430. cls();
  431. cur_off();
  432. for ( ; *ptr; ptr++) {
  433. if (**ptr != ' ') {
  434. if (curline >= LI-2){
  435. S0("PRESS ENTER");
  436. getline();
  437. cls();
  438. curline = 0;
  439. }
  440. fprintf(tfp, "%srn", *ptr);
  441. curline++;
  442. } else {
  443. S0("PRESS ENTER");
  444. getline();
  445. cls();
  446. curline = 0;
  447. }
  448. }
  449. show_bindings();
  450. S0("PRESS ENTER");
  451. getline();
  452. cls();
  453. status();
  454. }
  456. s_set()
  457. {
  458. struct kw *ptr;
  460. getword();
  462. if (word[0] == '' && !scriptflag){
  463. status();
  464. return;
  465. } else if (word[0] == ''){
  466. S1("SET keyword requires an argument");
  467. eofflag++;
  468. return;
  469. }
  471. lc_word(word);
  473. for (ptr = setlist; ptr->keyword; ptr++)
  474. if (!strcmp(ptr->keyword, word)){
  475. (*ptr->rtn)();
  476. return;
  477. }
  479. sprintf(Msg,"Invalid SET keyword: %s", word);
  480. S;
  481. eofflag++;
  482. }
  484. void
  485. set_onoff(flag)
  486. short *flag;
  487. {
  488. char *ptr = strdup(word);
  490. uc_word(ptr);
  491. getword();
  492. lc_word(word);
  494. if (!strcmp(word, "on"))
  495. *flag = TRUE;
  496. else if (!strcmp(word, "off"))
  497. *flag = FALSE;
  498. else
  499. sprintf(Msg,"Set '%s' value must be 'on' or 'off'",ptr),
  500. S,
  501. eofflag++;
  503. free(ptr);
  504. }
  506. static
  507. SET_dir()
  508. {
  509. if (statflag){
  510. fprintf(tfp, statfmt, "dir", "We are in", directory);
  511. return;
  512. }
  514. getword();
  515. strcpy(directory, word);
  516. if (chdir(directory))
  517. sprintf(Msg,"Can't move to %s", directory),
  518. S;
  519. if (!scriptflag)
  520. sprintf(Msg, "We are in %s", directory),
  521. S;
  522. }
  524. static
  525. SET_cr()
  526. {
  527. if (statflag){
  528. fprintf(tfp, statfmt, "cr", "Carriage Return Injection",
  529. cr_add ? "ON" : "OFF");
  530. return;
  531. }
  533. set_onoff(&cr_add);
  535. if (!scriptflag)
  536. sprintf(Msg,"Carriage Returns %s injected in B+ ASCII uploads",
  537. cr_add ? "ARE" : "are NOT"),
  538. S;
  539. }
  541. static
  542. SET_xcape()
  543. {
  544. if (statflag) {
  545. fprintf(tfp, statfmt, "xcape", "Terminal Escape Character",
  546.  unctrl(my_escape));
  547. return;
  548. }
  550. getword();
  551. if (word[0] == '') {
  552. show(1,"Set ESCAPE must specify escape character");
  553. eofflag++;
  554. return;
  555. }
  557. my_escape = word[0];
  559. if (!scriptflag)
  560. sprintf(Msg,"Terminal mode escape character set to '%s'",
  561. unctrl(my_escape)),
  562. S;
  563. }
  565. static
  566. SET_nl()
  567. {
  568. if (statflag){
  569. fprintf(tfp, statfmt, "nl", "Newline Translation",
  570. nl2cr ? "ON" : "OFF");
  571. return;
  572. }
  574. set_onoff(&nl2cr);
  576. if (!scriptflag)
  577. sprintf(Msg,"Newlines %s changed to Carriage Returns",
  578. nl2cr ? "ARE" : "are NOT"),
  579. S;
  580. }
  582. static
  583. SET_cis()
  584. {
  585. if (statflag){
  586. fprintf(tfp, statfmt, "cis", "CIS <ENQ> Auto Download",
  587. cismode ? "ON" : "OFF");
  588. return;
  589. }
  591. set_onoff(&cismode);
  593. if (!scriptflag)
  594. sprintf(Msg,"CIS <ENQ> Auto Download is %s", cismode ? "ON" : "OFF"),
  595. S;
  596. }
  598. static
  599. SET_menu()
  600. {
  601.   if (statflag){
  602.   fprintf(tfp, statfmt, "menu", "Mini-menu mode",
  603.   menuflag ? "ON" : "OFF");
  604.   return;
  605. }
  606.  
  607.   set_onoff(&menuflag);
  608.  
  609.   if (!scriptflag)
  610.   sprintf(Msg,"Mini-menu is %s shown", menuflag ? "" : "NOT"),
  611. S;
  612. }
  614. static
  615. SET_autocapt()
  616. {
  617. if (statflag){
  618. fprintf(tfp, statfmt, "auto", "Auto Capture",
  619. autoflag ? "ON" : "OFF");
  620. return;
  621. }
  623. set_onoff(&autoflag);
  625. if (!scriptflag)
  626. sprintf(Msg,"Auto Capture is %s", autoflag ? "ON" : "OFF"),
  627. S;
  628. }
  630. static
  631. SET_cfile()
  632. {
  633. if (statflag){
  634. fprintf(tfp, statfmt, "cfile", "Capture File", captfile);
  635. return;
  636. }
  638. getword();
  639. if (word[0] == ''){
  640. S1("Set CFILE must have file name");
  641. eofflag++;
  642. return;
  643. }
  645. strcpy(captfile, word);
  647. if (!scriptflag)
  648. sprintf(Msg,"Capture file set to '%s'",captfile),
  649. S;
  650. }
  652. s_exit()
  653. {
  654. signal(SIGHUP,SIG_IGN);
  655. signal(SIGINT,SIG_IGN);
  656. signal(SIGQUIT,SIG_IGN);
  657. signal(SIGTERM,SIG_IGN);
  659. mode(OLDMODE);
  661. exit(0);
  662. }