156 lines
3.9 KiB
C
156 lines
3.9 KiB
C
/*
|
|
* Copyright (c) 1988 The Regents of the University of California.
|
|
* All rights reserved.
|
|
*
|
|
* This code is derived from software written by Ken Arnold and
|
|
* published in UNIX Review, Vol. 6, No. 8.
|
|
*
|
|
* Redistribution and use in source and binary forms are permitted
|
|
* provided that: (1) source distributions retain this entire copyright
|
|
* notice and comment, and (2) distributions including binaries display
|
|
* the following acknowledgement: ``This product includes software
|
|
* developed by the University of California, Berkeley and its contributors''
|
|
* in the documentation or other materials provided with the distribution
|
|
* and in all advertising materials mentioning features or use of this
|
|
* software. Neither the name of the University nor the names of its
|
|
* contributors may be used to endorse or promote products derived
|
|
* from this software without specific prior written permission.
|
|
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
|
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
|
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
*
|
|
*/
|
|
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)popen.c 5.8 (Berkeley) 6/1/90";
|
|
#endif /* not lint */
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/signal.h>
|
|
#include <sys/wait.h>
|
|
#include <glob.h>
|
|
#include <stdio.h>
|
|
|
|
/*
|
|
* Special version of popen which avoids call to shell. This insures noone
|
|
* may create a pipe to a hidden program as a side effect of a list or dir
|
|
* command.
|
|
*/
|
|
static int *pids;
|
|
static int fds;
|
|
|
|
FILE *
|
|
ftpd_popen(program, type)
|
|
char *program, *type;
|
|
{
|
|
register char *cp;
|
|
FILE *iop;
|
|
int argc, gargc, pdes[2], pid;
|
|
char **pop, *argv[100], *gargv[1000], *vv[2];
|
|
|
|
if (*type != 'r' && *type != 'w' || type[1])
|
|
return(NULL);
|
|
|
|
if (!pids) {
|
|
if ((fds = getdtablesize()) <= 0)
|
|
return(NULL);
|
|
if ((pids = (int *)malloc((u_int)(fds * sizeof(int)))) == NULL)
|
|
return(NULL);
|
|
bzero((char *)pids, fds * sizeof(int));
|
|
}
|
|
if (pipe(pdes) < 0)
|
|
return(NULL);
|
|
|
|
/* break up string into pieces */
|
|
for (argc = 0, cp = program;; cp = NULL)
|
|
if (!(argv[argc++] = strtok(cp, " \t\n")))
|
|
break;
|
|
|
|
/* glob each piece */
|
|
gargv[0] = argv[0];
|
|
for (gargc = argc = 1; argv[argc]; argc++) {
|
|
glob_t gl;
|
|
int flags = GLOB_BRACE|GLOB_NOCHECK|GLOB_QUOTE|GLOB_TILDE;
|
|
|
|
memset(&gl, 0, sizeof(gl));
|
|
if (glob(argv[argc], flags, NULL, &gl))
|
|
gargv[gargc++] = strdup(argv[argc]);
|
|
else
|
|
for (pop = gl.gl_pathv; *pop; pop++)
|
|
gargv[gargc++] = strdup(*pop);
|
|
globfree(&gl);
|
|
}
|
|
gargv[gargc] = NULL;
|
|
|
|
iop = NULL;
|
|
switch(pid = vfork()) {
|
|
case -1: /* error */
|
|
(void)close(pdes[0]);
|
|
(void)close(pdes[1]);
|
|
goto pfree;
|
|
/* NOTREACHED */
|
|
case 0: /* child */
|
|
if (*type == 'r') {
|
|
if (pdes[1] != 1) {
|
|
dup2(pdes[1], 1);
|
|
dup2(pdes[1], 2); /* stderr, too! */
|
|
(void)close(pdes[1]);
|
|
}
|
|
(void)close(pdes[0]);
|
|
} else {
|
|
if (pdes[0] != 0) {
|
|
dup2(pdes[0], 0);
|
|
(void)close(pdes[0]);
|
|
}
|
|
(void)close(pdes[1]);
|
|
}
|
|
execv(gargv[0], gargv);
|
|
_exit(1);
|
|
}
|
|
/* parent; assume fdopen can't fail... */
|
|
if (*type == 'r') {
|
|
iop = fdopen(pdes[0], type);
|
|
(void)close(pdes[1]);
|
|
} else {
|
|
iop = fdopen(pdes[1], type);
|
|
(void)close(pdes[0]);
|
|
}
|
|
pids[fileno(iop)] = pid;
|
|
|
|
pfree: for (argc = 1; gargv[argc] != NULL; argc++)
|
|
free((char *)gargv[argc]);
|
|
|
|
return(iop);
|
|
}
|
|
|
|
ftpd_pclose(iop)
|
|
FILE *iop;
|
|
{
|
|
register int fdes;
|
|
int omask;
|
|
#ifdef sgi
|
|
int stat_loc;
|
|
pid_t pid;
|
|
#else
|
|
union wait stat_loc;
|
|
int pid;
|
|
#endif
|
|
|
|
/*
|
|
* pclose returns -1 if stream is not associated with a
|
|
* `popened' command, or, if already `pclosed'.
|
|
*/
|
|
if (pids == 0 || pids[fdes = fileno(iop)] == 0)
|
|
return(-1);
|
|
(void)fclose(iop);
|
|
omask = sigblock(sigmask(SIGINT)|sigmask(SIGQUIT)|sigmask(SIGHUP));
|
|
while ((pid = wait(&stat_loc)) != pids[fdes] && pid != -1);
|
|
(void)sigsetmask(omask);
|
|
pids[fdes] = 0;
|
|
#ifdef sgi
|
|
return(pid == -1 ? -1 : stat_loc);
|
|
#else
|
|
return(pid == -1 ? -1 : stat_loc.w_status);
|
|
#endif
|
|
}
|