Since this has come up a number of times, have the rsh launcher add MCA params from the environment by default. If it finds that the cmd line is too long, error out with a message directing the user to set a param to ignore the environmental MCA params.

This commit was SVN r25581.

configure.ac

@@ -581,7 +581,8 @@ AC_CHECK_HEADERS([alloca.h aio.h arpa/inet.h dirent.h \
     sys/types.h sys/uio.h net/uio.h sys/utsname.h sys/vfs.h sys/wait.h syslog.h \
     time.h termios.h ulimit.h unistd.h util.h utmp.h malloc.h \
     ifaddrs.h sys/sysctl.h crt_externs.h regex.h signal.h \
-    ioLib.h sockLib.h hostLib.h shlwapi.h sys/synch.h limits.h db.h ndbm.h])
+    ioLib.h sockLib.h hostLib.h shlwapi.h sys/synch.h limits.h db.h ndbm.h \
+    sys/syslimits.h])
 
 # Needed to work around Darwin requiring sys/socket.h for
 # net/if.h

orte/mca/plm/rsh/help-plm-rsh.txt

@@ -75,3 +75,13 @@ The prefix we were given are:
 
 opal_prefix: %s
 prefix_dir: %s
+#
+[cmd-line-too-long]
+The cmd line to launch remote daemons is too long:
+
+  Length:         %d
+  Max length:  %d
+
+Consider setting -mca plm_rsh_pass_environ_mca_params 0 to
+avoid including any environmentally set MCA parameters on the
+command line.

orte/mca/plm/rsh/plm_rsh.h

@@ -61,6 +61,7 @@ struct orte_plm_rsh_component_t {
     opal_condition_t cond;
     char *agent;
     bool assume_same_shell;
+    bool pass_environ_mca_params;
 };
 typedef struct orte_plm_rsh_component_t orte_plm_rsh_component_t;
 

orte/mca/plm/rsh/plm_rsh_component.c

@@ -187,6 +187,11 @@ static int rsh_component_open(void)
     mca_base_param_lookup_int(tmp, &value);
     mca_plm_rsh_component.assume_same_shell = OPAL_INT_TO_BOOL(value);
     
+    mca_base_param_reg_int(c, "pass_environ_mca_params",
+                           "If set to 0, do not include mca params from the environment on the orted cmd line",
+                           false, false, 1, &tmp);
+    mca_plm_rsh_component.pass_environ_mca_params = OPAL_INT_TO_BOOL(tmp);
+
     return ORTE_SUCCESS;
 }
 

orte/mca/plm/rsh/plm_rsh_module.c

@@ -62,6 +62,12 @@
 #ifdef HAVE_PWD_H
 #include <pwd.h>
 #endif
+#if HAVE_LIMITS_H
+#include <limits.h>
+#endif
+#if HAVE_SYS_SYSLIMITS_H
+#include <sys/syslimits.h>
+#endif
 
 #include "opal/mca/installdirs/installdirs.h"
 #include "opal/mca/base/mca_base_param.h"
@@ -287,7 +293,7 @@ static int setup_launch(int *argcptr, char ***argvptr,
 {
     int argc;
     char **argv;
-    char *param;
+    char *param, *value;
     orte_plm_rsh_shell_t remote_shell, local_shell;
     char *lib_base, *bin_base;
     int orted_argc;
@@ -295,7 +301,8 @@ static int setup_launch(int *argcptr, char ***argvptr,
     char *orted_cmd, *orted_prefix, *final_cmd;
     int orted_index;
     int rc;
-
+    int cnt, i, j;
+    bool found;
     
     /* Figure out the basenames for the libdir and bindir.  This
        requires some explanation:
@@ -513,8 +520,6 @@ static int setup_launch(int *argcptr, char ***argvptr,
      * by enclosing them in quotes. Check for any multi-word
      * mca params passed to mpirun and include them
      */
-    if (ORTE_PROC_IS_HNP || ORTE_PROC_IS_DAEMON) {
-        int cnt, i;
     cnt = opal_argv_count(orted_cmd_line);    
     for (i=0; i < cnt; i+=3) {
         /* check if the specified option is more than one word - all
@@ -530,7 +535,50 @@ static int setup_launch(int *argcptr, char ***argvptr,
             free(param);
         }
     }
+
+    /* unless told otherwise... */
+    if (mca_plm_rsh_component.pass_environ_mca_params) {
+        /* now check our local environment for MCA params - add them
+         * only if they aren't already present
+         */
+        for (i = 0; NULL != environ[i]; ++i) {
+            if (0 == strncmp("OMPI_", environ[i], 5)) {
+                /* check for duplicate in app->env - this
+                 * would have been placed there by the
+                 * cmd line processor. By convention, we
+                 * always let the cmd line override the
+                 * environment
+                 */
+                param = strdup(&environ[i][9]);
+                value = strchr(param, '=');
+                *value = '\0';
+                value++;
+                /* see if this param exists on the cmd line */
+                for (j=0; NULL != argv[j]; j++) {
+                    if (0 == strcmp(param, argv[j])) {
+                        found = true;
+                        break;
                     }
+                }
+                if (!found) {
+                    /* add it */
+                    opal_argv_append(&argc, &argv, "-mca");
+                    opal_argv_append(&argc, &argv, param);
+                    opal_argv_append(&argc, &argv, value);
+                }
+                free(param);
+            }
+        }
+    }
+
+    value = opal_argv_join(argv, ' ');
+    if (ARG_MAX < strlen(value)) {
+        orte_show_help("help-plm-rsh.txt", "cmd-line-too-long",
+                       true, strlen(value), ARG_MAX);
+        free(value);
+        return ORTE_ERR_SILENT;
+    }
+    free(value);
 
     if (ORTE_PLM_RSH_SHELL_SH == remote_shell ||
         ORTE_PLM_RSH_SHELL_KSH == remote_shell) {