/*
* Steven Schultz - sms@moe.2bsd.com
*
* @(#)ctimed.c 1.0 (2.11BSD) 1996/6/25
*
* ctimed - the daemon that supports the ctime() and getpw*() stubs
* in 'libcstubs.a'.
*/
#include <signal.h>
#include <stdio.h>
#include <setjmp.h>
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/time.h>
#include <pwd.h>
#include <utmp.h>
/*
* These should probably be placed in an include file. If you add anything
* here then you will also have to modify /usr/src/usr.lib/libstubs/stubs.c
* (if for no other reason than to add the stub code).
*/
#define CTIME 1
#define ASCTIME 2
#define TZSET 3
#define LOCALTIME 4
#define GMTIME 5
#define OFFTIME 6
#define GETPWENT 7
#define GETPWNAM 8
#define GETPWUID 9
#define SETPASSENT 10
#define ENDPWENT 11
extern struct tm *offtime();
jmp_buf env;
char *cp;
char junk[256 + sizeof (struct passwd) + 4];
long off;
time_t l;
void timeout(), checkppid();
struct tm tmtmp, *tp;
main()
{
register int i;
register struct passwd *pw;
struct itimerval it;
u_char c, xxx;
int len, tosslen;
uid_t uid;
signal(SIGPIPE, SIG_DFL);
for (i = getdtablesize(); --i > 2; )
close(i);
/*
* Need a timer running while we disassociate from the control terminal
* in case of a modem line which has lost carrier.
*/
timerclear(&it.it_interval);
it.it_value.tv_sec = 5;
it.it_value.tv_usec = 0;
signal(SIGALRM, timeout);
setitimer(ITIMER_REAL, &it, (struct itimerval *) NULL);
if (setjmp(env) == 0)
{
i = open("/dev/tty", 0);
if (i >= 0)
{
ioctl(i, TIOCNOTTY, NULL);
close(i);
}
}
/*
* Now start a timer with one minute refresh. In the signal service
* routine, check the parent process id to see if this process has
* been orphaned and if so exit. This is primarily aimed at removing
* the 'ctimed' process left behind by 'sendmail's multi-fork startup
* but may prove useful in preventing accumulation of 'ctimed' processes
* in other circumstances as well. Normally this process is short
* lived.
*/
it.it_interval.tv_sec = 60;
it.it_interval.tv_usec = 0;
it.it_value.tv_sec = 60;
it.it_value.tv_usec = 0;
signal(SIGALRM, checkppid);
setitimer(ITIMER_REAL, &it, (struct itimerval *) NULL);
while (read(fileno(stdin), &c, 1) == 1)
{
switch (c)
{
case CTIME:
l = 0L;
getb(fileno(stdin), &l, sizeof l);
cp = ctime(&l);
write(fileno(stdout), cp, 26);
break;
case ASCTIME:
getb(fileno(stdin), &tmtmp, sizeof tmtmp);
cp = asctime(&tmtmp);
write(fileno(stdout), cp, 26);
break;
case TZSET:
(void) tzset();
break;
case LOCALTIME:
l = 0L;
getb(fileno(stdin), &l, sizeof l);
tp = localtime(&l);
write(fileno(stdout), tp, sizeof (*tp));
strcpy(junk, tp->tm_zone);
junk[24] = '\0';
write(fileno(stdout), junk, 24);
break;
case GMTIME:
l = 0L;
getb(fileno(stdin), &l, sizeof l);
tp = gmtime(&l);
write(fileno(stdout), tp, sizeof (*tp));
strcpy(junk, tp->tm_zone);
junk[24] = '\0';
write(fileno(stdout), junk, 24);
break;
case OFFTIME:
getb(fileno(stdin), &l, sizeof l);
getb(fileno(stdin), &off, sizeof off);
#ifdef __bsdi__
l += off;
tp = localtime(&l);
#else
tp = offtime(&l, off);
#endif
write(fileno(stdout), tp, sizeof (*tp));
break;
case GETPWENT:
pw = getpwent();
do_pw(pw);
break;
case GETPWNAM:
getb(fileno(stdin), &len, sizeof (int));
if (len > UT_NAMESIZE)
{
tosslen = len - UT_NAMESIZE;
len = UT_NAMESIZE;
}
else
tosslen = 0;
getb(fileno(stdin), junk, len);
for (;tosslen; tosslen--)
getb(fileno(stdin), &xxx, 1);
junk[len] = '\0';
pw = getpwnam(junk);
do_pw(pw);
break;
case GETPWUID:
getb(fileno(stdin), &uid, sizeof (uid_t));
pw = getpwuid(uid);
do_pw(pw);
break;
case SETPASSENT:
getb(fileno(stdin), &len, sizeof (int));
if (setpassent(len))
len = 1;
else
len = 0;
write(fileno(stdout), &len, sizeof (int));
break;
case ENDPWENT:
endpwent();
break;
default:
abort("switch");
}
}
}
getb(f, p, n)
int f;
register char *p;
register int n;
{
register int i;
while (n)
{
i = read(f, p, n);
if (i <= 0)
return;
p += i;
n -= i;
}
}
void
timeout()
{
longjmp(env, 1);
}
void
checkppid()
{
if (getppid() == 1)
exit(0);
}
do_pw(pw)
struct passwd *pw;
{
int len;
if (!pw)
{
len = 0;
write(fileno(stdout), &len, sizeof (int));
return;
}
len = packpwtobuf(pw, junk);
write(fileno(stdout), &len, sizeof (int));
write(fileno(stdout), pw, sizeof (*pw));
write(fileno(stdout), junk, len);
return;
}
packpwtobuf(pw, buf)
register struct passwd *pw;
char *buf;
{
register char *cp = buf;
register char *dp;
dp = pw->pw_name;
pw->pw_name = (char*) 0;
while (*cp++ = *dp++)
;
dp = pw->pw_passwd;
pw->pw_passwd = (char*) (cp - buf);
while (*cp++ = *dp++)
;
dp = pw->pw_class;
pw->pw_class = (char*) (cp - buf);
while (*cp++ = *dp++)
;
dp = pw->pw_gecos;
pw->pw_gecos = (char*) (cp - buf);
while (*cp++ = *dp++)
;
dp = pw->pw_dir;
pw->pw_dir = (char*) (cp - buf);
while (*cp++ = *dp++)
;
dp = pw->pw_shell;
pw->pw_shell = (char*) (cp - buf);
while (*cp++ = *dp++)
;
return(cp - buf);
}