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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > Modem编程 > 查看源码
updown.c
资源名称：minicom-1.83.tar.gz　[点击查看]
上传用户：tianjinjs
上传日期：2007-01-05
资源大小：309k
文件大小：14k
源码类别：

Modem编程

开发平台：

Unix_Linux

updown.c：源码内容
  1. /*
  2.  * updown.c Routines to do up and downloading by calling external
  3.  * programs (sz, rz, kermit).
  4.  *
  5.  * This file is part of the minicom communications package,
  6.  * Copyright 1991-1995 Miquel van Smoorenburg.
  7.  *
  8.  * This program is free software; you can redistribute it and/or
  9.  * modify it under the terms of the GNU General Public License
  10.  * as published by the Free Software Foundation; either version
  11.  * 2 of the License, or (at your option) any later version.
  12.  *
  13.  * jl 13.09.97 pass actual terminal lines (LINES - statusline)
  14.  * to runscript in environment variable TERMLIN
  15.  * jl 16.09.97 logging of sz/rz file transfers
  16.  * jl 29.09.97 fix on the transfer logging
  17.  * hgk&jl 2.98 filename selection window
  18.  * acme 25.02.98 i18n
  19.  * js&jl 04.98 the better filename selection window
  20.  */
  21. #include "port.h"
  22. #include "minicom.h"
  23. #include "intl.h"
  25. /*#define LOG_XFER   debugging option to log all output of rz/sz
  26.  */
  27. static int udpid;
  29. /*
  30.  * Change to a directory.
  31.  */
  32. static int mcd(dir)
  33. char *dir;
  34. {
  35.   char buf[256];
  36.   char err[50];
  37.   static char odir[256];
  38.   static int init = 0;
  40.   if (!init) {
  41.    if (*dir == 0) return(0);
  42.    init = 1;
  43. #if defined (_COH3) || defined(NeXT)
  44. getwd(odir);
  45. #else
  46.    getcwd(odir, 255);
  47. #endif
  48.   }
  49.   if (*dir == 0) {
  50.    chdir(odir);
  51.    return(0);
  52.   }
  53.   
  54.   if(*dir != '/') {
  55.    snprintf(buf, sizeof(buf), "%s/%s", homedir, dir);
  56.    dir = buf;
  57.   }
  58.   if (chdir(dir) < 0) {
  59.    /* This may look safe but you might I8N change the string! so
  60.       snprintf it */
  61.    snprintf(err, sizeof(err),  _("Cannot chdir to %.30s"), dir);
  62.    werror(err);
  63.    return(-1);
  64.   }
  65.   return(0);
  66. }
  68. /*
  69.  * Catch the CTRL-C signal.
  70.  */
  71. /*ARGSUSED*/
  72. static void udcatch(dummy)
  73. int dummy;
  74. {
  75.   (void)dummy;
  76.   signal(SIGINT, udcatch);
  77.   if (udpid) kill((pid_t)udpid, SIGKILL);
  78. }
  80. /*
  81.  * Translate %b to the current bps rate, and
  82.  *           %l to the current tty port.
  83.  *           %f to the serial port file descriptor
  84.  */
  85. static char *translate(s)
  86. char *s;
  87. {
  88.   static char buf[128];
  89.   char str_portfd[8];     /* kino */
  90.   int i;
  92.   for(i = 0; *s && i < 127; i++, s++) {
  93.    if (*s != '%') {
  94.    buf[i] = *s;
  95.    continue;
  96.    }
  97.    switch(*++s) {
  98.    case 'l':
  99.    strncpy(buf + i, dial_tty, sizeof(buf)-i);
  100.    i += strlen(dial_tty) - 1;
  101.    break;
  102.    case 'b':
  103.    strncpy(buf + i, P_BAUDRATE, sizeof(buf)-i);
  104.    i += strlen(P_BAUDRATE) - 1;
  105.    break;
  106.   case 'f':
  107.    sprintf(str_portfd, "%d", portfd);
  108.                         strncpy(buf + i, str_portfd, sizeof(buf)-i);
  109.                         i += strlen(str_portfd) - 1;
  110.                         break;
  111.    default:
  112.    buf[i++] = '%';
  113.    buf[i] = *s;
  114.    break;
  115.    }
  116.   }
  117.   buf[i] = 0;
  118.   return(buf);
  119. }
  121. /*
  122.  * Trim the leading & trailing whitespaces from the string
  123.  * jl 15.09.97
  124.  */
  125. char *trim(char *outstring, char *instring, int n)
  126. {
  127.   char *p;
  128.   char *ip;
  129.   char *op;
  130.   char *np;
  132.   ip = instring;
  133.   np = ip + n;
  134.   while ((*ip <= ' ') && (ip < np)) ip++;
  136.   op = outstring;
  137.   np = op + n;
  138.   while ((*ip >= ' ') && (op <= np)) {
  139.     *op = *ip;
  140.     ip++;
  141.     op++;
  142.   }
  144.   if (op<np)
  145.     *op = 0;
  147.   while ((op > outstring) && (*op <= ' ')) {
  148.     *op = 0;
  149.     op--;
  150.   }
  152.   p = outstring;
  153.   return(p);
  154. }
  155.   
  156. /*
  157.  * Choose from numerous up and download protocols!
  158.  */
  160. void updown(what, nr)
  161. int what;
  162. int nr;
  163. {
  164. #ifdef LOG_XFER
  165.   #warning LOG_XFER defined!
  166.   FILE *xfl;
  167. #endif
  168.   char *name[13];
  169.   int idx[13];
  170.   int r, f, g = 0;
  171.   char *t = what == 'U' ? _("Upload") : _("Download");
  172.   char buf[160];
  173.   char buffirst[20];
  174.   char xfrstr[160] = "";
  175.   char trimbuf[160] = "";
  176.   char title[64];
  177.   char *s ="";
  178.   int pipefd[2];
  179.   int n, status;
  180.   char cmdline[128];
  181.   WIN *win = (WIN *)NULL;
  182. #if VC_MUSIC
  183.   _PROTO(void music, (void));
  184. #endif
  186.   if (mcd(what == 'U' ? P_UPDIR : P_DOWNDIR) < 0)
  187.    return;
  189.   /* Automatic? */
  190.   if (nr == 0) {
  191. for(f = 0; f < 12; f++) {
  192.    if (P_PNAME(f)[0] && P_PUD(f) == what) {
  193.    name[g] = P_PNAME(f);
  194.    idx[g++] = f;
  195.    }
  196. }
  197. name[g] = CNULL;
  198. if (g == 0) return;
  200. r = wselect(30, 7, name, NIL_FUNLIST, t, stdattr, mfcolor, mbcolor) - 1;
  201. if (r < 0) return;
  203. g = idx[r];
  204.   } else g = nr;
  206.   buf[0] = 0;
  208. /* jseymour file selector with choice of dir on zmodem, etc. download */
  209. #if 1
  210.   {
  211. int multiple; /* 0:only directory, 1:one file, -1:any number */
  213. if(P_MUL(g)=='Y') {
  214.     /* need file(s), or just a directory? */
  215.     multiple = what == 'U'? -1 : 0;
  216. }
  217. else {
  218.     multiple = 1; /* only one allowed */
  219. }
  221. if (P_FSELW[0] == 'Y' && (what == 'U' || P_ASKDNDIR[0] == 'Y')) {
  222.   s = filedir(multiple, what == 'U'? 0 : 1);
  223.   if (s == NULL)
  224.     return;
  225. }
  226. else if (P_PNN(g) == 'Y') {
  227.   s = input(_("Please enter file names"), buf);
  228.   if (s == NULL)
  229.     return;
  230. }
  232. /* discard directory if "multiple" == 0 */
  233. snprintf(cmdline, sizeof(cmdline), "%s %s", P_PPROG(g), multiple == 0? "" : s);
  234.   }
  235. #endif
  237.   if (P_LOGXFER[0] == 'Y')
  238.     do_log(cmdline);   /* jl 22.06.97 */
  240.   if (P_PFULL(g) == 'N') {
  241.     win = wopen(10, 7, 70, 13, BSINGLE, stdattr, mfcolor, mbcolor, 1, 0, 1);
  242.     snprintf(title, sizeof(title), _("%.30s %s - Press CTRL-C to quit"), P_PNAME(g),
  243.     what == 'U' ? _("upload") : _("download"));
  244.     wtitle(win, TMID, title);
  245.     pipe(pipefd);
  246.   } else
  247.     wleave();
  249.   switch(udpid = fork()) {
  250.    case -1:
  251.    werror(_("Out of memory: could not fork()"));
  252. if (win) {
  253.    close(pipefd[0]);
  254.    close(pipefd[1]);
  255.    wclose(win, 1);
  256. } else
  257. wreturn();
  258.    (void) mcd("");
  259.    return;
  260.    case 0: /* Child */
  261. if (P_PIORED(g) == 'Y') {
  262.    dup2(portfd, 0);
  263.    dup2(portfd, 1);
  264. }
  265. if (win) {
  266.    dup2(pipefd[1], 2);
  267.    close(pipefd[0]);
  268.    if (pipefd[1] != 2) close(pipefd[1]);
  269.    }
  270.    for(n = 1; n < _NSIG; n++) signal(n, SIG_DFL);
  271.   
  272. set_privs();
  273. setgid((gid_t)real_gid);
  274.    setuid((uid_t)real_uid);
  275.    (void) fastexec(translate(cmdline));
  276.    exit(1);
  277.    default: /* Parent */
  278.    break;
  279.   }
  280.   if (win) {
  281. (void) setcbreak(1); /* Cbreak, no echo. */
  282. enab_sig(1, 0);        /* But enable SIGINT */
  283.   }
  284.   signal(SIGINT, udcatch);
  285.   if (P_PIORED(g) == 'Y') {
  286. close(pipefd[1]);
  287. #ifdef LOG_XFER
  288. xfl=fopen("xfer.log","wb");
  289. #endif
  290. while((n = read(pipefd[0], buf, sizeof(buf))) > 0) {
  291.    buf[n] = '';
  292.    wputs(win, buf);
  293. timer_update();
  294. /* Log the filenames & sizes  jl 14.09.97 */
  295. if (P_LOGXFER[0] == 'Y') {
  296. #ifdef LOG_XFER
  297.   if (xfl)
  298.     fprintf(xfl,">%s<n",buf);
  299. #endif
  300.   if (sscanf(buf, "%19s", buffirst)) { /* if / jl 29.09.97 */
  301.     if (!strncmp (buffirst, "Receiving", 9) ||
  302. !strncmp (buffirst, "Sending", 7)) {
  303.       if (xfrstr[0]) {
  304. trim (trimbuf, xfrstr, sizeof(trimbuf));
  305. do_log (trimbuf);
  306. xfrstr[0] = 0;
  307.       }
  308.       trim (trimbuf, buf, sizeof(trimbuf));
  309.       do_log(trimbuf);
  310.     } else if (!strncmp (buffirst, "Bytes", 5)) {
  311.       strncpy (xfrstr, buf, sizeof(xfrstr));
  312.     }
  313.     buffirst[0]=0;
  314.     trimbuf[0]=0;
  315.   }
  316. }
  317. }
  318. #ifdef LOG_XFER
  319. if (xfl)
  320.   fclose(xfl);
  321. #endif
  322.   }
  323.   /* Log the last file size jl 14.09.97 */
  324.   if (P_LOGXFER[0] == 'Y' && xfrstr[0]) {
  325.     trim (trimbuf, xfrstr, sizeof(trimbuf));
  326.     do_log (trimbuf);
  327.     xfrstr[0] = 0;
  328.   }
  330.   while( udpid != m_wait(&status) );
  331.   if (win) {
  332. enab_sig(0, 0);
  333. signal(SIGINT, SIG_IGN);
  334.   }
  336.   if (win == (WIN *)0) wreturn();
  338.   /* MARK updated 02/17/94 - Flush modem port before displaying READY msg */
  339.   /* because a BBS often displays menu text right after a download, and we */
  340.   /* don't want the modem buffer to be lost while waiting for key to be hit */
  341.   m_flush(portfd);
  342.   port_init();
  343.   (void) setcbreak(2); /* Raw, no echo. */
  344.   if (win) close(pipefd[0]);
  345.   (void) mcd("");
  346.   timer_update();
  348.   /* If we got interrupted, status != 0 */
  349.   if (win && (status & 0xFF00) == 0) {
  350. #if VC_MUSIC
  351. if (P_SOUND[0] == 'Y') {
  352. wprintf(win, _("n READY: press any key to continue..."));
  353. music();
  354. } else
  355. sleep(1);
  356. #else
  357. /* MARK updated 02/17/94 - If there was no VC_MUSIC capability, */
  358. /* then at least make some beeps! */
  359. if (P_SOUND[0] == 'Y') wprintf(win, "070707");
  360. sleep(1);
  361. #endif
  362.   }
  363.   if (win) wclose(win, 1);
  364. }
  366. /*
  367.  * Run kermit. Used to do this in the main window, but newer
  368.  * versions of kermit are too intelligent and just want a tty
  369.  * for themselves or they won't function ok. Shame.
  370.  */
  371. void kermit()
  372. {
  373.   int status;
  374.   int pid, n;
  375.   char buf[81];
  376.   int fd;
  378.   /* Clear screen, set keyboard modes etc. */
  379.   wleave();
  381.   switch(pid = fork()) {
  382.    case -1:
  383. wreturn();
  384.    werror(_("Out of memory: could not fork()"));
  385.    return;
  386.    case 0: /* Child */
  387.    /* Remove lockfile */
  388. set_privs();
  389.    if (lockfile[0]) unlink(lockfile);
  390. setgid((gid_t)real_gid);
  391. setuid((uid_t)real_uid);
  393.    for(n = 0; n < _NSIG; n++) signal(n, SIG_DFL);
  395.    (void) fastexec(translate(P_KERMIT));
  396.    exit(1);
  397.    default: /* Parent */
  398.    break;
  399.   }
  401.   (void) m_wait(&status);
  403.   /* Restore screen and keyboard modes */
  404.   wreturn();
  406.   /* Re-create lockfile */
  407.   if (lockfile[0]) {
  408. set_privs();
  409. n = umask(022);
  410.    /* Create lockfile compatible with UUCP-1.2 */
  411.    if ((fd = open(lockfile, O_WRONLY | O_CREAT | O_EXCL, 0666)) < 0) {
  412.    werror(_("Cannot re-create lockfile!"));
  413.    } else {
  414. (void) chown(lockfile, (uid_t)real_uid, (gid_t)real_gid);
  415.    snprintf(buf, sizeof(buf),  "%05d minicom %.20sn", (int)getpid(), username);
  416.    write(fd, buf, strlen(buf));
  417.    close(fd);
  418.    }
  419. (void) umask(n);
  420. drop_privs();
  421.   }
  422.   m_flush(portfd);
  423.   port_init();
  424. }
  426. /* ============ Here begins the setenv function ============= */
  427. /*
  428.  * Compare two strings up to '='
  429.  */
  430. static int varcmp(s1, s2)
  431. char *s1, *s2;
  432. {
  433.   while(*s1 && *s2) {
  434.    if (*s1 == '=' && *s2 == '=') return(1);
  435.    if (*s1++ != *s2++) return(0);
  436.   }
  437.   return(1);
  438. }
  440. /*
  441.  * Generate a name=value string.
  442.  */
  443. static char *makenv(name, value)
  444. char *name, *value;
  445. {
  446.   char *p;
  447.   
  448.   if ((p = (char *)malloc(strlen(name) + strlen(value) + 3)) == CNULL)
  449. return(p);
  450.   sprintf(p, "%s=%s", name, value);
  451.   return(p);
  452. }
  454. /*
  455.  * Set a environment variable. 
  456.  */
  457. int mc_setenv(name, value)
  458. char *name, *value;
  459. {
  460.   static int init = 0;
  461.   extern char **environ;
  462.   char *p, **e, **newe;
  463.   int count = 0;
  465.   if ((p = makenv(name, value)) == CNULL) return(-1);
  467.   for(e = environ; *e; e++) {
  468.    count++;
  469.    if(varcmp(name, *e)) {
  470.    *e = p;
  471.    return(0);
  472.    }
  473.   }
  474.   count += 2;
  475.   if ((newe = (char **)malloc(sizeof(char *) * count)) == (char **)0) {
  476.    free(p);
  477.    return(-1);
  478.   }
  479.   memcpy((char *)newe, (char *)environ , (int) (count * sizeof(char *)));
  480.   if (init) free((char *)environ);
  481.   init = 1;
  482.   environ = newe;
  483.   for(e = environ; *e; e++)
  484.    ;
  485.   *e++ = p;
  486.   *e = CNULL;
  487.   return(0);
  488. }
  490. /* ============ This is the end of the setenv function ============= */
  492. /*
  493.  * Run an external script.
  494.  * ask = 1 if first ask for confirmation.
  495.  * s = scriptname, l=loginname, p=password.
  496.  */
  497. void runscript(ask, s, l, p)
  498. int ask;
  499. char *s, *l, *p;
  500. {
  501.   int status;
  502.   int n;
  503.   int pipefd[2];
  504.   char buf[81];
  505.   char scr_lines[5];
  506.   char cmdline[128];
  507.   char *ptr;
  508.   WIN *w;
  509.   int done = 0;
  510.   char *msg = "Same as last";
  511.   char* username = _(" A -   Username        :"),
  512.       * password = _(" B -   Password        :"),
  513.       * name_of_script = _(" C -   Name of script  :"),
  514.       * question = _("Change which setting?     (Return to run, ESC to stop)");
  517.   if (ask) {
  518. w = wopen(10, 5, 70, 10, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);
  519. wtitle(w, TMID, _("Run a script"));
  520. wputs(w, "n");
  521. wprintf(w, "%s %sn", username, scr_user[0] ? msg : "");
  522. wprintf(w, "%s %sn", password, scr_passwd[0] ? msg : "");
  523. wprintf(w, "%s %sn", name_of_script, scr_name);
  524. wlocate(w, 4, 5);
  525. wputs(w, question);
  526. wredraw(w, 1);
  528. while(!done) {
  529.     wlocate(w, strlen (question) + 5, 5);
  530.     n = wxgetch();
  531.     if (islower(n)) n = toupper(n);
  532.     switch(n) {
  533. case 'r':
  534. case 'n':
  535. if (scr_name[0] == '') {
  536. wbell();
  537. break;
  538. }
  539. wclose(w, 1);
  540. done = 1;
  541. break;
  542. case 27: /* ESC */
  543. wclose(w, 1);
  544. return;
  545. case 'A':
  546. wlocate(w, strlen (username) + 1, 1);
  547. wclreol(w);
  548. scr_user[0] = 0;
  549. wgets(w, scr_user, 32, 32);
  550. break;
  551. case 'B':
  552. wlocate(w, strlen (password) + 1, 2);
  553. wclreol(w);
  554. scr_passwd[0] = 0;
  555. wgets(w, scr_passwd, 32, 32);
  556. break;
  557. case 'C':
  558. wlocate(w, strlen (name_of_script) + 1, 3);
  559. wgets(w, scr_name, 32, 32);
  560. break;
  561. default:
  562. break;
  563.     }
  564. }
  565.   } else {
  566.    strncpy(scr_user, l, sizeof(scr_user));
  567.    strncpy(scr_name, s, sizeof(scr_name));
  568.    strncpy(scr_passwd, p, sizeof(scr_passwd));
  569.   }
  570.   sprintf(scr_lines, "%d", (int) lines);  /* jl 13.09.97 */
  572.   /* Throw away status line if temporary */
  573.   if (tempst) {
  574.    wclose(st, 1);
  575.    tempst = 0;
  576.    st = NIL_WIN;
  577.   }
  578.   scriptname(scr_name);
  579.   
  580.   pipe(pipefd);
  582.   if (mcd(P_SCRIPTDIR) < 0) return;
  584.   snprintf(cmdline, sizeof(cmdline), "%s %s %s %s",
  585.    P_SCRIPTPROG, scr_name, logfname, logfname[0]==0? "": homedir);
  587.   switch(udpid = fork()) {
  588.    case -1:
  589.    werror(_("Out of memory: could not fork()"));
  590.    close(pipefd[0]);
  591.    close(pipefd[1]);
  592.    (void) mcd("");
  593.    return;
  594.    case 0: /* Child */
  595.    dup2(portfd, 0);
  596.    dup2(portfd, 1);
  597.    dup2(pipefd[1], 2);
  598.    close(pipefd[0]);
  599.    close(pipefd[1]);
  600.   
  601.    for(n = 1; n < _NSIG; n++) signal(n, SIG_DFL);
  602.   
  603. set_privs();
  604. setgid((gid_t)real_gid);
  605.    setuid((uid_t)real_uid);
  606.    mc_setenv("LOGIN", scr_user);
  607.    mc_setenv("PASS", scr_passwd);
  608. mc_setenv("TERMLIN", scr_lines); /* jl 13.09.97 */
  609.    (void) fastexec(translate(cmdline));
  610.    exit(1);
  611.    default: /* Parent */
  612.    break;
  613.   }
  614.   (void) setcbreak(1); /* Cbreak, no echo */
  615.   enab_sig(1, 0);        /* But enable SIGINT */
  616.   signal(SIGINT, udcatch);
  617.   close(pipefd[1]);
  618.   
  619.   /* pipe output from "runscript" program to terminal emulator */
  620.   while((n = read(pipefd[0], buf, 80)) > 0) {
  621.    ptr = buf;
  622.    while(n--)
  623.    vt_out(*ptr++);
  624. timer_update();
  625.    wflush();
  626.   }
  627.   
  628.   /* Collect status, and clean up. */
  629.   (void) m_wait(&status);
  630.   enab_sig(0, 0);
  631.   signal(SIGINT, SIG_IGN);
  632.   (void) setcbreak(2); /* Raw, no echo */
  633.   close(pipefd[0]);
  634.   scriptname("");
  635.   (void) mcd("");
  636. }