Sebastian Kuschel reports that pfd_closing can be called for a socket
[u/mdw/putty] / cmdline.c
index 2cad4fa..a4c9160 100644 (file)
--- a/cmdline.c
+++ b/cmdline.c
@@ -1,3 +1,8 @@
+/*
+ * cmdline.c - command-line parsing shared between many of the
+ * PuTTY applications
+ */
+
 #include <stdio.h>
 #include <assert.h>
 #include <stdlib.h>
@@ -43,36 +48,69 @@ static void cmdline_save_param(char *p, char *value, int pri)
 {
     if (saves[pri].nsaved >= saves[pri].savesize) {
        saves[pri].savesize = saves[pri].nsaved + 32;
-       saves[pri].params =
-           srealloc(saves[pri].params,
-                    saves[pri].savesize*sizeof(*saves[pri].params));
+       saves[pri].params = sresize(saves[pri].params, saves[pri].savesize,
+                                   struct cmdline_saved_param);
     }
     saves[pri].params[saves[pri].nsaved].p = p;
     saves[pri].params[saves[pri].nsaved].value = value;
     saves[pri].nsaved++;
 }
 
+static char *cmdline_password = NULL;
+
+void cmdline_cleanup(void)
+{
+    int pri;
+
+    if (cmdline_password) {
+       smemclr(cmdline_password, strlen(cmdline_password));
+       sfree(cmdline_password);
+       cmdline_password = NULL;
+    }
+    
+    for (pri = 0; pri < NPRIORITIES; pri++) {
+       sfree(saves[pri].params);
+       saves[pri].params = NULL;
+       saves[pri].savesize = 0;
+       saves[pri].nsaved = 0;
+    }
+}
+
 #define SAVEABLE(pri) do { \
     if (need_save) { cmdline_save_param(p, value, pri); return ret; } \
 } while (0)
 
