2007-10-08 16:37:39 +05:30
|
|
|
/*
|
|
|
|
librc-misc.c
|
|
|
|
rc misc functions
|
|
|
|
*/
|
|
|
|
|
2008-01-14 10:35:22 +05:30
|
|
|
/*
|
2008-03-26 23:23:37 +05:30
|
|
|
* Copyright 2007-2008 Roy Marples <roy@marples.name>
|
2007-11-14 20:52:04 +05:30
|
|
|
* 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.
|
|
|
|
*
|
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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.
|
|
|
|
*/
|
|
|
|
|
2007-10-09 18:22:09 +05:30
|
|
|
#include <sys/types.h>
|
2008-03-16 22:30:56 +05:30
|
|
|
#include <sys/utsname.h>
|
2007-10-09 18:22:09 +05:30
|
|
|
|
2007-10-08 16:37:39 +05:30
|
|
|
#ifdef __linux__
|
|
|
|
#include <sys/sysinfo.h>
|
2007-10-09 18:22:09 +05:30
|
|
|
#include <regex.h>
|
2007-10-08 16:37:39 +05:30
|
|
|
#endif
|
|
|
|
|
2007-11-23 17:34:11 +05:30
|
|
|
#include <ctype.h>
|
2007-10-08 16:37:39 +05:30
|
|
|
#include <limits.h>
|
2008-02-01 18:50:19 +05:30
|
|
|
#include <signal.h>
|
2007-10-08 16:37:39 +05:30
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
2008-03-28 14:12:05 +05:30
|
|
|
#include <unistd.h>
|
2007-10-08 16:37:39 +05:30
|
|
|
|
2008-02-01 18:50:19 +05:30
|
|
|
#include "einfo.h"
|
2007-10-08 16:37:39 +05:30
|
|
|
#include "rc.h"
|
2008-01-06 19:17:39 +05:30
|
|
|
#include "rc-misc.h"
|
2007-10-08 16:37:39 +05:30
|
|
|
|
2008-03-28 16:16:12 +05:30
|
|
|
#define PROFILE_ENV RC_SYSCONFDIR "/profile.env"
|
2007-10-08 16:37:39 +05:30
|
|
|
#define SYS_WHITELIST RC_LIBDIR "/conf.d/env_whitelist"
|
2008-03-28 16:16:12 +05:30
|
|
|
#define USR_WHITELIST RC_SYSCONFDIR "/conf.d/env_whitelist"
|
|
|
|
#define RC_CONF RC_SYSCONFDIR "/rc.conf"
|
|
|
|
#define RC_CONF_OLD RC_SYSCONFDIR "/conf.d/rc"
|
2007-10-08 16:37:39 +05:30
|
|
|
|
|
|
|
#define PATH_PREFIX RC_LIBDIR "/bin:/bin:/sbin:/usr/bin:/usr/sbin"
|
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
static RC_STRINGLIST *rc_conf = NULL;
|
|
|
|
|
|
|
|
extern char** environ;
|
2007-11-23 17:34:11 +05:30
|
|
|
|
2008-10-06 20:32:32 +05:30
|
|
|
#ifdef DEBUG_MEMORY
|
2008-10-10 14:07:21 +05:30
|
|
|
static void
|
|
|
|
_free_rc_conf(void)
|
2007-11-23 17:34:11 +05:30
|
|
|
{
|
2008-03-16 22:30:56 +05:30
|
|
|
rc_stringlist_free(rc_conf);
|
2007-11-23 17:34:11 +05:30
|
|
|
}
|
2008-10-06 20:32:32 +05:30
|
|
|
#endif
|
2007-11-23 17:34:11 +05:30
|
|
|
|
2008-10-10 14:07:21 +05:30
|
|
|
char *
|
|
|
|
rc_conf_value(const char *setting)
|
2007-11-23 17:34:11 +05:30
|
|
|
{
|
2008-03-16 22:30:56 +05:30
|
|
|
RC_STRINGLIST *old;
|
|
|
|
RC_STRING *s;
|
|
|
|
char *p;
|
2007-11-23 17:34:11 +05:30
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
if (! rc_conf) {
|
|
|
|
rc_conf = rc_config_load(RC_CONF);
|
2008-10-06 20:32:32 +05:30
|
|
|
#ifdef DEBUG_MEMORY
|
2008-03-16 22:30:56 +05:30
|
|
|
atexit(_free_rc_conf);
|
2008-10-06 20:32:32 +05:30
|
|
|
#endif
|
2007-11-23 17:34:11 +05:30
|
|
|
|
|
|
|
/* Support old configs */
|
2008-03-16 22:30:56 +05:30
|
|
|
if (exists(RC_CONF_OLD)) {
|
|
|
|
old = rc_config_load(RC_CONF_OLD);
|
2008-10-10 14:07:21 +05:30
|
|
|
TAILQ_CONCAT(rc_conf, old, entries);
|
|
|
|
#ifdef DEBUG_MEMORY
|
|
|
|
free(old);
|
|
|
|
#endif
|
2007-11-23 17:34:11 +05:30
|
|
|
}
|
|
|
|
|
|
|
|
/* Convert old uppercase to lowercase */
|
2008-10-10 14:07:21 +05:30
|
|
|
TAILQ_FOREACH(s, rc_conf, entries) {
|
|
|
|
p = s->value;
|
|
|
|
while (p && *p && *p != '=') {
|
|
|
|
if (isupper((unsigned char)*p))
|
|
|
|
*p = tolower((unsigned char)*p);
|
|
|
|
p++;
|
2007-11-23 17:34:11 +05:30
|
|
|
}
|
2008-10-10 14:07:21 +05:30
|
|
|
}
|
2007-11-23 17:34:11 +05:30
|
|
|
}
|
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
return rc_config_value(rc_conf, setting);
|
2007-12-06 16:18:00 +05:30
|
|
|
}
|
|
|
|
|
2008-10-10 14:07:21 +05:30
|
|
|
bool
|
|
|
|
rc_conf_yesno(const char *setting)
|
2007-12-06 16:18:00 +05:30
|
|
|
{
|
2008-03-16 22:30:56 +05:30
|
|
|
return rc_yesno(rc_conf_value (setting));
|
2007-11-23 17:34:11 +05:30
|
|
|
}
|
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
static const char *const env_whitelist[] = {
|
2009-01-13 16:32:00 +05:30
|
|
|
"CONSOLE", "PATH", "SHELL", "USER", "HOME", "TERM",
|
2008-03-16 22:30:56 +05:30
|
|
|
"LANG", "LC_CTYPE", "LC_NUMERIC", "LC_TIME", "LC_COLLATE",
|
|
|
|
"LC_MONETARY", "LC_MESSAGES", "LC_PAPER", "LC_NAME", "LC_ADDRESS",
|
|
|
|
"LC_TELEPHONE", "LC_MEASUREMENT", "LC_IDENTIFICATION", "LC_ALL",
|
|
|
|
"IN_HOTPLUG", "IN_BACKGROUND", "RC_INTERFACE_KEEP_CONFIG",
|
|
|
|
NULL
|
|
|
|
};
|
|
|
|
|
2008-10-10 14:07:21 +05:30
|
|
|
void
|
|
|
|
env_filter(void)
|
2007-10-08 16:37:39 +05:30
|
|
|
{
|
2008-03-16 22:30:56 +05:30
|
|
|
RC_STRINGLIST *env_allow;
|
2008-10-10 14:07:21 +05:30
|
|
|
RC_STRINGLIST *profile;
|
2008-03-16 22:30:56 +05:30
|
|
|
RC_STRINGLIST *env_list;
|
|
|
|
RC_STRING *env;
|
2007-10-08 16:37:39 +05:30
|
|
|
char *e;
|
2008-03-16 22:30:56 +05:30
|
|
|
size_t i = 0;
|
2008-01-06 02:13:08 +05:30
|
|
|
|
|
|
|
/* Add the user defined list of vars */
|
2008-10-03 23:20:10 +05:30
|
|
|
env_allow = rc_stringlist_split(rc_conf_value("rc_env_allow"), " ");
|
2008-10-10 14:07:21 +05:30
|
|
|
profile = rc_config_load(PROFILE_ENV);
|
2007-10-08 16:37:39 +05:30
|
|
|
|
2008-09-19 01:16:10 +05:30
|
|
|
/* Copy the env and work from this so we can manipulate it safely */
|
2008-03-16 22:30:56 +05:30
|
|
|
env_list = rc_stringlist_new();
|
2008-10-03 23:20:10 +05:30
|
|
|
while (environ && environ[i]) {
|
2008-09-19 01:16:10 +05:30
|
|
|
env = rc_stringlist_add(env_list, environ[i++]);
|
|
|
|
e = strchr(env->value, '=');
|
|
|
|
if (e)
|
|
|
|
*e = '\0';
|
|
|
|
}
|
2007-10-08 16:37:39 +05:30
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
TAILQ_FOREACH(env, env_list, entries) {
|
|
|
|
/* Check the whitelist */
|
2008-09-19 01:16:10 +05:30
|
|
|
for (i = 0; env_whitelist[i]; i++) {
|
|
|
|
if (strcmp(env_whitelist[i], env->value) == 0)
|
2008-03-16 22:30:56 +05:30
|
|
|
break;
|
2007-10-08 16:37:39 +05:30
|
|
|
}
|
2008-03-16 22:30:56 +05:30
|
|
|
if (env_whitelist[i])
|
|
|
|
continue;
|
2007-10-08 16:37:39 +05:30
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
/* Check our user defined list */
|
2008-09-18 20:58:20 +05:30
|
|
|
if (rc_stringlist_find(env_allow, env->value))
|
2007-10-08 16:37:39 +05:30
|
|
|
continue;
|
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
/* OK, not allowed! */
|
2008-09-19 01:16:10 +05:30
|
|
|
unsetenv(env->value);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Now add anything missing from the profile */
|
2008-10-10 14:07:21 +05:30
|
|
|
TAILQ_FOREACH(env, profile, entries) {
|
|
|
|
e = strchr(env->value, '=');
|
|
|
|
*e = '\0';
|
|
|
|
if (!getenv(env->value))
|
|
|
|
setenv(env->value, e + 1, 1);
|
2007-10-08 16:37:39 +05:30
|
|
|
}
|
2008-10-10 14:07:21 +05:30
|
|
|
|
|
|
|
#ifdef DEBUG_MEMORY
|
2008-03-16 22:30:56 +05:30
|
|
|
rc_stringlist_free(env_list);
|
|
|
|
rc_stringlist_free(env_allow);
|
|
|
|
rc_stringlist_free(profile);
|
2008-10-10 14:07:21 +05:30
|
|
|
#endif
|
2007-10-08 16:37:39 +05:30
|
|
|
}
|
|
|
|
|
2008-10-10 14:07:21 +05:30
|
|
|
void
|
|
|
|
env_config(void)
|
2007-10-08 16:37:39 +05:30
|
|
|
{
|
2008-03-16 22:30:56 +05:30
|
|
|
size_t pplen = strlen(PATH_PREFIX);
|
|
|
|
char *path;
|
|
|
|
char *p;
|
|
|
|
char *e;
|
2008-01-22 16:37:39 +05:30
|
|
|
size_t l;
|
2007-10-08 16:37:39 +05:30
|
|
|
struct utsname uts;
|
|
|
|
FILE *fp;
|
2008-03-16 22:30:56 +05:30
|
|
|
char *token;
|
|
|
|
char *np;
|
|
|
|
char *npp;
|
|
|
|
char *tok;
|
|
|
|
const char *sys = rc_sys();
|
2007-10-08 16:37:39 +05:30
|
|
|
char buffer[PATH_MAX];
|
2008-03-16 22:30:56 +05:30
|
|
|
|
|
|
|
/* Ensure our PATH is prefixed with the system locations first
|
|
|
|
for a little extra security */
|
|
|
|
path = getenv("PATH");
|
|
|
|
if (! path)
|
|
|
|
setenv("PATH", PATH_PREFIX, 1);
|
|
|
|
else if (strncmp (PATH_PREFIX, path, pplen) != 0) {
|
|
|
|
l = strlen(path) + pplen + 3;
|
|
|
|
e = p = xmalloc(sizeof(char) * l);
|
|
|
|
p += snprintf(p, l, "%s", PATH_PREFIX);
|
|
|
|
|
2008-10-10 14:07:21 +05:30
|
|
|
/* Now go through the env var and only add bits not in our
|
|
|
|
* PREFIX */
|
2008-03-16 22:30:56 +05:30
|
|
|
while ((token = strsep(&path, ":"))) {
|
|
|
|
np = npp = xstrdup(PATH_PREFIX);
|
|
|
|
while ((tok = strsep(&npp, ":")))
|
|
|
|
if (strcmp(tok, token) == 0)
|
|
|
|
break;
|
|
|
|
if (! tok)
|
|
|
|
p += snprintf(p, l - (p - e), ":%s", token);
|
|
|
|
free (np);
|
|
|
|
}
|
|
|
|
*p++ = '\0';
|
|
|
|
unsetenv("PATH");
|
|
|
|
setenv("PATH", e, 1);
|
|
|
|
free(e);
|
|
|
|
}
|
|
|
|
|
|
|
|
setenv("RC_LIBDIR", RC_LIBDIR, 1);
|
|
|
|
setenv("RC_SVCDIR", RC_SVCDIR, 1);
|
2008-04-21 15:59:29 +05:30
|
|
|
setenv("RC_TMPDIR", RC_SVCDIR "/tmp", 1);
|
2008-03-16 22:30:56 +05:30
|
|
|
setenv("RC_BOOTLEVEL", RC_LEVEL_BOOT, 1);
|
|
|
|
e = rc_runlevel_get();
|
|
|
|
setenv("RC_RUNLEVEL", e, 1);
|
|
|
|
free(e);
|
|
|
|
|
2008-03-19 22:41:50 +05:30
|
|
|
if ((fp = fopen(RC_KRUNLEVEL, "r"))) {
|
2008-03-16 22:30:56 +05:30
|
|
|
memset(buffer, 0, sizeof (buffer));
|
|
|
|
if (fgets(buffer, sizeof (buffer), fp)) {
|
2008-01-22 16:37:39 +05:30
|
|
|
l = strlen (buffer) - 1;
|
|
|
|
if (buffer[l] == '\n')
|
|
|
|
buffer[l] = 0;
|
2008-03-16 22:30:56 +05:30
|
|
|
setenv("RC_DEFAULTLEVEL", buffer, 1);
|
2007-10-08 16:37:39 +05:30
|
|
|
}
|
2008-03-16 22:30:56 +05:30
|
|
|
fclose(fp);
|
2007-10-08 16:37:39 +05:30
|
|
|
} else
|
2008-03-16 22:30:56 +05:30
|
|
|
setenv("RC_DEFAULTLEVEL", RC_LEVEL_DEFAULT, 1);
|
|
|
|
|
|
|
|
if (sys)
|
|
|
|
setenv("RC_SYS", sys, 1);
|
2007-10-08 16:37:39 +05:30
|
|
|
|
|
|
|
/* Some scripts may need to take a different code path if Linux/FreeBSD, etc
|
|
|
|
To save on calling uname, we store it in an environment variable */
|
2008-03-16 22:30:56 +05:30
|
|
|
if (uname(&uts) == 0)
|
|
|
|
setenv("RC_UNAME", uts.sysname, 1);
|
2007-10-08 16:37:39 +05:30
|
|
|
|
2007-12-06 16:18:00 +05:30
|
|
|
/* Be quiet or verbose as necessary */
|
2008-03-16 22:30:56 +05:30
|
|
|
if (rc_conf_yesno("rc_quiet"))
|
|
|
|
setenv("EINFO_QUIET", "YES", 1);
|
|
|
|
if (rc_conf_yesno("rc_verbose"))
|
|
|
|
setenv("EINFO_VERBOSE", "YES", 1);
|
2007-12-06 16:18:00 +05:30
|
|
|
|
|
|
|
errno = 0;
|
2008-03-16 22:30:56 +05:30
|
|
|
if ((! rc_conf_yesno("rc_color") && errno == 0) ||
|
|
|
|
rc_conf_yesno("rc_nocolor"))
|
|
|
|
setenv("EINFO_COLOR", "NO", 1);
|
2007-10-08 16:37:39 +05:30
|
|
|
}
|
2008-01-13 23:17:23 +05:30
|
|
|
|
2008-10-10 14:07:21 +05:30
|
|
|
int
|
|
|
|
signal_setup(int sig, void (*handler)(int))
|
2008-02-01 18:50:19 +05:30
|
|
|
{
|
|
|
|
struct sigaction sa;
|
|
|
|
|
2008-03-16 22:30:56 +05:30
|
|
|
memset(&sa, 0, sizeof (sa));
|
|
|
|
sigemptyset(&sa.sa_mask);
|
2008-02-02 05:47:35 +05:30
|
|
|
sa.sa_handler = handler;
|
2008-03-16 22:30:56 +05:30
|
|
|
return sigaction(sig, &sa, NULL);
|
2008-02-01 18:50:19 +05:30
|
|
|
}
|
2008-03-28 14:12:05 +05:30
|
|
|
|
2008-10-10 14:07:21 +05:30
|
|
|
pid_t
|
|
|
|
exec_service(const char *service, const char *arg)
|
2008-03-28 14:12:05 +05:30
|
|
|
{
|
|
|
|
char *file;
|
|
|
|
char fifo[PATH_MAX];
|
|
|
|
pid_t pid = -1;
|
|
|
|
sigset_t full;
|
|
|
|
sigset_t old;
|
|
|
|
struct sigaction sa;
|
|
|
|
|
|
|
|
file = rc_service_resolve(service);
|
2008-10-10 14:07:21 +05:30
|
|
|
if (!exists(file)) {
|
2008-03-28 14:12:05 +05:30
|
|
|
rc_service_mark(service, RC_SERVICE_STOPPED);
|
|
|
|
free(file);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* We create a fifo so that other services can wait until we complete */
|
|
|
|
snprintf(fifo, sizeof(fifo), RC_SVCDIR "/exclusive/%s",
|
|
|
|
basename_c(service));
|
|
|
|
if (mkfifo(fifo, 0600) != 0 && errno != EEXIST) {
|
|
|
|
free(file);
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* We need to block signals until we have forked */
|
|
|
|
memset(&sa, 0, sizeof (sa));
|
|
|
|
sa.sa_handler = SIG_DFL;
|
|
|
|
sigemptyset(&sa.sa_mask);
|
|
|
|
sigfillset(&full);
|
|
|
|
sigprocmask(SIG_SETMASK, &full, &old);
|
|
|
|
|
|
|
|
if ((pid = fork()) == 0) {
|
|
|
|
/* Restore default handlers */
|
|
|
|
sigaction(SIGCHLD, &sa, NULL);
|
|
|
|
sigaction(SIGHUP, &sa, NULL);
|
|
|
|
sigaction(SIGINT, &sa, NULL);
|
|
|
|
sigaction(SIGQUIT, &sa, NULL);
|
|
|
|
sigaction(SIGTERM, &sa, NULL);
|
|
|
|
sigaction(SIGUSR1, &sa, NULL);
|
|
|
|
sigaction(SIGWINCH, &sa, NULL);
|
|
|
|
|
|
|
|
/* Unmask signals */
|
|
|
|
sigprocmask(SIG_SETMASK, &old, NULL);
|
|
|
|
|
|
|
|
/* Safe to run now */
|
|
|
|
execl(file, file, arg, (char *) NULL);
|
|
|
|
fprintf(stderr, "unable to exec `%s': %s\n",
|
|
|
|
file, strerror(errno));
|
|
|
|
unlink(fifo);
|
|
|
|
_exit(EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (pid == -1)
|
|
|
|
fprintf(stderr, "fork: %s\n",strerror (errno));
|
|
|
|
|
|
|
|
sigprocmask(SIG_SETMASK, &old, NULL);
|
|
|
|
|
|
|
|
free(file);
|
|
|
|
return pid;
|
|
|
|
}
|
2008-08-20 15:32:11 +05:30
|
|
|
|
|
|
|
int
|
|
|
|
parse_mode(mode_t *mode, char *text)
|
|
|
|
{
|
|
|
|
char *p;
|
|
|
|
unsigned long l;
|
|
|
|
|
|
|
|
/* Check for a numeric mode */
|
|
|
|
if ((*text - '0') < 8) {
|
|
|
|
l = strtoul(text, &p, 8);
|
|
|
|
if (*p || l > 07777U) {
|
|
|
|
errno = EINVAL;
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
*mode = (mode_t) l;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* We currently don't check g+w type stuff */
|
|
|
|
errno = EINVAL;
|
|
|
|
return -1;
|
|
|
|
}
|