/** Add a signal to the event engine.
* @param[in] sig Signal to add to engine.
*/
static void
engine_signal(struct Signal* sig)
{
struct kevent sigevent;
struct sigaction act;
assert(0 != signal);
Debug((DEBUG_ENGINE, "kqueue: Adding filter for signal %d [%p]",
sig_signal(sig), sig));
sigevent.ident = sig_signal(sig); /* set up the kqueue event */
sigevent.filter = EVFILT_SIGNAL; /* looking for signals... */
sigevent.flags = EV_ADD | EV_ENABLE; /* add and enable it */
sigevent.fflags = 0;
sigevent.data = 0;
sigevent.udata = sig; /* store our user data */
if (kevent(kqueue_id, &sigevent, 1, 0, 0, 0) < 0) { /* add event */
log_write(LS_SYSTEM, L_WARNING, 0, "Unable to trap signal %d",
sig_signal(sig));
return;
}
act.sa_handler = SIG_IGN; /* ignore the signal */
act.sa_flags = 0;
sigemptyset(&act.sa_mask);
sigaction(sig_signal(sig), &act, 0);
}
static void
CloseConnection(int signo)
{
/* NOTE, these are manual, we've done a setsid() */
sig_signal(SIGINT, SIG_IGN);
log_Printf(LogPHASE, "Caught signal %d, abort connection(s)\n", signo);
bundle_Down(SignalBundle, CLOSE_STAYDOWN);
sig_signal(SIGINT, CloseConnection);
}
/** Signal callback for SIGTERM.
* @param[in] ev Signal event descriptor.
*/
static void sigterm_callback(struct Event* ev)
{
assert(0 != ev_signal(ev));
assert(ET_SIGNAL == ev_type(ev));
assert(SIGTERM == sig_signal(ev_signal(ev)));
assert(SIGTERM == ev_data(ev));
exit_schedule(0, 0, 0, "Received signal SIGTERM");
}
/** Signal callback for SIGINT.
* @param[in] ev Signal event descriptor.
*/
static void sigint_callback(struct Event* ev)
{
assert(0 != ev_signal(ev));
assert(ET_SIGNAL == ev_type(ev));
assert(SIGINT == sig_signal(ev_signal(ev)));
assert(SIGINT == ev_data(ev));
exit_schedule(1, 0, 0, "Received signal SIGINT");
}
static void sigint_callback(struct Event* ev)
{
assert(0 != ev_signal(ev));
assert(ET_SIGNAL == ev_type(ev));
assert(SIGINT == sig_signal(ev_signal(ev)));
assert(SIGINT == ev_data(ev));
server_restart("caught signal: SIGINT");
}
static void sigterm_callback(struct Event* ev)
{
assert(0 != ev_signal(ev));
assert(ET_SIGNAL == ev_type(ev));
assert(SIGTERM == sig_signal(ev_signal(ev)));
assert(SIGTERM == ev_data(ev));
server_die("received signal SIGTERM");
}
/** Signal callback for SIGHUP.
* @param[in] ev Signal event descriptor.
*/
static void sighup_callback(struct Event* ev)
{
assert(0 != ev_signal(ev));
assert(ET_SIGNAL == ev_type(ev));
assert(SIGHUP == sig_signal(ev_signal(ev)));
assert(SIGHUP == ev_data(ev));
++SignalCounter.hup;
rehash(&me, 1);
}
void
timer_TermService(void)
{
struct itimerval itimer;
itimer.it_interval.tv_usec = itimer.it_interval.tv_sec = 0;
itimer.it_value.tv_usec = itimer.it_value.tv_sec = 0;
if (setitimer(ITIMER_REAL, &itimer, NULL) == -1)
log_Printf(LogERROR, "Unable to set itimer (%s)\n", strerror(errno));
sig_signal(SIGALRM, SIG_IGN);
}
void
timer_InitService(int restart)
{
struct itimerval itimer;
if (TimerList) {
if (!restart)
sig_signal(SIGALRM, (void (*)(int))TimerService);
itimer.it_interval.tv_sec = 0;
itimer.it_interval.tv_usec = 0;
itimer.it_value.tv_sec = TimerList->rest / SECTICKS;
itimer.it_value.tv_usec = (TimerList->rest % SECTICKS) * TICKUNIT;
if (setitimer(ITIMER_REAL, &itimer, NULL) == -1)
log_Printf(LogERROR, "Unable to set itimer (%s)\n", strerror(errno));
}
}
int
main(int argc, char **argv)
{
char *name;
const char *lastlabel;
int arg, f, holdfd[3], label;
struct bundle *bundle;
struct prompt *prompt;
struct switches sw;
probe_Init();
/*
* We open 3 descriptors to ensure that STDIN_FILENO, STDOUT_FILENO and
* STDERR_FILENO are always open. These are closed before DoLoop(),
* but *after* we've avoided the possibility of erroneously closing
* an important descriptor with close(STD{IN,OUT,ERR}_FILENO).
*/
if ((holdfd[0] = open(_PATH_DEVNULL, O_RDWR)) == -1) {
fprintf(stderr, "Cannot open %s !\n", _PATH_DEVNULL);
return 2;
}
for (f = 1; f < sizeof holdfd / sizeof *holdfd; f++)
holdfd[f] = dup(holdfd[0]);
name = strrchr(argv[0], '/');
log_Open(name ? name + 1 : argv[0]);
#ifndef NONAT
PacketAliasInit();
#endif
label = ProcessArgs(argc, argv, &sw);
/*
* A FreeBSD & OpenBSD hack to dodge a bug in the tty driver that drops
* output occasionally.... I must find the real reason some time. To
* display the dodgy behaviour, comment out this bit, make yourself a large
* routing table and then run ppp in interactive mode. The `show route'
* command will drop chunks of data !!!
*/
if (sw.mode == PHYS_INTERACTIVE) {
close(STDIN_FILENO);
if (open(_PATH_TTY, O_RDONLY) != STDIN_FILENO) {
fprintf(stderr, "Cannot open %s for input !\n", _PATH_TTY);
return 2;
}
}
/* Allow output for the moment (except in direct mode) */
if (sw.mode == PHYS_DIRECT)
prompt = NULL;
else
SignalPrompt = prompt = prompt_Create(NULL, NULL, PROMPT_STD);
ID0init();
if (ID0realuid() != 0) {
char conf[200], *ptr;
snprintf(conf, sizeof conf, "%s/%s", PPP_CONFDIR, CONFFILE);
do {
struct stat sb;
if (stat(conf, &sb) == 0 && sb.st_mode & S_IWOTH) {
log_Printf(LogALERT, "ppp: Access violation: Please protect %s\n",
conf);
return -1;
}
ptr = conf + strlen(conf)-2;
while (ptr > conf && *ptr != '/')
*ptr-- = '\0';
} while (ptr >= conf);
}
if (label < argc)
for (arg = label; arg < argc; arg++)
CheckLabel(argv[arg], prompt, sw.mode);
else
CheckLabel("default", prompt, sw.mode);
if (!sw.quiet)
prompt_Printf(prompt, "Working in %s mode\n", mode2Nam(sw.mode));
if ((bundle = bundle_Create(TUN_PREFIX, sw.mode, sw.unit)) == NULL)
return EX_START;
/* NOTE: We may now have changed argv[1] via a ``set proctitle'' */
if (prompt) {
prompt->bundle = bundle; /* couldn't do it earlier */
if (!sw.quiet)
prompt_Printf(prompt, "Using interface: %s\n", bundle->iface->name);
}
SignalBundle = bundle;
bundle->NatEnabled = sw.nat;
if (sw.nat)
opt_enable(bundle, OPT_IFACEALIAS);
if (system_Select(bundle, "default", CONFFILE, prompt, NULL) < 0)
prompt_Printf(prompt, "Warning: No default entry found in config file.\n");
sig_signal(SIGHUP, CloseSession);
sig_signal(SIGTERM, CloseSession);
sig_signal(SIGINT, CloseConnection);
sig_signal(SIGQUIT, CloseSession);
sig_signal(SIGALRM, SIG_IGN);
signal(SIGPIPE, SIG_IGN);
if (sw.mode == PHYS_INTERACTIVE)
sig_signal(SIGTSTP, TerminalStop);
sig_signal(SIGUSR1, RestartServer);
sig_signal(SIGUSR2, BringDownServer);
lastlabel = argv[argc - 1];
for (arg = label; arg < argc; arg++) {
/* In case we use LABEL or ``set enddisc label'' */
bundle_SetLabel(bundle, lastlabel);
system_Select(bundle, argv[arg], CONFFILE, prompt, NULL);
}
if (label < argc)
/* In case the last label did a ``load'' */
bundle_SetLabel(bundle, lastlabel);
if (sw.mode == PHYS_AUTO &&
ncprange_family(&bundle->ncp.ipcp.cfg.peer_range) == AF_UNSPEC) {
prompt_Printf(prompt, "You must ``set ifaddr'' with a peer address "
"in auto mode.\n");
AbortProgram(EX_START);
}
if (sw.mode != PHYS_INTERACTIVE) {
if (sw.mode != PHYS_DIRECT) {
if (!sw.fg) {
int bgpipe[2];
pid_t bgpid;
if (sw.mode == PHYS_BACKGROUND && pipe(bgpipe)) {
log_Printf(LogERROR, "pipe: %s\n", strerror(errno));
AbortProgram(EX_SOCK);
}
bgpid = fork();
if (bgpid == -1) {
log_Printf(LogERROR, "fork: %s\n", strerror(errno));
AbortProgram(EX_SOCK);
}
if (bgpid) {
char c = EX_NORMAL;
int ret;
if (sw.mode == PHYS_BACKGROUND) {
close(bgpipe[1]);
BGPid = bgpid;
/* If we get a signal, kill the child */
signal(SIGHUP, KillChild);
signal(SIGTERM, KillChild);
signal(SIGINT, KillChild);
signal(SIGQUIT, KillChild);
/* Wait for our child to close its pipe before we exit */
while ((ret = read(bgpipe[0], &c, 1)) == 1) {
switch (c) {
case EX_NORMAL:
if (!sw.quiet) {
prompt_Printf(prompt, "PPP enabled\n");
log_Printf(LogPHASE, "Parent: PPP enabled\n");
}
break;
case EX_REDIAL:
if (!sw.quiet)
prompt_Printf(prompt, "Attempting redial\n");
continue;
case EX_RECONNECT:
if (!sw.quiet)
prompt_Printf(prompt, "Attempting reconnect\n");
continue;
default:
prompt_Printf(prompt, "Child failed (%s)\n",
ex_desc((int)c));
log_Printf(LogPHASE, "Parent: Child failed (%s)\n",
ex_desc((int) c));
}
break;
}
if (ret != 1) {
prompt_Printf(prompt, "Child exit, no status.\n");
log_Printf(LogPHASE, "Parent: Child exit, no status.\n");
}
close(bgpipe[0]);
}
return c;
} else if (sw.mode == PHYS_BACKGROUND) {
close(bgpipe[0]);
bundle->notify.fd = bgpipe[1];
}
bundle_ChangedPID(bundle);
bundle_LockTun(bundle); /* we have a new pid */
}
/* -auto, -dedicated, -ddial, -foreground & -background */
prompt_Destroy(prompt, 0);
close(STDOUT_FILENO);
close(STDERR_FILENO);
close(STDIN_FILENO);
if (!sw.fg)
setsid();
} else {
/* -direct - STDIN_FILENO gets used by physical_Open */
prompt_TtyInit(NULL);
close(STDOUT_FILENO);
close(STDERR_FILENO);
}
} else {
/* -interactive */
close(STDERR_FILENO);
prompt_TtyInit(prompt);
prompt_TtyCommandMode(prompt);
prompt_Required(prompt);
}
/* We can get rid of these now */
for (f = 0; f < sizeof holdfd / sizeof *holdfd; f++)
close(holdfd[f]);
log_Printf(LogPHASE, "PPP Started (%s mode).\n", mode2Nam(sw.mode));
DoLoop(bundle);
AbortProgram(EX_NORMAL);
return EX_NORMAL;
}
/*
* Read all relevant header fields.
* Returns 0 on success; 1 if there was an error or signal.
*/
PUBLIC int
grabh(struct header *hp, int gflags)
{
sig_t volatile old_sigint;
int retval;
#ifndef USE_EDITLINE
struct termios ttybuf;
# if defined(TIOCSTI) && defined(TIOCEXT)
int extproc;
# endif
if (save_erase_and_kill(&ttybuf))
return -1;
# if defined(TIOCSTI) && defined(TIOCEXT)
extproc = ((ttybuf.c_lflag & EXTPROC) ? 1 : 0);
if (extproc) {
int flag;
flag = 0;
if (ioctl(fileno(stdin), TIOCEXT, &flag) == -1)
warn("TIOCEXT: off");
}
# endif
#endif /* USE_EDITLINE */
sig_check();
old_sigint = sig_signal(SIGINT, tty_sigint);
/* return here if we detect a SIGINT */
if ((retval = setjmp(tty_jmpbuf)) != 0) {
(void)putc('\n', stdout);
goto out;
}
/*
* Do this irrespective of whether the initial string is empty.
* Otherwise, the editing is inconsistent.
*/
disable_erase_and_kill(&ttybuf);
if (gflags & GTO) {
hp->h_to =
extract(readtty("To: ", detract(hp->h_to, 0)), GTO);
}
if (gflags & GSUBJECT) {
hp->h_subject = readtty("Subject: ", hp->h_subject);
}
if (gflags & GCC) {
hp->h_cc =
extract(readtty("Cc: ", detract(hp->h_cc, 0)), GCC);
}
if (gflags & GBCC) {
hp->h_bcc =
extract(readtty("Bcc: ", detract(hp->h_bcc, 0)), GBCC);
}
if (gflags & GSMOPTS) {
hp->h_smopts =
shextract(readtty("Smopts: ", detract(hp->h_smopts, 0)),
GSMOPTS);
}
#ifdef MIME_SUPPORT
if (gflags & GSMOPTS) { /* XXX - Use a new flag for this? */
if (hp->h_attach) {
struct attachment *ap;
int i;
i = 0;
for (ap = hp->h_attach; ap; ap = ap->a_flink)
i++;
(void)printf("Attachment%s: %d\n", i > 1 ? "s" : "", i);
}
}
#endif
out:
restore_erase_and_kill(&ttybuf);
#ifndef USE_EDITLINE
# if defined(TIOCSTI) && defined(TIOCEXT)
if (extproc) {
int flag;
flag = 1;
if (ioctl(fileno(stdin), TIOCEXT, &flag) == -1)
warn("TIOCEXT: on");
}
# endif
#endif
(void)sig_signal(SIGINT, old_sigint);
sig_check();
return retval;
}