-char *cmdline_password = NULL;
+/*
+ * Similar interface to get_userpass_input(), except that here a -1
+ * return means that we aren't capable of processing the prompt and
+ * someone else should do it.
+ */
+int cmdline_get_passwd_input(prompts_t *p, unsigned char *in, int inlen) {
 
-static int cmdline_get_line(const char *prompt, char *str,
-                            int maxlen, int is_pw)
-{
     static int tried_once = 0;
 
-    assert(is_pw && cmdline_password);
+    /*
+     * We only handle prompts which don't echo (which we assume to be
+     * passwords), and (currently) we only cope with a password prompt
+     * that comes in a prompt-set on its own.
+     */
+    if (!cmdline_password || in || p->n_prompts != 1 || p->prompts[0]->echo) {
+       return -1;
+    }
 
-    if (tried_once) {
+    /*
+     * If we've tried once, return utter failure (no more passwords left
+     * to try).
+     */
+    if (tried_once)
        return 0;
-    } else {
-       strncpy(str, cmdline_password, maxlen);
-       str[maxlen - 1] = '\0';
-       tried_once = 1;
-       return 1;
-    }
+
+    prompt_set_result(p->prompts[0], cmdline_password);
+    smemclr(cmdline_password, strlen(cmdline_password));
+    sfree(cmdline_password);
+    cmdline_password = NULL;
+    tried_once = 1;
+    return 1;
 }
 
 /*
@@ -104,6 +142,12 @@ static int cmdline_check_unavailable(int flag, char *p)
  * Process a standard command-line parameter. `p' is the parameter
  * in question; `value' is the subsequent element of argv, which
  * may or may not be required as an operand to the parameter.
+ * If `need_save' is 1, arguments which need to be saved as
+ * described at this top of this file are, for later execution;
+ * if 0, they are processed normally. (-1 is a special value used
+ * by pterm to count arguments for a preliminary pass through the
+ * argument list; it causes immediate return with an appropriate
+ * value with no action taken.)
  * Return value is 2 if both arguments were used; 1 if only p was
  * used; 0 if the parameter wasn't one we recognised; -2 if it
  * should have been 2 but value was NULL.
@@ -112,9 +156,10 @@ static int cmdline_check_unavailable(int flag, char *p)
 #define RETURN(x) do { \
     if ((x) == 2 && !value) return -2; \
     ret = x; \
+    if (need_save < 0) return x; \
 } while (0)
 
-int cmdline_process_param(char *p, char *value, int need_save, Config *cfg)
+int cmdline_process_param(char *p, char *value, int need_save, Conf *conf)
 {
     int ret = 0;
 
@@ -122,38 +167,58 @@ int cmdline_process_param(char *p, char *value, int need_save, Config *cfg)
        RETURN(2);
        /* This parameter must be processed immediately rather than being
         * saved. */
-       do_defaults(value, cfg);
+       do_defaults(value, conf);
+       loaded_session = TRUE;
+       cmdline_session_name = dupstr(value);
        return 2;
     }
     if (!strcmp(p, "-ssh")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       default_protocol = cfg->protocol = PROT_SSH;
-       default_port = cfg->port = 22;
+       default_protocol = PROT_SSH;
+       default_port = 22;
+       conf_set_int(conf, CONF_protocol, default_protocol);
+       conf_set_int(conf, CONF_port, default_port);
        return 1;
     }
     if (!strcmp(p, "-telnet")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       default_protocol = cfg->protocol = PROT_TELNET;
-       default_port = cfg->port = 23;
+       default_protocol = PROT_TELNET;
+       default_port = 23;
+       conf_set_int(conf, CONF_protocol, default_protocol);
+       conf_set_int(conf, CONF_port, default_port);
        return 1;
     }
     if (!strcmp(p, "-rlogin")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       default_protocol = cfg->protocol = PROT_RLOGIN;
-       default_port = cfg->port = 513;
+       default_protocol = PROT_RLOGIN;
+       default_port = 513;
+       conf_set_int(conf, CONF_protocol, default_protocol);
+       conf_set_int(conf, CONF_port, default_port);
        return 1;
     }
     if (!strcmp(p, "-raw")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       default_protocol = cfg->protocol = PROT_RAW;
+       default_protocol = PROT_RAW;
+       conf_set_int(conf, CONF_protocol, default_protocol);
+    }
+    if (!strcmp(p, "-serial")) {
+       RETURN(1);
+       /* Serial is not NONNETWORK in an odd sense of the word */
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
+       SAVEABLE(0);
+       default_protocol = PROT_SERIAL;
+       conf_set_int(conf, CONF_protocol, default_protocol);
+       /* The host parameter will already be loaded into CONF_host,
+        * so copy it across */
+       conf_set_str(conf, CONF_serline, conf_get_str(conf, CONF_host));
     }
     if (!strcmp(p, "-v")) {
        RETURN(1);
@@ -161,51 +226,91 @@ int cmdline_process_param(char *p, char *value, int need_save, Config *cfg)
     }
     if (!strcmp(p, "-l")) {
        RETURN(2);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       strncpy(cfg->username, value, sizeof(cfg->username));
-       cfg->username[sizeof(cfg->username) - 1] = '\0';
+       conf_set_str(conf, CONF_username, value);
     }
