- /*
- * Fork and set up the return or run the program.
- */
- switch(pid = fork()) {
- case -1:
- e = strerror(errno);
- error("error [fork %s: %s]", prog, e);
- default: /* parent process */
- if ((pipedef & STDIN_PIPE) != 0) {
- aclose(inpipe[0]); /* close input side of pipe */
- *stdinfd = inpipe[1];
- }
- if ((pipedef & STDOUT_PIPE) != 0) {
- aclose(outpipe[1]); /* close output side of pipe */
- *stdoutfd = outpipe[0];
- }
- if ((pipedef & STDERR_PIPE) != 0) {
- aclose(errpipe[1]); /* close output side of pipe */
- *stderrfd = errpipe[0];
- }
- if ((pipedef & PASSWD_PIPE) != 0) {
- aclose(passwdpipe[0]); /* close input side of pipe */
- *passwdfd = passwdpipe[1];
- }
- break;
- case 0: /* child process */
- if ((pipedef & STDIN_PIPE) != 0) {
- aclose(inpipe[1]); /* close output side of pipe */
- } else {
- inpipe[0] = *stdinfd;
- }
- if ((pipedef & STDOUT_PIPE) != 0) {
- aclose(outpipe[0]); /* close input side of pipe */
- } else {
- outpipe[1] = *stdoutfd;
- }
- if ((pipedef & STDERR_PIPE) != 0) {
- aclose(errpipe[0]); /* close input side of pipe */
- } else {
- errpipe[1] = *stderrfd;
- }
- if ((pipedef & PASSWD_PIPE) != 0) {
- aclose(passwdpipe[1]); /* close output side of pipe */
- }
-
- /*
- * Shift the pipes to the standard file descriptors as requested.
- */
- if(dup2(inpipe[0], 0) == -1) {
- error("error [spawn %s: dup2 in: %s]", prog, strerror(errno));
- }
- if(dup2(outpipe[1], 1) == -1) {
- error("error [spawn %s: dup2 out: %s]", prog, strerror(errno));
- }
- if(dup2(errpipe[1], 2) == -1) {
- error("error [spawn %s: dup2 err: %s]", prog, strerror(errno));
- }
-
- /*
- * Create the argument vector.
- */
- arglist_start(ap, stderrfd);
- if ((pipedef & PASSWD_PIPE) != 0) {
- passwdvar = arglist_val(ap, char *);
- passwdfd = arglist_val(ap, int *);
- }
- argv = (char **)alloc((argc + 1) * sizeof(*argv));
- i = 0;
- while((argv[i] = arglist_val(ap, char *)) != NULL) {
- if (argv[i] != skip_argument) {
- i++;
- }
- }
- arglist_end(ap);
-
- /*
- * Get the "safe" environment. If we are sending a password to
- * the child via a pipe, add the environment variable for that.
- */
- env = safe_env();
- if ((pipedef & PASSWD_PIPE) != 0) {
- for(i = 0; env[i] != NULL; i++) {}
- newenv = (char **)alloc((i + 1 + 1) * sizeof(*newenv));
- ap_snprintf(number, sizeof(number), "%d", passwdpipe[0]);
- newenv[0] = vstralloc(passwdvar, "=", number, NULL);
- for(i = 0; (newenv[i + 1] = env[i]) != NULL; i++) {}
- env = newenv;
- }
-
- execve(prog, argv, env);
- e = strerror(errno);
- error("error [exec %s: %s]", prog, e);
- /* NOTREACHED */
- }