String _XtGetUserName(
String dest,
int len)
{
#ifdef WIN32
String ptr = NULL;
if ((ptr = getenv("USERNAME"))) {
(void) strncpy (dest, ptr, len-1);
dest[len-1] = '\0';
} else
*dest = '\0';
#else
#ifdef X_NEEDS_PWPARAMS
_Xgetpwparams pwparams;
#endif
struct passwd *pw;
char* ptr;
if ((ptr = getenv("USER"))) {
(void) strncpy (dest, ptr, len-1);
dest[len-1] = '\0';
} else {
if ((pw = _XGetpwuid(getuid(),pwparams)) != NULL) {
(void) strncpy (dest, pw->pw_name, len-1);
dest[len-1] = '\0';
} else
*dest = '\0';
}
#endif
return dest;
}
/*ARGSUSED*/
static char *
GetHomeDir(
char *dest,
int len)
{
#ifdef WIN32
register char *ptr1 = NULL;
register char *ptr2 = NULL;
int len1 = 0, len2 = 0;
if ((ptr1 = getenv("HOME"))) { /* old, deprecated */
len1 = strlen (ptr1);
} else if ((ptr1 = getenv("HOMEDRIVE")) && (ptr2 = getenv("HOMEDIR"))) {
len1 = strlen (ptr1);
len2 = strlen (ptr2);
} else if ((ptr2 = getenv("USERNAME"))) {
len1 = strlen (ptr1 = "/users/");
len2 = strlen (ptr2);
}
if ((len1 + len2 + 1) < len)
snprintf (dest, len, "%s%s", ptr1, (ptr2) ? ptr2 : "");
else
*dest = '\0';
#else
#ifdef X_NEEDS_PWPARAMS
_Xgetpwparams pwparams;
#endif
struct passwd *pw;
register char *ptr;
if (len <= 0 || dest == NULL)
return NULL;
if ((ptr = getenv("HOME"))) {
(void) strncpy(dest, ptr, len-1);
dest[len-1] = '\0';
} else {
if ((ptr = getenv("USER")))
pw = _XGetpwnam(ptr,pwparams);
else
pw = _XGetpwuid(getuid(),pwparams);
if (pw != NULL) {
(void) strncpy(dest, pw->pw_dir, len-1);
dest[len-1] = '\0';
} else
*dest = '\0';
}
#endif
return dest;
}
extern char *
_DtCmGetUserName()
{
static char *name = NULL;
_Xgetpwparams pwd_buf;
struct passwd * pwd_ret;
if (name == NULL) {
name = malloc(BUFSIZ);
if ((pwd_ret = _XGetpwuid(geteuid(), pwd_buf)) == NULL)
strcpy(name, "nobody");
else
strcpy(name, pwd_ret->pw_name);
}
return name;
}
void
XpStartJob (
Display *dpy,
XPSaveData save_data
)
{
xPrintStartJobReq *req;
XExtDisplayInfo *info = (XExtDisplayInfo *) xp_find_display (dpy);
XPContext context;
/****************************************************************
*
* PRIOR TO XPSTARTJOB, set the job attribute "job-owner"
* which will be used by the X-Server when it spools the
* output. When XpStartJob completes, the job attribute
* pool is frozen, disallowing "job-owner" to be modified.
*/
{
char *joa; /* job owner attribute */
char *PwName;
#ifndef WIN32
#ifdef X_NEEDS_PWPARAMS
_Xgetpwparams pwparams;
#endif
struct passwd *pw;
pw = _XGetpwuid(getuid(),pwparams);
if (pw && (PwName = pw->pw_name)) {
#else
if ((PwName = getenv("USERNAME"))) {
#endif
joa = (char *) Xmalloc( strlen( PwName ) + 20 );
sprintf( joa, "*job-owner: %s", PwName );
context = XpGetContext( dpy );
XpSetAttributes( dpy, context, XPJobAttr, joa, XPAttrMerge );
Xfree( joa );
}
}
if (XpCheckExtInit(dpy, XP_INITIAL_RELEASE) == -1)
return; /* NoSuchExtension */
LockDisplay (dpy);
GetReq(PrintStartJob,req);
req->reqType = info->codes->major_opcode;
req->printReqType = X_PrintStartJob;
req->saveData = (CARD8) save_data;
UnlockDisplay (dpy);
SyncHandle ();
}
void
XpEndJob (
Display *dpy
)
{
xPrintEndJobReq *req;
XExtDisplayInfo *info = (XExtDisplayInfo *) xp_find_display (dpy);
if (XpCheckExtInit(dpy, XP_INITIAL_RELEASE) == -1)
return; /* NoSuchExtension */
LockDisplay (dpy);
GetReq(PrintEndJob,req);
req->reqType = info->codes->major_opcode;
req->printReqType = X_PrintEndJob;
req->cancel = False;
UnlockDisplay (dpy);
SyncHandle ();
}
/*******************************************************************************
*
* _DtSPCOpen()
* This is a wrapper around DtSPCOpen (i.e. XeSPCOpen) that makes sure
* the original environment is restored before the spawn and the DT
* environment is reinstated after the spawn. It returns the value
* originally returned by DtSPCOpen.
*
******************************************************************************/
SPC_Channel_Ptr
_DtSPCOpen(
char *hostname,
int iomode,
char *errorMessage)
{
SPC_Channel_Ptr chan;
_Xgetpwparams pwd_buf;
struct passwd * pwd_ret;
/*
* Restore the original environment
*/
(void) _DtEnvControl (DT_ENV_RESTORE_PRE_DT);
/*
* Map some env var paths to execHost.
*/
(void) _DtEnvMapForRemote(hostname);
if ((chan = XeSPCOpen(hostname, iomode)) == SPC_ERROR)
{
uid_t this_uid;
char *username;
switch (DtSPCErrorNumber)
{
case SPC_Unknown_Host:
(void) sprintf (errorMessage,
errorUnknownHost,
hostname);
break;
case SPC_Bad_Connect:
(void) sprintf (errorMessage,
errorBadConnect,
hostname,
SPC_SERVICE,
_cmdClientHost);
break;
case SPC_Bad_Service:
(void) sprintf (errorMessage,
errorBadService,
SPC_SERVICE,
_cmdClientHost);
break;
case SPC_Register_Handshake:
this_uid = getuid();
if((pwd_ret = _XGetpwuid(this_uid, pwd_buf)) ==
NULL)
username = NULL;
else
username = pwd_ret->pw_name;
(void) sprintf (errorMessage,
errorRegisterHandshake,
hostname,
username,
this_uid,
_cmdClientHost,
hostname);
break;
case SPC_Register_Username:
this_uid = getuid();
if((pwd_ret = _XGetpwuid(this_uid, pwd_buf)) ==
NULL)
username = NULL;
else
username = pwd_ret->pw_name;
(void) sprintf (errorMessage,
errorRegisterUsername,
hostname,
username);
break;
case SPC_Register_Netrc:
(void) sprintf (errorMessage,
errorRegisterNetrc,
hostname);
break;
case SPC_Env_Too_Big:
(void) sprintf (errorMessage,
errorEnvTooBig,
hostname,
SPC_BUFSIZ);
break;
case SPC_Connection_EOF:
#ifdef __hpux
(void) sprintf (errorMessage,
errorInetSecurity,
hostname,
_cmdClientHost,
SPC_SERVICE,
_cmdClientHost,
SPC_SERVICE,
INETD_SECURITY_FILE,
hostname);
#else /* __hpux */
(void) sprintf (errorMessage,
errorBadConnect,
hostname,
SPC_SERVICE,
_cmdClientHost);
#endif /* __hpux */
break;
default:
/*
* SPC_Register_Open:
*/
(void) sprintf (errorMessage,
errorRegisterOpen,
hostname);
}
}
/*
* Restore some env var paths.
*/
(void) _DtEnvRestoreLocal();
/*
* Restore the DT environment
*/
(void) _DtEnvControl (DT_ENV_RESTORE_POST_DT);
return chan;
}
pid_t
_DtTermPrimSubprocExec(Widget w,
char *ptyName,
Boolean consoleMode,
char *cwd,
char *cmd,
char **argv,
Boolean loginShell)
{
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
static char *defaultCmd = (char *) 0;
int i;
int pty;
pid_t pid;
char *c;
int err;
#ifdef MOVE_FDS
int saveFd[3];
#else /* MOVE_FDS */
int savedStderr;
#endif /* MOVE_FDS */
Boolean argvFree = False;
struct sigaction sa;
sigset_t ss;
char buffer[BUFSIZ];
Widget parent;
char *namebuf;
struct passwd * pw;
_Xgetpwparams pw_buf;
_Xgetloginparams login_buf;
#ifdef ALPHA_ARCHITECTURE
/* merge code from xterm, ignore so that TIOCSWINSZ doesn't block */
signal(SIGTTOU, SIG_IGN);
#endif /* ALPHA_ARCHITECTURE */
/* build a default exec command and argv list if one wasn't supplied...
*/
/* cmd... */
/* the command will be taken as follows:
* - from the passed in cmd,
* - from $SHELL,
* - from the /etc/passwd entry for the /etc/utmp entry for this
* terminal,
* - from the /etc/passwd entry for this userid, or
* - /bin/sh.
*/
if (!cmd || !*cmd) {
if (!defaultCmd) {
/* from $SHELL... */
c = getenv("SHELL");
/* if not valid, try the /etc/passwd entry for the username
* associated with the /etc/utmp entry for this tty...
*/
if (!c || !*c) {
/* get the /etc/passwd entry for the username associated with
* /etc/utmp...
*/
if ((namebuf = _XGetlogin(login_buf)) != NULL) {
/* get the user's passwd entry... */
pw = _XGetpwnam(namebuf, pw_buf);
/* if we weren't able to come up with one for the
* username...
*/
if (pw != NULL)
c = pw->pw_shell;
}
}
/* if not valid, try the /etc/passwd entry for the username
* associate with the real uid...
*/
if (!c || !*c) {
/* if we weren't able to come up with one for the userid... */
pw = _XGetpwuid(getuid(), pw_buf);
if (pw != NULL) {
c = pw->pw_shell;
}
}
/* if not valid, use /bin/sh... */
if (!c || !*c) {
c = DEFAULT_SHELL;
}
/* malloc space for this string. It will be free'ed in the
* destroy function...
*/
defaultCmd = XtMalloc(strlen(c) + 1);
(void) strcpy(defaultCmd, c);
}
cmd = defaultCmd;
}
if (!argv) {
/* base it on cmd... */
argv = (char **) XtMalloc(2 * sizeof(char *));
/* if loginShell is set, then pre-pend a '-' to argv[0]. That's
* also why we allocate an extra byte in argv[0]...
*/
argv[0] = XtMalloc(strlen(cmd) + 2);
*argv[0] = '\0';
if (loginShell) {
/* pre-pend an '-' for loginShell... */
(void) strcat(argv[0], "-");
if (c = strrchr(cmd, '/')) {
strcat(argv[0], ++c);
} else {
strcat(argv[0], cmd);
}
} else {
(void) strcat(argv[0], cmd);
}
/* null term the list... */
argv[1] = (char *) 0;
/* we will need to free it up later... */
argvFree = True;
}
#ifdef OLDCODE
/* this is left around from when we were using vfork().... */
/* open the pty slave so that we can set the modes.
*
* NOTE: this code depends on support for the O_NOCTTY ioctl. This
* ioctl allows us to open the device without becoming the
* session group leader for it. If that can't be done, it may
* be necessary to rethink the way we open the pty slave...
*/
if ((pty = open(ptyName, O_RDWR | O_NOCTTY, 0)) < 0) {
(void) perror(ptyName);
return((pid_t) -1);
}
#endif /* OLDCODE */
#ifdef MOVE_FDS
/* move fd[0:2] out of the way for now... */
for (i = 0; i <= 2; i++) {
saveFd[i] = fcntl(i, F_DUPFD, 3);
(void) close(i);
}
#else /* MOVE_FDS */
savedStderr = fcntl(2, F_DUPFD, 3);
#endif /* MOVE_FDS */
/* set close on exec flags on all files... */
for (i = 0; i < _NFILE; i++) {
(void) fcntl(i, F_SETFD, 1);
}
/* fork. We can't use vfork() since we need to do lots of stuff
* below...
*/
if (isDebugSet('T')) {
#ifdef BBA
#pragma BBA_IGNORE
#endif /*BBA*/
(void) timeStamp("about to fork()");
}
_DtTermProcessLock();
for (i = 0; ((pid = FakeFork()) < 0) && (i < 10); i++) {
/* if we are out of process slots, then let's sleep a bit and
* try again...
*/
if (errno != EAGAIN) {
break;
}
/* give it a chance to clear up... */
(void) sleep((unsigned long) 2);
}
if (pid < 0) {
(void) perror("fork()");
#ifdef OLDCODE
/* this is left around from when we were using vfork().... */
(void) close(pty);
#endif /* OLDCODE */
return((pid_t) - 1);
} else if (pid == 0) {
/* child...
*/
_DtTermProcessUnlock();
#if defined(ALPHA_ARCHITECTURE) || defined(CSRG_BASED) || defined(LINUX_ARCHITECTURE)
/* establish a new session for child */
setsid();
#else
/* do a setpgrp() so that we can... */
(void) setpgrp();
#endif /* ALPHA_ARCHITECTURE */
#if defined(LINUX_ARCHITECTURE)
/* set the ownership and mode of the pty... */
(void) _DtTermPrimSetupPty(ptyName, pty);
#endif
/* open the pty slave as our controlling terminal... */
pty = open(ptyName, O_RDWR, 0);
if (pty < 0) {
(void) perror(ptyName);
(void) _exit(1);
}
#if defined(ALPHA_ARCHITECTURE) || defined(CSRG_BASED) || defined(LINUX_ARCHITECTURE)
/* BSD needs to do this to acquire pty as controlling terminal */
if (ioctl(pty, TIOCSCTTY, (char *)NULL) < 0) {
(void) close(pty);
(void) perror("Error acquiring pty slave as controlling terminal");
/* exit the subprocess */
_exit(1);
}
/* Do it when no controlling terminal doesn't work for OSF/1 */
_DtTermPrimPtyGetDefaultModes();
#endif /* ALPHA_ARCHITECTURE */
#if !defined(LINUX_ARCHITECTURE)
/* set the ownership and mode of the pty... */
(void) _DtTermPrimSetupPty(ptyName, pty);
#endif /* LINUX_ARCHITECTURE */
/* apply the ttyModes... */
_DtTermPrimPtyInit(pty, tw->term.ttyModes, tw->term.csWidth);
/* set the window size... */
_DtTermPrimPtySetWindowSize(pty,
tw->term.columns * tw->term.widthInc +
(2 * (tw->primitive.shadow_thickness +
tw->primitive.highlight_thickness +
tw->term.marginWidth)),
tw->term.rows * tw->term.heightInc +
(2 * (tw->primitive.shadow_thickness +
tw->primitive.highlight_thickness +
tw->term.marginHeight)),
tw->term.rows, tw->term.columns);
/* if we are in console mode, turn it on... */
if (consoleMode) {
_DtTermPrimPtyConsoleModeEnable(pty);
}
#ifdef MOVE_FDS
/* that should have open'ed into fd 0. Dup it into fd's 1 and 2... */
(void) dup(pty);
(void) dup(pty);
#else /* MOVE_FDS */
/* dup pty into fd's 0, 1, and 2... */
for (i = 0; i < 3; i++) {
if (i != pty) {
(void) close(i);
(void) dup(pty);
}
}
if (pty >= 3) {
(void) close(pty);
}
#endif /* MOVE_FDS */
/* reset any alarms... */
(void) alarm(0);
/* reset all signal handlers... */
sa.sa_handler = SIG_DFL;
(void) sigemptyset(&sa.sa_mask);
sa.sa_flags = 0;
for (i = 1; i < NSIG; i++) {
(void) sigaction(i, &sa, (struct sigaction *) 0);
}
/* unblock all signals... */
(void) sigemptyset(&ss);
(void) sigprocmask(SIG_SETMASK, &ss, (sigset_t *) 0);
/*
** Restore the original (pre-DT) environment, removing any
** DT-specific environment variables that were added before
** we...
*/
#if defined(HPVUE)
#if (OSMINORVERSION > 01)
(void) VuEnvControl(VUE_ENV_RESTORE_PRE_VUE);
#endif /* (OSMINORVERSION > 01) */
#else /* (HPVUE) */
(void) _DtEnvControl(DT_ENV_RESTORE_PRE_DT);
#endif /* (HPVUE) */
/*
** set a few environment variables of our own...
*/
for (parent = w; !XtIsShell(parent); parent = XtParent(parent))
;
(void) sprintf(buffer, "%ld", XtWindow(parent));
_DtTermPrimPutEnv("WINDOWID=", buffer);
_DtTermPrimPutEnv("DISPLAY=", XDisplayString(XtDisplay(w)));
if (((DtTermPrimitiveWidget)w)->term.emulationId) {
_DtTermPrimPutEnv("TERMINAL_EMULATOR=",
((DtTermPrimitiveWidget)w)->term.emulationId);
}
/* set our utmp entry... */
(void) _DtTermPrimUtmpEntryCreate(w, getpid(),
((DtTermPrimitiveWidget)w)->term.tpd->utmpId);
if (isDebugSet('T')) {
#ifdef BBA
#pragma BBA_IGNORE
#endif /*BBA*/
(void) timeStamp("about to execvp()");
}
/* turn off suid forever...
*/
_DtTermPrimRemoveSuidRoot();
/* change to the requested directory... */
if (cwd && *cwd) {
(void) chdir(cwd);
}
#ifdef BBA
_bA_dump();
#endif /* BBA */
_DtEnvControl(DT_ENV_RESTORE_PRE_DT);
(void) execvp(cmd, argv);
/* if we got to this point we error'ed out. Let's write out the
* error...
*/
err = errno;
/* restore stderr... */
(void) close(2);
(void) dup(savedStderr);
/* restore errno... */
errno = err;
(void) perror(cmd);
/* and we need to exit the subprocess... */
_exit(1);
}
/* parent...
*/
_DtTermProcessUnlock();
if (isDebugSet('T')) {
#ifdef BBA
#pragma BBA_IGNORE
#endif /*BBA*/
(void) timeStamp("parent resuming");
}
#ifdef MOVE_FDS
/* DKS: we should check this out and see if it is necessary... */
(void) close(0);
(void) close(1);
(void) close(2);
/* move fd[0:2] back in place... */
for (i = 0; i <= 2; i++) {
if (saveFd[i] >= 0) {
(void) fcntl(saveFd[i], F_DUPFD, i);
(void) close(saveFd[i]);
}
}
#else /* MOVE_FDS */
(void) close(savedStderr);
#endif /* MOVE_FDS */
/* clean up malloc'ed memory... */
if (argvFree) {
(void) XtFree(argv[0]);
(void) XtFree((char *) argv);
}
#ifdef OLDCODE
/* since we no longer open it in the parent, we probably don't want
* to close it either...
*/
(void) close(pty);
#endif /* OLDCODE */
/* assume that our child set up a utmp entry (since we have no way
* for it to report to us) and add it to the list to cleanup)...
*/
_DtTermPrimUtmpAddEntry(((DtTermPrimitiveWidget)w)->term.tpd->utmpId);
return(pid);
}
