/*- * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. 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 BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * CV 2003-09-10: Cygwin specific changes applied. Code simplified just * for Cygwin alone. */ #include "winsup.h" #include #include #include #include #include #include #include "cygtls.h" extern "C" int daemon (int nochdir, int noclose) { int fd; switch (fork ()) { case -1: return -1; case 0: break; default: /* This sleep avoids a race condition which kills the child process if parent is started by a NT/W2K service. FIXME: Is that still true? */ Sleep (1000L); _exit (0); } if (setsid () == -1) return -1; if (!nochdir) chdir ("/"); if (!noclose && (fd = open (_PATH_DEVNULL, O_RDWR, 0)) >= 0) { dup2 (fd, STDIN_FILENO); dup2 (fd, STDOUT_FILENO); dup2 (fd, STDERR_FILENO); if (fd > 2) close (fd); } return 0; } extern "C" int login_tty (int fd) { char *fdname; int newfd; if (setsid () == -1) return -1; if ((fdname = ttyname (fd))) { if (fd != STDIN_FILENO) close (STDIN_FILENO); if (fd != STDOUT_FILENO) close (STDOUT_FILENO); if (fd != STDERR_FILENO) close (STDERR_FILENO); newfd = open (fdname, O_RDWR); close (newfd); } dup2 (fd, STDIN_FILENO); dup2 (fd, STDOUT_FILENO); dup2 (fd, STDERR_FILENO); if (fd > 2) close (fd); return 0; } extern "C" int openpty (int *amaster, int *aslave, char *name, struct termios *termp, struct winsize *winp) { int master, slave; char pts[TTY_NAME_MAX]; if ((master = open ("/dev/ptmx", O_RDWR | O_NOCTTY)) >= 0) { grantpt (master); unlockpt (master); strcpy (pts, ptsname (master)); revoke (pts); if ((slave = open (pts, O_RDWR | O_NOCTTY)) >= 0) { if (amaster) *amaster = master; if (aslave) *aslave = slave; if (name) strcpy (name, pts); if (termp) tcsetattr (slave, TCSAFLUSH, termp); if (winp) ioctl (slave, TIOCSWINSZ, (char *) winp); return 0; } close (master); } set_errno (ENOENT); return -1; } extern "C" int forkpty (int *amaster, char *name, struct termios *termp, struct winsize *winp) { int master, slave, pid; if (openpty (&master, &slave, name, termp, winp) == -1) return -1; switch (pid = fork ()) { case -1: return -1; case 0: close (master); login_tty (slave); return 0; } if (amaster) *amaster = master; close (slave); return pid; } extern "C" char *__progname; static void _vwarnx (const char *fmt, va_list ap) { fprintf (stderr, "%s: ", __progname); vfprintf (stderr, fmt, ap); } extern "C" void vwarn (const char *fmt, va_list ap) { _vwarnx (fmt, ap); fprintf (stderr, ": %s", strerror (get_errno ())); fputc ('\n', stderr); } extern "C" void vwarnx (const char *fmt, va_list ap) { _vwarnx (fmt, ap); fputc ('\n', stderr); } extern "C" void warn (const char *fmt, ...) { va_list ap; va_start (ap, fmt); vwarn (fmt, ap); } extern "C" void warnx (const char *fmt, ...) { va_list ap; va_start (ap, fmt); vwarnx (fmt, ap); } extern "C" void verr (int eval, const char *fmt, va_list ap) { vwarn (fmt, ap); exit (eval); } extern "C" void verrx (int eval, const char *fmt, va_list ap) { vwarnx (fmt, ap); exit (eval); } extern "C" void err (int eval, const char *fmt, ...) { va_list ap; va_start (ap, fmt); vwarn (fmt, ap); exit (eval); } extern "C" void errx (int eval, const char *fmt, ...) { va_list ap; va_start (ap, fmt); vwarnx (fmt, ap); exit (eval); } extern "C" const char * getprogname (void) { return __progname; } extern "C" void setprogname (const char *newprogname) { myfault efault; if (!efault.faulted (EFAULT)) { /* Per BSD man page, setprogname keeps a pointer to the last path component of the argument. It does *not* copy the argument before. */ __progname = strrchr (newprogname, '/'); if (__progname) ++__progname; else __progname = (char *)newprogname; } } extern "C" void logwtmp (const char *line, const char *user, const char *host) { struct utmp ut; memset (&ut, 0, sizeof ut); ut.ut_type = USER_PROCESS; ut.ut_pid = getpid (); if (line) strncpy (ut.ut_line, line, sizeof ut.ut_line); time (&ut.ut_time); if (user) strncpy (ut.ut_user, user, sizeof ut.ut_user); if (host) strncpy (ut.ut_host, host, sizeof ut.ut_host); updwtmp (_PATH_WTMP, &ut); } extern "C" void login (const struct utmp *ut) { pututline (ut); endutent (); updwtmp (_PATH_WTMP, ut); } extern "C" int logout (const char *line) { struct utmp ut_buf, *ut; memset (&ut_buf, 0, sizeof ut_buf); strncpy (ut_buf.ut_line, line, sizeof ut_buf.ut_line); setutent (); ut = getutline (&ut_buf); if (ut) { ut->ut_type = DEAD_PROCESS; memset (ut->ut_user, 0, sizeof ut->ut_user); memset (ut->ut_host, 0, sizeof ut->ut_host); time (&ut->ut_time); debug_printf ("set logout time for %s", line); pututline (ut); endutent (); return 1; } return 0; }