-    if ((!strcmp(p, "-L") || !strcmp(p, "-R"))) {
-       char *fwd, *ptr, *q, *qq;
-       int i=0;
+    if (!strcmp(p, "-loghost")) {
        RETURN(2);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       fwd = value;
-       ptr = cfg->portfwd;
-       /* if multiple forwards, find end of list */
-       if (ptr[0]=='R' || ptr[0]=='L') {
-           for (i = 0; i < sizeof(cfg->portfwd) - 2; i++)
-               if (ptr[i]=='\000' && ptr[i+1]=='\000')
-                   break;
-           ptr = ptr + i + 1;  /* point to next forward slot */
+       conf_set_str(conf, CONF_loghost, value);
+    }
+    if ((!strcmp(p, "-L") || !strcmp(p, "-R") || !strcmp(p, "-D"))) {
+       char type, *q, *qq, *key, *val;
+       RETURN(2);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
+       SAVEABLE(0);
+       if (strcmp(p, "-D")) {
+           /*
+             * For -L or -R forwarding types:
+             *
+            * We expect _at least_ two colons in this string. The
+            * possible formats are `sourceport:desthost:destport',
+            * or `sourceip:sourceport:desthost:destport' if you're
+            * specifying a particular loopback address. We need to
+            * replace the one between source and dest with a \t;
+            * this means we must find the second-to-last colon in
+            * the string.
+            *
+            * (This looks like a foolish way of doing it given the
+            * existence of strrchr, but it's more efficient than
+            * two strrchrs - not to mention that the second strrchr
+            * would require us to modify the input string!)
+            */
+
+            type = p[1];               /* 'L' or 'R' */
+
+           q = qq = strchr(value, ':');
+           while (qq) {
+               char *qqq = strchr(qq+1, ':');
+               if (qqq)
+                   q = qq;
+               qq = qqq;
+           }
+
+           if (!q) {
+               cmdline_error("-%c expects at least two colons in its"
+                             " argument", type);
+               return ret;
+           }
+
+           key = dupprintf("%c%.*s", type, q - value, value);
+           val = dupstr(q+1);
+       } else {
+            /*
+             * Dynamic port forwardings are entered under the same key
+             * as if they were local (because they occupy the same
+             * port space - a local and a dynamic forwarding on the
+             * same local port are mutually exclusive), with the
+             * special value "D" (which can be distinguished from
+             * anything in the ordinary -L case by containing no
+             * colon).
+             */
+           key = dupprintf("L%s", value);
+           val = dupstr("D");
        }
-       ptr[0] = p[1];  /* insert a 'L' or 'R' at the start */
-       if (strlen(fwd) > sizeof(cfg->portfwd) - i - 2) {
-           cmdline_error("out of space for port forwardings");
+       conf_set_str_str(conf, CONF_portfwd, key, val);
+       sfree(key);
+       sfree(val);
+    }
+    if ((!strcmp(p, "-nc"))) {
+       char *host, *portp;
+
+       RETURN(2);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
+       SAVEABLE(0);
+
+       portp = strchr(value, ':');
+       if (!portp) {
+           cmdline_error("-nc expects argument of form 'host:port'");
            return ret;
        }
-       strncpy(ptr+1, fwd, sizeof(cfg->portfwd) - i);
-       /*
-        * We expect _at least_ two colons in this string. The
-        * possible formats are `sourceport:desthost:destport', or
-        * `sourceip:sourceport:desthost:destport' if you're
-        * specifying a particular loopback address. We need to
-        * replace the one between source and dest with a \t; this
-        * means we must find the second-to-last colon in the
-        * string.
-        */
-       q = qq = strchr(ptr, ':');
-       while (qq) {
-           char *qqq = strchr(qq+1, ':');
-           if (qqq)
-               q = qq;
-           qq = qqq;
-       }
-       if (q) *q = '\t';              /* replace second-last colon with \t */
-       cfg->portfwd[sizeof(cfg->portfwd) - 1] = '\0';
-       cfg->portfwd[sizeof(cfg->portfwd) - 2] = '\0';
-       ptr[strlen(ptr)+1] = '\000';    /* append two '\000' */
+
+       host = dupprintf("%.*s", portp - value, value);
+       conf_set_str(conf, CONF_ssh_nc_host, host);
+       conf_set_int(conf, CONF_ssh_nc_port, atoi(portp + 1));
+        sfree(host);
     }
     if (!strcmp(p, "-m")) {
        char *filename, *command;
@@ -214,7 +319,7 @@ int cmdline_process_param(char *p, char *value, int need_save, Config *cfg)
        int c, d;
 
        RETURN(2);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
 
        filename = value;
@@ -223,8 +328,7 @@ int cmdline_process_param(char *p, char *value, int need_save, Config *cfg)
        command = NULL;
        fp = fopen(filename, "r");
        if (!fp) {
-           cmdline_error("unable to open command "
-                         "file \"%s\"", filename);
+           cmdline_error("unable to open command file \"%s\"", filename);
            return ret;
        }
        do {
@@ -234,96 +338,233 @@ int cmdline_process_param(char *p, char *value, int need_save, Config *cfg)
                d = 0;
            if (cmdlen >= cmdsize) {
                cmdsize = cmdlen + 512;
-               command = srealloc(command, cmdsize);
+               command = sresize(command, cmdsize, char);
            }
            command[cmdlen++] = d;
        } while (c != EOF);
-       cfg->remote_cmd_ptr = command;
-       cfg->remote_cmd_ptr2 = NULL;
-       cfg->nopty = TRUE;      /* command => no terminal */
+       fclose(fp);
+       conf_set_str(conf, CONF_remote_cmd, command);
+       conf_set_str(conf, CONF_remote_cmd2, "");
+       conf_set_int(conf, CONF_nopty, TRUE);   /* command => no terminal */
+       sfree(command);
     }
     if (!strcmp(p, "-P")) {
        RETURN(2);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
        SAVEABLE(1);                   /* lower priority than -ssh,-telnet */
-       cfg->port = atoi(value);
+       conf_set_int(conf, CONF_port, atoi(value));
     }
     if (!strcmp(p, "-pw")) {
        RETURN(2);
-       cmdline_password = value;
-       ssh_get_line = cmdline_get_line;
-       ssh_getline_pw_only = TRUE;
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
+       SAVEABLE(1);
+       /* We delay evaluating this until after the protocol is decided,
+        * so that we can warn if it's of no use with the selected protocol */
+       if (conf_get_int(conf, CONF_protocol) != PROT_SSH)
+           cmdline_error("the -pw option can only be used with the "
+                         "SSH protocol");
+       else {
+           cmdline_password = dupstr(value);
+           /* Assuming that `value' is directly from argv, make a good faith
+            * attempt to trample it, to stop it showing up in `ps' output
+            * on Unix-like systems. Not guaranteed, of course. */
+           smemclr(value, strlen(value));
+       }
+    }
+
+    if (!strcmp(p, "-agent") || !strcmp(p, "-pagent") ||
+       !strcmp(p, "-pageant")) {
+       RETURN(1);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
+       SAVEABLE(0);
+       conf_set_int(conf, CONF_tryagent, TRUE);
+    }
+    if (!strcmp(p, "-noagent") || !strcmp(p, "-nopagent") ||
+       !strcmp(p, "-nopageant")) {
+       RETURN(1);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
+       SAVEABLE(0);
+       conf_set_int(conf, CONF_tryagent, FALSE);
     }
 
     if (!strcmp(p, "-A")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->agentfwd = 1;
+       conf_set_int(conf, CONF_agentfwd, 1);
     }
     if (!strcmp(p, "-a")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->agentfwd = 0;
+       conf_set_int(conf, CONF_agentfwd, 0);
     }
 
     if (!strcmp(p, "-X")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->x11_forward = 1;
+       conf_set_int(conf, CONF_x11_forward, 1);
     }
     if (!strcmp(p, "-x")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->x11_forward = 0;
+       conf_set_int(conf, CONF_x11_forward, 0);
     }
 
     if (!strcmp(p, "-t")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
-       SAVEABLE(0);
-       cfg->nopty = 0;
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
+       SAVEABLE(1);    /* lower priority than -m */
+       conf_set_int(conf, CONF_nopty, 0);
     }
     if (!strcmp(p, "-T")) {
        RETURN(1);
-       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
+       SAVEABLE(1);
+       conf_set_int(conf, CONF_nopty, 1);
+    }
+
+    if (!strcmp(p, "-N")) {
+       RETURN(1);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->nopty = 1;
+       conf_set_int(conf, CONF_ssh_no_shell, 1);
     }
 
     if (!strcmp(p, "-C")) {
        RETURN(1);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->compression = 1;
+       conf_set_int(conf, CONF_compression, 1);
     }
 
     if (!strcmp(p, "-1")) {
        RETURN(1);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->sshprot = 0;              /* ssh protocol 1 only */
+       conf_set_int(conf, CONF_sshprot, 0);   /* ssh protocol 1 only */
     }
     if (!strcmp(p, "-2")) {
        RETURN(1);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->sshprot = 3;              /* ssh protocol 2 only */
+       conf_set_int(conf, CONF_sshprot, 3);   /* ssh protocol 2 only */
     }
 
     if (!strcmp(p, "-i")) {
+       Filename *fn;
        RETURN(2);
+       UNAVAILABLE_IN(TOOLTYPE_NONNETWORK);
        SAVEABLE(0);
-       cfg->keyfile = filename_from_str(value);
+       fn = filename_from_str(value);
+       conf_set_filename(conf, CONF_keyfile, fn);
+        filename_free(fn);
     }
 
+    if (!strcmp(p, "-4") || !strcmp(p, "-ipv4")) {
+       RETURN(1);
+       SAVEABLE(1);
+       conf_set_int(conf, CONF_addressfamily, ADDRTYPE_IPV4);
+    }
+    if (!strcmp(p, "-6") || !strcmp(p, "-ipv6")) {
+       RETURN(1);
+       SAVEABLE(1);
+       conf_set_int(conf, CONF_addressfamily, ADDRTYPE_IPV6);
+    }
+    if (!strcmp(p, "-sercfg")) {
+       char* nextitem;
+       RETURN(2);
+       UNAVAILABLE_IN(TOOLTYPE_FILETRANSFER | TOOLTYPE_NONNETWORK);
+       SAVEABLE(1);
+       if (conf_get_int(conf, CONF_protocol) != PROT_SERIAL)
+           cmdline_error("the -sercfg option can only be used with the "
+                         "serial protocol");
+       /* Value[0] contains one or more , separated values, like 19200,8,n,1,X */
+       nextitem = value;
+       while (nextitem[0] != '\0') {
+           int length, skip;
+           char *end = strchr(nextitem, ',');
+           if (!end) {
+               length = strlen(nextitem);
+               skip = 0;
+           } else {
+               length = end - nextitem;
+               nextitem[length] = '\0';
+               skip = 1;
+           }
+           if (length == 1) {
+               switch (*nextitem) {
+                 case '1':
+                 case '2':
+                   conf_set_int(conf, CONF_serstopbits, 2 * (*nextitem-'0'));
+                   break;
+
+                 case '5':
+                 case '6':
+                 case '7':
+                 case '8':
+                 case '9':
+                   conf_set_int(conf, CONF_serdatabits, *nextitem-'0');
+                   break;
+
+                 case 'n':
+                   conf_set_int(conf, CONF_serparity, SER_PAR_NONE);
+                   break;
+                 case 'o':
+                   conf_set_int(conf, CONF_serparity, SER_PAR_ODD);
+                   break;
+                 case 'e':
+                   conf_set_int(conf, CONF_serparity, SER_PAR_EVEN);
+                   break;
+                 case 'm':
+                   conf_set_int(conf, CONF_serparity, SER_PAR_MARK);
+                   break;
+                 case 's':
+                   conf_set_int(conf, CONF_serparity, SER_PAR_SPACE);
+                   break;
+
+                 case 'N':
+                   conf_set_int(conf, CONF_serflow, SER_FLOW_NONE);
+                   break;
+                 case 'X':
+                   conf_set_int(conf, CONF_serflow, SER_FLOW_XONXOFF);
+                   break;
+                 case 'R':
+                   conf_set_int(conf, CONF_serflow, SER_FLOW_RTSCTS);
+                   break;
+                 case 'D':
+                   conf_set_int(conf, CONF_serflow, SER_FLOW_DSRDTR);
+                   break;
+
+                 default:
+                   cmdline_error("Unrecognised suboption \"-sercfg %c\"",
+                                 *nextitem);
+               }
+           } else if (length == 3 && !strncmp(nextitem,"1.5",3)) {
+               /* Messy special case */
+               conf_set_int(conf, CONF_serstopbits, 3);
+           } else {
+               int serspeed = atoi(nextitem);
+               if (serspeed != 0) {
+                   conf_set_int(conf, CONF_serspeed, serspeed);
+               } else {
+                   cmdline_error("Unrecognised suboption \"-sercfg %s\"",
+                                 nextitem);
+               }
+           }
+           nextitem += length + skip;
+       }
+    }
     return ret;                               /* unrecognised */
 }
 
-void cmdline_run_saved(Config *cfg)
+void cmdline_run_saved(Conf *conf)
 {
     int pri, i;
     for (pri = 0; pri < NPRIORITIES; pri++)
        for (i = 0; i < saves[pri].nsaved; i++)
            cmdline_process_param(saves[pri].params[i].p,
-                                 saves[pri].params[i].value, 0, cfg);
+                                 saves[pri].params[i].value, 0, conf);
 }