blob: c388013b2e4f65ad9dccb85bb472728f34e66acc [file] [log] [blame]
/*
** Path sandbox for the gentoo linux portage package system, initially
** based on the ROCK Linux Wrapper for getting a list of created files
**
** to integrate with bash, bash should have been built like this
**
** ./configure --prefix=<prefix> --host=<host> --without-gnu-malloc
**
** it's very important that the --enable-static-link option is NOT specified
**
** Copyright (C) 2001 Geert Bevin, Uwyn, http://www.uwyn.com
** Distributed under the terms of the GNU General Public License, v2 or later
** Author : Geert Bevin <gbevin@uwyn.com>
** $Id: /var/cvsroot/gentoo-src/portage/src/sandbox-dev/Attic/sandbox.c,v 1.4 2002/10/20 21:37:30 azarah Exp $
*/
#define _GNU_SOURCE
#include <errno.h>
#include <fcntl.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <limits.h>
#include <string.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <sys/types.h>
#include <sys/resource.h>
#include <sys/wait.h>
#include <unistd.h>
#include <fcntl.h>
#include "sandbox.h"
int preload_adaptable = 1;
int cleaned_up = 0;
int print_debug = 0;
/* Read pids file, and load active pids into an array. Return number of pids in array */
int load_active_pids(int fd, int **pids)
{
char *data = NULL;
char *ptr = NULL, *ptr2 = NULL;
int my_pid;
int num_pids = 0;
long len;
pids[0] = NULL;
len = file_length(fd);
/* Allocate and zero datablock to read pids file */
data = (char *)malloc((len + 1)*sizeof(char));
memset(data, 0, len + 1);
/* Start at beginning of file */
lseek(fd, 0L, SEEK_SET);
/* read entire file into a buffer */
read(fd, data, len);
ptr = data;
/* Loop and read all pids */
while (1) {
/* Find new line */
ptr2 = strchr(ptr, '\n');
if (ptr2 == NULL) break; /* No more PIDs */
/* clear the \n. And ptr should have a null-terminated decimal string */
ptr2[0] = 0;
my_pid = atoi(ptr);
/* If the PID is still alive, add it to our array */
if ((0 != my_pid) && (0 == kill(my_pid, 0))) {
pids[0] = (int *)realloc(pids[0], (num_pids + 1)*sizeof(int));
pids[0][num_pids] = my_pid;
num_pids++;
}
/* Put ptr past the NULL we just wrote */
ptr = ptr2 + 1;
}
if (data) free(data);
return num_pids;
}
/* Read ld.so.preload file, and loads dirs into an array. Return number of entries in array */
int load_preload_libs(int fd, char ***preloads)
{
char *data = NULL;
char *ptr = NULL, *ptr2 = NULL;
int num_entries = 0;
long len;
preloads[0] = NULL;
len = file_length(fd);
/* Allocate and zero datablock to read pids file */
data = (char *)malloc((len + 1)*sizeof(char));
memset(data, 0, len + 1);
/* Start at beginning of file */
lseek(fd, 0L, SEEK_SET);
/* read entire file into a buffer */
read(fd, data, len);
ptr = data;
/* Loop and read all pids */
while (1) {
/* Find new line */
ptr2 = strchr(ptr, '\n');
/* clear the \n. And ptr should have a null-terminated decimal string
* Don't break from the loop though because the last line may not
* terminated with a \n
*/
if (NULL != ptr2) ptr2[0] = 0;
/* If listing does not match our libname, add it to the array */
if ((strlen(ptr)) && (NULL == strstr(ptr, LIB_NAME))) {
preloads[0] = (char **)realloc(preloads[0], (num_entries + 1)*sizeof(char **));
preloads[0][num_entries] = strdup(ptr);
num_entries++;
}
if (NULL == ptr2) break; /* No more PIDs */
/* Put ptr past the NULL we just wrote */
ptr = ptr2 + 1;
}
if (data) free(data);
return num_entries;
}
void cleanup()
{
int i = 0;
int success = 1;
int pids_file = -1, num_of_pids = 0;
int *pids_array = NULL;
char pid_string[255];
#ifdef USE_LD_SO_PRELOAD
int preload_file = -1, num_of_preloads = 0;
char preload_entry[255];
char **preload_array = NULL;
#endif
/* remove this sandbox's bash pid from the global pids
* file if it has rights to adapt the ld.so.preload file */
if ((1 == preload_adaptable) && (0 == cleaned_up)) {
cleaned_up = 1;
success = 1;
if (print_debug) printf("Cleaning up pids file.\n");
/* Stat the PIDs file, make sure it exists and is a regular file */
if (file_exist(PIDS_FILE, 1) <= 0) {
perror(">>> pids file is not a regular file");
success = 0;
/* We should really not fail if the pidsfile is missing here, but
* rather just exit cleanly, as there is still some cleanup to do */
return;
}
pids_file = file_open(PIDS_FILE, "r+", 0);
if (-1 == pids_file) {
success = 0;
/* Nothing more to do here */
return;
}
/* Load "still active" pids into an array */
num_of_pids = load_active_pids(pids_file, &pids_array);
//printf("pids: %d\r\n", num_of_pids);
#ifdef USE_LD_SO_PRELOAD
/* clean the /etc/ld.so.preload file if no other sandbox
* processes are running anymore */
if (1 == num_of_pids) {
success = 1;
if (print_debug) printf("Cleaning up /etc/ld.so.preload.\n");
preload_file = file_open("/etc/ld.so.preload", "r+", 0);
if (-1 != preload_file) {
/* Load all the preload libraries into an array */
num_of_preloads = load_preload_libs(preload_file, &preload_array);
//printf("num preloads: %d\r\n", num_of_preloads);
/* Clear file */
file_truncate(preload_file);
/* store the other preload libraries back into the /etc/ld.so.preload file */
if(num_of_preloads > 0) {
for (i = 0; i < num_of_preloads; i++) {
sprintf(preload_entry, "%s\n", preload_array[i]);
if (write(preload_file, preload_entry, strlen(preload_entry)) != strlen(preload_entry)) {
perror(">>> /etc/ld.so.preload file write");
success = 0;
break;
}
}
}
/* Free memory used to store preload array */
for (i = 0; i < num_of_preloads; i++) {
if (preload_array[i]) free(preload_array[i]);
preload_array[i] = NULL;
}
if (preload_array) free(preload_array);
preload_array = NULL;
file_close(preload_file);
preload_file = -1;
}
}
#endif
file_truncate(pids_file);
/* if pids are still running, write only the running pids back to the file */
if(num_of_pids > 1) {
for (i = 0; i < num_of_pids; i++) {
sprintf(pid_string, "%d\n", pids_array[i]);
if (write(pids_file, pid_string, strlen(pid_string)) != strlen(pid_string)) {
perror(">>> pids file write");
success = 0;
break;
}
}
file_close(pids_file);
pids_file = -1;
} else {
file_close(pids_file);
pids_file = -1;
/* remove the pidsfile, as this was the last sandbox */
unlink(PIDS_FILE);
}
if (pids_array != NULL) {
free(pids_array);
pids_array = NULL;
}
}
if (0 == success) {
return;
}
}
void stop(int signum)
{
printf("Caught signal %d\r\n", signum);
cleanup();
}
void setenv_sandbox_write(char *home_dir, char *portage_tmp_dir, char *var_tmp_dir, char *tmp_dir)
{
char sandbox_write_var[1024];
if (!getenv(ENV_SANDBOX_WRITE)) {
/* these should go into make.globals later on */
strcpy(sandbox_write_var, "");
strcat(sandbox_write_var, "/dev/zero:/dev/fd/:/dev/null:/dev/pts/:/dev/vc/:/dev/tty:/tmp/");
strcat(sandbox_write_var, ":");
/* NGPT support */
strcat(sandbox_write_var, "/dev/shm/ngpt");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/var/log/scrollkeeper.log");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, home_dir);
strcat(sandbox_write_var, "/.gconfd/lock");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, home_dir);
strcat(sandbox_write_var, "/.bash_history");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/usr/tmp/conftest");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/usr/lib/conftest");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/usr/tmp/cf");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/usr/lib/cf");
strcat(sandbox_write_var, ":");
if (NULL == portage_tmp_dir) {
strcat(sandbox_write_var, tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, var_tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/tmp/");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/var/tmp/");
/* How the heck is this possible?? we just set it above! */
} else if (0 == strcmp(sandbox_write_var, "/var/tmp/")) {
strcat(sandbox_write_var, portage_tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/tmp/");
/* Still don't think this is possible, am I just stupid or something? */
} else if (0 == strcmp(sandbox_write_var, "/tmp/")) {
strcat(sandbox_write_var, portage_tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, var_tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/var/tmp/");
/* Amazing, one I think is possible */
} else {
strcat(sandbox_write_var, portage_tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, var_tmp_dir);
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/tmp/");
strcat(sandbox_write_var, ":");
strcat(sandbox_write_var, "/var/tmp/");
}
setenv(ENV_SANDBOX_WRITE, sandbox_write_var, 1);
}
}
void setenv_sandbox_predict(char *home_dir)
{
char sandbox_predict_var[1024];
if (!getenv(ENV_SANDBOX_PREDICT)) {
/* these should go into make.globals later on */
strcpy(sandbox_predict_var, "");
strcat(sandbox_predict_var, home_dir);
strcat(sandbox_predict_var, "/.");
strcat(sandbox_predict_var, ":");
strcat(sandbox_predict_var, "/usr/lib/python2.0/");
strcat(sandbox_predict_var, ":");
strcat(sandbox_predict_var, "/usr/lib/python2.1/");
strcat(sandbox_predict_var, ":");
strcat(sandbox_predict_var, "/usr/lib/python2.2/");
setenv(ENV_SANDBOX_PREDICT, sandbox_predict_var, 1);
}
}
int print_sandbox_log(char *sandbox_log)
{
int sandbox_log_file = -1;
char *beep_count_env = NULL;
int i, beep_count = 0;
long len = 0;
char *buffer = NULL;
sandbox_log_file=file_open(sandbox_log, "r", 0);
if (-1 == sandbox_log_file) {
return 0;
}
len = file_length(sandbox_log_file);
buffer = (char *)malloc((len + 1)*sizeof(char));
memset(buffer, 0, len + 1);
read(sandbox_log_file, buffer, len);
file_close(sandbox_log_file);
printf("\e[31;01m--------------------------- ACCESS VIOLATION SUMMARY ---------------------------\033[0m\n");
printf("\e[31;01mLOG FILE = \"%s\"\033[0m\n", sandbox_log);
printf("\n");
printf("%s", buffer);
if (buffer) free(buffer); buffer = NULL;
printf("\e[31;01m--------------------------------------------------------------------------------\033[0m\n");
beep_count_env = getenv(ENV_SANDBOX_BEEP);
if (beep_count_env) {
beep_count = atoi(beep_count_env);
} else {
beep_count = DEFAULT_BEEP_COUNT;
}
for (i = 0; i < beep_count; i++) {
fputc('\a', stderr);
if (i < beep_count -1) {
sleep(1);
}
}
return 1;
}
int spawn_shell(char *argv_bash[])
{
#ifdef USE_SYSTEM_SHELL
int i = 0;
char *sh = NULL;
int first = 1;
int ret;
long len = 0;
while (1) {
if (NULL == argv_bash[i]) break;
if (NULL != sh) len = strlen(sh);
sh = (char *)realloc(sh, len+strlen(argv_bash[i]) + 5);
if (first) {
sh[0] = 0;
first = 0;
}
strcat(sh, "\"");
strcat(sh, argv_bash[i]);
strcat(sh, "\" ");
//printf("%s\n", argv_bash[i]);
i++;
}
printf("%s\n", sh);
ret = system(sh);
if (sh) free(sh);
sh = NULL;
if (-1 == ret) return 0;
return 1;
#else
# ifndef NO_FORK
int pid;
int status = 0;
int ret = 0;
pid = fork();
/* Child's process */
if (0 == pid) {
# endif
execv(argv_bash[0], argv_bash);
# ifndef NO_FORK
return 0;
} else if (pid < 0) {
return 0;
}
ret = waitpid(pid, &status, 0);
if ((-1 == ret) || (status > 0)) return 0;
# endif
return 1;
#endif
}
int main(int argc, char** argv)
{
int i = 0, success = 1;
int preload_file = -1;
int sandbox_log_presence = 0;
int sandbox_log_file = -1;
int pids_file = -1;
long len;
int *pids_array = NULL;
int num_of_pids = 0;
// char run_arg[255];
char portage_tmp_dir[PATH_MAX];
char var_tmp_dir[PATH_MAX];
char tmp_dir[PATH_MAX];
char sandbox_log[255];
char sandbox_debug_log[255];
char sandbox_dir[255];
char sandbox_lib[255];
char sandbox_rc[255];
char pid_string[255];
char **argv_bash = NULL;
char *run_str = "-c";
char *home_dir = NULL;
char *tmp_string = NULL;
#ifdef USE_LD_SO_PRELOAD
char **preload_array = NULL;
int num_of_preloads = 0;
#endif
/* Only print info if called with no arguments .... */
if (argc < 2) {
print_debug = 1;
}
if (print_debug) printf("========================== Gentoo linux path sandbox ===========================\n");
/* check if a sandbox is already running */
if (NULL != getenv(ENV_SANDBOX_ON)) {
fprintf(stderr, "Not launching a new sandbox instance\nAnother one is already running in this process hierarchy.\n");
exit(1);
} else {
/* determine the location of all the sandbox support files */
if (print_debug) printf("Detection of the support files.\n");
/* Generate base sandbox path */
tmp_string = get_sandbox_path(argv[0]);
strncpy(sandbox_dir, tmp_string, 254);
if (tmp_string) free(tmp_string);
tmp_string = NULL;
strcat(sandbox_dir, "/");
/* Generate sandbox lib path */
tmp_string = get_sandbox_lib(sandbox_dir);
strncpy(sandbox_lib, tmp_string, 254);
if (tmp_string) free(tmp_string);
tmp_string = NULL;
/* Generate sandbox bashrc path */
tmp_string = get_sandbox_rc(sandbox_dir);
strncpy(sandbox_rc, tmp_string, 254);
if (tmp_string) free(tmp_string);
tmp_string = NULL;
/* verify the existance of required files */
if (print_debug) printf("Verification of the required files.\n");
if (file_exist(sandbox_lib, 0) <= 0) {
fprintf(stderr, "Could not open the sandbox library at '%s'.\n", sandbox_lib);
return -1;
} else if (file_exist(sandbox_rc, 0) <= 0) {
fprintf(stderr, "Could not open the sandbox rc file at '%s'.\n", sandbox_rc);
return -1;
}
#ifdef USE_LD_SO_PRELOAD
/* ensure that the /etc/ld.so.preload file contains an entry for the sandbox lib */
if (print_debug) printf("Setting up the ld.so.preload file.\n");
#endif
/* check if the /etc/ld.so.preload is a regular file */
if (file_exist("/etc/ld.so.preload", 1) < 0) {
fprintf(stderr, ">>> /etc/ld.so.preload file is not a regular file\n");
exit(1);
}
/* Our r+ also will create the file if it doesn't exist */
preload_file=file_open("/etc/ld.so.preload", "r+", 1, 0644);
if (-1 == preload_file) {
preload_adaptable = 0;
/* exit(1);*/
}
#ifdef USE_LD_SO_PRELOAD
/* Load entries of preload table */
num_of_preloads = load_preload_libs(preload_file, &preload_array);
/* Zero out our ld.so.preload file */
file_truncate(preload_file);
/* Write contents of preload file */
for (i = 0; i < num_of_preloads + 1; i++) {
/* First entry should be our sandbox library */
if (0 == i) {
if (write(preload_file, sandbox_lib, strlen(sandbox_lib)) != strlen(sandbox_lib)) {
perror(">>> /etc/ld.so.preload file write");
success = 0;
break;
}
} else {
/* Output all other preload entries */
if (write(preload_file, preload_array[i - 1], strlen(preload_array[i - 1])) != strlen(preload_array[i - 1])) {
perror(">>> /etc/ld.so.preload file write");
success = 0;
break;
}
}
/* Don't forget the return character after each line! */
if (1 != write(preload_file, "\n", 1)) {
perror(">>> /etc/ld.so.preload file write");
success = 0;
break;
}
}
for (i = 0; i < num_of_preloads; i++) {
if (preload_array[i]) free(preload_array[i]);
preload_array[i] = NULL;
}
if (preload_array) free(preload_array);
num_of_preloads = 0;
preload_array = NULL;
#endif
/* That's all we needed to do with the preload file */
file_close(preload_file);
preload_file = -1;
/* set up the required environment variables */
if (print_debug) printf("Setting up the required environment variables.\n");
/* Generate sandbox log full path */
tmp_string=get_sandbox_log();
strncpy(sandbox_log, tmp_string, 254);
if (tmp_string) free(tmp_string);
tmp_string = NULL;
setenv(ENV_SANDBOX_LOG, sandbox_log, 1);
snprintf(sandbox_debug_log, 254, "%s%s%s", DEBUG_LOG_FILE_PREFIX, pid_string, LOG_FILE_EXT);
setenv(ENV_SANDBOX_DEBUG_LOG, sandbox_debug_log, 1);
home_dir = getenv("HOME");
/* drobbins: we need to expand these paths using realpath() so that PORTAGE_TMPDIR
* can contain symlinks (example, /var is a symlink, /var/tmp is a symlink.) Without
* this, access is denied to /var/tmp, hurtin' ebuilds.
*/
realpath(getenv("PORTAGE_TMPDIR"),portage_tmp_dir);
realpath("/var/tmp",var_tmp_dir);
realpath("/tmp",tmp_dir);
setenv(ENV_SANDBOX_DIR, sandbox_dir, 1);
setenv(ENV_SANDBOX_LIB, sandbox_lib, 1);
setenv("LD_PRELOAD", sandbox_lib, 1);
if (!getenv(ENV_SANDBOX_DENY)) {
setenv(ENV_SANDBOX_DENY, LD_PRELOAD_FILE, 1);
}
if (!getenv(ENV_SANDBOX_READ)) {
setenv(ENV_SANDBOX_READ, "/", 1);
}
/* Set up Sandbox Write path */
setenv_sandbox_write(home_dir, portage_tmp_dir, var_tmp_dir, tmp_dir);
setenv_sandbox_predict(home_dir);
setenv(ENV_SANDBOX_ON, "1", 0);
/* if the portage temp dir was present, cd into it */
if (NULL != portage_tmp_dir) {
chdir(portage_tmp_dir);
}
argv_bash=(char **)malloc(6 * sizeof(char *));
argv_bash[0] = strdup("/bin/bash");
argv_bash[1] = strdup("-rcfile");
argv_bash[2] = strdup(sandbox_rc);
if (argc < 2) {
argv_bash[3] = NULL;
} else {
argv_bash[3] = strdup(run_str); /* "-c" */
}
argv_bash[4] = NULL; /* strdup(run_arg); */
argv_bash[5] = NULL;
if (argc >= 2) {
for (i = 1; i< argc; i++) {
if (NULL == argv_bash[4]) len = 0;
else len = strlen(argv_bash[4]);
argv_bash[4]=(char *)realloc(argv_bash[4], (len + strlen(argv[i]) + 2) * sizeof(char));
if (0 == len) argv_bash[4][0] = 0;
if (1 != i) strcat(argv_bash[4], " ");
strcat(argv_bash[4], argv[i]);
}
}
#if 0
char* argv_bash[] = {
"/bin/bash",
"-rcfile",
NULL,
NULL,
NULL,
NULL
};
/* adding additional bash arguments */
for (i = 1; i < argc; i++) {
if (1 == i) {
argv_bash[3] = run_str;
argv_bash[4] = run_arg;
strcpy(argv_bash[4], argv[i]);
} else {
strcat(argv_bash[4], " ");
strcat(argv_bash[4], argv[i]);
}
}
#endif
/* set up the required signal handlers */
signal(SIGHUP, &stop);
signal(SIGINT, &stop);
signal(SIGQUIT, &stop);
signal(SIGTERM, &stop);
/* this one should NEVER be set in ebuilds, as it is the one
* private thing libsandbox.so use to test if the sandbox
* should be active for this pid, or not.
*
* azarah (3 Aug 2002)
*/
setenv("SANDBOX_ACTIVE", "armedandready", 1);
/* Load our PID into PIDs file if environment is adaptable */
if (preload_adaptable) {
success = 1;
if (file_exist(PIDS_FILE, 1) < 0) {
success = 0;
fprintf(stderr, ">>> pids file is not a regular file");
} else {
pids_file=file_open(PIDS_FILE, "r+", 1, 0644);
if (-1 == pids_file) {
success = 0;
} else {
/* Grab still active pids */
num_of_pids = load_active_pids(pids_file, &pids_array);
/* Zero out file */
file_truncate(pids_file);
/* Output active pids, and append our pid */
for (i = 0; i < num_of_pids + 1; i++) {
/* Time for our entry */
if (i == num_of_pids) {
sprintf(pid_string, "%d\n", getpid());
} else {
sprintf(pid_string, "%d\n", pids_array[i]);
}
if (write(pids_file, pid_string, strlen(pid_string)) != strlen(pid_string)) {
perror(">>> /etc/ld.so.preload file write");
success = 0;
break;
}
}
/* Clean pids_array */
if (pids_array) free(pids_array);
pids_array = NULL;
num_of_pids = 0;
/* We're done with the pids file */
file_close(pids_file);
}
}
/* Something went wrong, bail out */
if (success == 0)
exit(1);
}
/* STARTING PROTECTED ENVIRONMENT */
if (print_debug) {
printf("The protected environment has been started.\n");
printf("--------------------------------------------------------------------------------\n");
}
if (print_debug) printf("Shell being started in forked process.\n");
/* Start Bash */
if (!spawn_shell(argv_bash)) {
if (print_debug) fprintf(stderr, ">>> shell process failed to spawn\n");
success = 0;
}
/* Free bash stuff */
for (i = 0; i < 6; i++) {
if (argv_bash[i]) free(argv_bash[i]);
argv_bash[i] = NULL;
}
if (argv_bash) free(argv_bash);
argv_bash = NULL;
if (print_debug) {
printf("Cleaning up sandbox process\n");
}
cleanup();
if (print_debug) {
printf("========================== Gentoo linux path sandbox ===========================\n");
printf("The protected environment has been shut down.\n");
}
if (file_exist(sandbox_log, 0)) {
sandbox_log_presence = 1;
success = 1;
if (!print_sandbox_log(sandbox_log)) {
success = 0;
}
#if 0
if (!success) {
exit(1);
}
#endif
sandbox_log_file = -1;
} else if (print_debug) {
printf("--------------------------------------------------------------------------------\n");
}
if ((sandbox_log_presence) || (!success)) {
return 1;
} else {
return 0;
}
}
}
// vim:expandtab noai:cindent ai