#include "apr.h"

#include "apr_portable.h"

#include "apr_strings.h"

#include "apr_thread_proc.h"

#include "apr_signal.h"

#define APR_WANT_STDIO

#define APR_WANT_STRFUNC

#include "apr_want.h"

#if APR_HAVE_UNISTD_H

#include <unistd.h>

#endif

#if APR_HAVE_SYS_TYPES_H

#include <sys/types.h>

#endif

#define CORE_PRIVATE

#include "ap_config.h"

#include "httpd.h"

#include "mpm_default.h"

#include "http_main.h"

#include "http_log.h"

#include "http_config.h"

#include "http_core.h" /* for get_remote_host */

#include "http_connection.h"

#include "scoreboard.h"

#include "ap_mpm.h"

#include "unixd.h"

#include "mpm_common.h"

#include "ap_listen.h"

#include "ap_mmn.h"

#ifdef HAVE_BSTRING_H

#include <bstring.h> /* for IRIX, FD_SET calls bzero() */

#endif

#ifdef HAVE_TIME_H

#include <time.h>

#endif

#ifdef HAVE_SYS_PROCESSOR_H

#include <sys/processor.h> /* for bindprocessor() */

#endif

#include <signal.h>

#include <sys/times.h>

int ap_threads_per_child=0; /* Worker threads per child */

static apr_lock_t *accept_lock;

static int ap_daemons_to_start=0;

static int ap_daemons_min_free=0;

static int ap_daemons_max_free=0;

static int ap_daemons_limit=0;

static ap_pod_t *pod;

int ap_max_daemons_limit = -1;

server_rec *ap_server_conf;

static int one_process = 0;

static apr_pool_t *pconf; /* Pool for config stuff */

static apr_pool_t *pchild; /* Pool for httpd child stuff */

static pid_t ap_my_pid; /* it seems silly to call getpid all the time */

static pid_t parent_pid;

#ifndef MULTITHREAD

static int my_child_num;

#endif

#ifdef TPF

int tpf_child = 0;

char tpf_server_name[INETD_SERVNAME_LENGTH+1];

#endif /* TPF */

static int die_now = 0;

#ifdef GPROF

static void chdir_for_gprof(void)

{

core_server_config *sconf =

ap_get_module_config(ap_server_conf->module_config, &core_module);

char *dir = sconf->gprof_dir;

const char *use_dir;

if(dir) {

apr_status_t res;

char buf[512];

int len = strlen(sconf->gprof_dir) - 1;

if(*(dir + len) == '%') {

dir[len] = '\0';

apr_snprintf(buf, sizeof(buf), "%sgprof.%d", dir, (int)getpid());

}

use_dir = ap_server_root_relative(pconf, buf[0] ? buf : dir);

res = apr_dir_make(use_dir, 0755, pconf);

if(res != APR_SUCCESS && !APR_STATUS_IS_EEXIST(res)) {

ap_log_error(APLOG_MARK, APLOG_ERR, errno, ap_server_conf,

"gprof: error creating directory %s", dir);

}

}

else {

use_dir = ap_server_root_relative(pconf, "logs");

}

chdir(dir);

}

#else

#define chdir_for_gprof()

#endif

#define ap_check_signals()

static void clean_child_exit(int code) __attribute__ ((noreturn));

static void clean_child_exit(int code)

{

if (pchild) {

apr_pool_destroy(pchild);

}

ap_mpm_pod_close(pod);

chdir_for_gprof();

exit(code);

}

static void expand_lock_fname(apr_pool_t *p)

{

/* XXXX possibly bogus cast */

ap_lock_fname = apr_psprintf(p, "%s.%lu",

ap_server_root_relative(p, ap_lock_fname), (unsigned long)getpid());

}

static void accept_mutex_child_init(apr_pool_t *p)

{

apr_status_t rv;

rv = apr_lock_child_init(&accept_lock, ap_lock_fname, p);

if (rv) {

ap_log_error(APLOG_MARK, APLOG_EMERG, rv, NULL,

"couldn't do child init for accept mutex");

clean_child_exit(APEXIT_CHILDINIT);

}

}

static void accept_mutex_init(apr_pool_t *p)

{

apr_status_t rv;

expand_lock_fname(p);

rv = apr_lock_create_np(&accept_lock, APR_MUTEX, APR_CROSS_PROCESS,

ap_accept_lock_mech, ap_lock_fname, p);

if (rv) {

ap_log_error(APLOG_MARK, APLOG_EMERG, rv, NULL, "couldn't create accept mutex");

exit(APEXIT_INIT);

}

#if APR_USE_SYSVSEM_SERIALIZE

if (ap_accept_lock_mech == APR_LOCK_DEFAULT ||

ap_accept_lock_mech == APR_LOCK_SYSVSEM) {

#else

if (ap_accept_lock_mech == APR_LOCK_SYSVSEM) {

#endif

rv = unixd_set_lock_perms(accept_lock);

if (rv != APR_SUCCESS) {

ap_log_error(APLOG_MARK, APLOG_EMERG, rv, NULL,

"Couldn't set permissions on cross-process lock");

exit(APEXIT_INIT);

}

}

}

static void accept_mutex_on(void)

{

apr_status_t rv = apr_lock_acquire(accept_lock);

if (rv != APR_SUCCESS) {

ap_log_error(APLOG_MARK, APLOG_EMERG, rv, NULL, "couldn't grab the accept mutex");

exit(APEXIT_CHILDFATAL);

}

}

static void accept_mutex_off(void)

{

apr_status_t rv = apr_lock_release(accept_lock);

if (rv != APR_SUCCESS) {

ap_log_error(APLOG_MARK, APLOG_EMERG, rv, NULL, "couldn't release the accept mutex");

exit(APEXIT_CHILDFATAL);

}

}

#ifdef SINGLE_LISTEN_UNSERIALIZED_ACCEPT

#define SAFE_ACCEPT(stmt) do {if (ap_listeners->next) {stmt;}} while(0)

#else

#define SAFE_ACCEPT(stmt) do {stmt;} while(0)

#endif

AP_DECLARE(apr_status_t) ap_mpm_query(int query_code, int *result)

{

switch(query_code){

case AP_MPMQ_MAX_DAEMON_USED:

*result = ap_daemons_limit;

return APR_SUCCESS;

case AP_MPMQ_IS_THREADED:

*result = AP_MPMQ_NOT_SUPPORTED;

return APR_SUCCESS;

case AP_MPMQ_IS_FORKED:

*result = AP_MPMQ_DYNAMIC;

return APR_SUCCESS;

case AP_MPMQ_HARD_LIMIT_DAEMONS:

*result = HARD_SERVER_LIMIT;

return APR_SUCCESS;

case AP_MPMQ_HARD_LIMIT_THREADS:

*result = HARD_THREAD_LIMIT;

return APR_SUCCESS;

case AP_MPMQ_MAX_THREADS:

*result = 0;

return APR_SUCCESS;

case AP_MPMQ_MIN_SPARE_DAEMONS:

*result = ap_daemons_min_free;

return APR_SUCCESS;

case AP_MPMQ_MIN_SPARE_THREADS:

*result = 0;

return APR_SUCCESS;

case AP_MPMQ_MAX_SPARE_DAEMONS:

*result = ap_daemons_max_free;

return APR_SUCCESS;

case AP_MPMQ_MAX_SPARE_THREADS:

*result = 0;

return APR_SUCCESS;

case AP_MPMQ_MAX_REQUESTS_DAEMON:

*result = ap_max_requests_per_child;

return APR_SUCCESS;

case AP_MPMQ_MAX_DAEMONS:

*result = ap_daemons_limit;

return APR_SUCCESS;

}

return APR_ENOTIMPL;

}

#if defined(NEED_WAITPID)

int reap_children(int *exitcode, apr_exit_why_e *status)

{

int n, pid;

for (n = 0; n < ap_max_daemons_limit; ++n) {

ap_sync_scoreboard_image();

if (ap_scoreboard_image->servers[n][0].status != SERVER_DEAD &&

kill((pid = ap_scoreboard_image->parent[n].pid), 0) == -1) {

ap_update_child_status(AP_CHILD_THREAD_FROM_ID(n), SERVER_DEAD, NULL);

/* just mark it as having a successful exit status */

*status = APR_PROC_EXIT;

*exitcode = 0;

return(pid);

}

}

return 0;

}

#endif

static void sig_coredump(int sig)

{

chdir(ap_coredump_dir);

apr_signal(sig, SIG_DFL);

if (ap_my_pid == parent_pid) {

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_NOTICE,

0, ap_server_conf,

"seg fault or similar nasty error detected "

"in the parent process");

}

kill(getpid(), sig);

/* At this point we've got sig blocked, because we're still inside

}

static void just_die(int sig)

{

clean_child_exit(0);

}

static int volatile shutdown_pending;

static int volatile restart_pending;

static int volatile is_graceful;

ap_generation_t volatile ap_my_generation=0;

static void sig_term(int sig)

{

if (shutdown_pending == 1) {

/* Um, is this _probably_ not an error, if the user has

return;

}

shutdown_pending = 1;

}

static void restart(int sig)

{

if (restart_pending == 1) {

/* Probably not an error - don't bother reporting it */

return;

}

restart_pending = 1;

if ((is_graceful = (sig == AP_SIG_GRACEFUL))) {

apr_pool_cleanup_kill(pconf, NULL, ap_cleanup_scoreboard);

}

}

static void set_signals(void)

{

#ifndef NO_USE_SIGACTION

struct sigaction sa;

sigemptyset(&sa.sa_mask);

sa.sa_flags = 0;

if (!one_process) {

sa.sa_handler = sig_coredump;

#if defined(SA_ONESHOT)

sa.sa_flags = SA_ONESHOT;

#elif defined(SA_RESETHAND)

sa.sa_flags = SA_RESETHAND;

#endif

if (sigaction(SIGSEGV, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGSEGV)");

#ifdef SIGBUS

if (sigaction(SIGBUS, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGBUS)");

#endif

#ifdef SIGABORT

if (sigaction(SIGABORT, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGABORT)");

#endif

#ifdef SIGABRT

if (sigaction(SIGABRT, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGABRT)");

#endif

#ifdef SIGILL

if (sigaction(SIGILL, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGILL)");

#endif

sa.sa_flags = 0;

}

sa.sa_handler = sig_term;

if (sigaction(SIGTERM, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGTERM)");

#ifdef SIGINT

if (sigaction(SIGINT, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGINT)");

#endif

#ifdef SIGXCPU

sa.sa_handler = SIG_DFL;

if (sigaction(SIGXCPU, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGXCPU)");

#endif

#ifdef SIGXFSZ

sa.sa_handler = SIG_DFL;

if (sigaction(SIGXFSZ, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGXFSZ)");

#endif

#ifdef SIGPIPE

sa.sa_handler = SIG_IGN;

if (sigaction(SIGPIPE, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGPIPE)");

#endif

/* we want to ignore HUPs and AP_SIG_GRACEFUL while we're busy

sigaddset(&sa.sa_mask, SIGHUP);

sigaddset(&sa.sa_mask, AP_SIG_GRACEFUL);

sa.sa_handler = restart;

if (sigaction(SIGHUP, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(SIGHUP)");

if (sigaction(AP_SIG_GRACEFUL, &sa, NULL) < 0)

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "sigaction(" AP_SIG_GRACEFUL_STRING ")");

#else

if (!one_process) {

apr_signal(SIGSEGV, sig_coredump);

#ifdef SIGBUS

apr_signal(SIGBUS, sig_coredump);

#endif /* SIGBUS */

#ifdef SIGABORT

apr_signal(SIGABORT, sig_coredump);

#endif /* SIGABORT */

#ifdef SIGABRT

apr_signal(SIGABRT, sig_coredump);

#endif /* SIGABRT */

#ifdef SIGILL

apr_signal(SIGILL, sig_coredump);

#endif /* SIGILL */

#ifdef SIGXCPU

apr_signal(SIGXCPU, SIG_DFL);

#endif /* SIGXCPU */

#ifdef SIGXFSZ

apr_signal(SIGXFSZ, SIG_DFL);

#endif /* SIGXFSZ */

}

apr_signal(SIGTERM, sig_term);

#ifdef SIGHUP

apr_signal(SIGHUP, restart);

#endif /* SIGHUP */

#ifdef AP_SIG_GRACEFUL

apr_signal(AP_SIG_GRACEFUL, restart);

#endif /* AP_SIG_GRACEFUL */

#ifdef SIGPIPE

apr_signal(SIGPIPE, SIG_IGN);

#endif /* SIGPIPE */

#endif

}

static int requests_this_child;

static int num_listensocks = 0;

static ap_listen_rec *listensocks;

int ap_graceful_stop_signalled(void)

{

/* not ever called anymore... */

return 0;

}

static void child_main(int child_num_arg)

{

apr_pool_t *ptrans;

conn_rec *current_conn;

apr_status_t status = APR_EINIT;

int i;

ap_listen_rec *lr;

int curr_pollfd, last_pollfd = 0;

apr_pollfd_t *pollset;

int offset;

void *csd;

my_child_num = child_num_arg;

ap_my_pid = getpid();

csd = NULL;

requests_this_child = 0;

/* Get a sub context for global allocations in this child, so that

apr_pool_create(&pchild, pconf);

apr_pool_create(&ptrans, pchild);

/* needs to be done before we switch UIDs so we have permissions */

reopen_scoreboard(pchild);

SAFE_ACCEPT(accept_mutex_child_init(pchild));

if (unixd_setup_child()) {

clean_child_exit(APEXIT_CHILDFATAL);

}

ap_run_child_init(pchild, ap_server_conf);

(void) ap_update_child_status(AP_CHILD_THREAD_FROM_ID(my_child_num), SERVER_READY, (request_rec *) NULL);

ap_sync_scoreboard_image();

/* Set up the pollfd array */

listensocks = apr_pcalloc(pchild,

sizeof(*listensocks) * (num_listensocks));

for (lr = ap_listeners, i = 0; i < num_listensocks; lr = lr->next, i++) {

listensocks[i].accept_func = lr->accept_func;

listensocks[i].sd = lr->sd;

}

apr_poll_setup(&pollset, num_listensocks, pchild);

for (i = 0; i < num_listensocks; i++)

apr_poll_socket_add(pollset, listensocks[i].sd, APR_POLLIN);

while (!die_now) {

/*

current_conn = NULL;

apr_pool_clear(ptrans);

if ((ap_max_requests_per_child > 0

&& requests_this_child++ >= ap_max_requests_per_child)) {

clean_child_exit(0);

}

(void) ap_update_child_status(AP_CHILD_THREAD_FROM_ID(my_child_num), SERVER_READY, (request_rec *) NULL);

/*

/* Lock around "accept", if necessary */

SAFE_ACCEPT(accept_mutex_on());

for (;;) {

apr_status_t ret;

apr_int16_t event;

apr_int32_t n;

ret = apr_poll(pollset, &n, -1);

if (ret != APR_SUCCESS) {

if (APR_STATUS_IS_EINTR(ret)) {

continue;

}

/* Single Unix documents select as returning errnos

ap_log_error(APLOG_MARK, APLOG_ERR, ret, ap_server_conf,

"apr_poll: (listen)");

clean_child_exit(1);

}

if (num_listensocks == 1) {

offset = 0;

goto got_fd;

}

else {

/* find a listener */

curr_pollfd = last_pollfd;

do {

curr_pollfd++;

if (curr_pollfd >= num_listensocks) {

curr_pollfd = 0;

}

/* XXX: Should we check for POLLERR? */

apr_poll_revents_get(&event, listensocks[curr_pollfd].sd, pollset);

if (event & APR_POLLIN) {

last_pollfd = curr_pollfd;

offset = curr_pollfd;

goto got_fd;

}

} while (curr_pollfd != last_pollfd);

}

continue;

}

got_fd:

/* if we accept() something we don't want to die, so we have to

for (;;) {

ap_sync_scoreboard_image();

status = listensocks[offset].accept_func(&csd,

&listensocks[offset], ptrans);

if (status == APR_SUCCESS) {

break;

}

if (status == APR_EGENERAL) {

clean_child_exit(APEXIT_CHILDFATAL);

}

ap_sync_scoreboard_image();

}

SAFE_ACCEPT(accept_mutex_off()); /* unlock after "accept" */

/*

current_conn = ap_run_create_connection(ptrans, ap_server_conf, csd, my_child_num);

if (current_conn) {

ap_process_connection(current_conn);

ap_lingering_close(current_conn);

}

/* Check the pod after processing a connection so that we'll go away

if (!ap_mpm_pod_check(pod)) {

die_now = 1;

}

ap_sync_scoreboard_image();

}

clean_child_exit(0);

}

static int make_child(server_rec *s, int slot)

{

int pid;

if (slot + 1 > ap_max_daemons_limit) {

ap_max_daemons_limit = slot + 1;

}

if (one_process) {

apr_signal(SIGHUP, just_die);

/* Don't catch AP_SIG_GRACEFUL in ONE_PROCESS mode :) */

apr_signal(SIGINT, just_die);

#ifdef SIGQUIT

apr_signal(SIGQUIT, SIG_DFL);

#endif

apr_signal(SIGTERM, just_die);

child_main(slot);

}

(void) ap_update_child_status(AP_CHILD_THREAD_FROM_ID(slot), SERVER_STARTING, (request_rec *) NULL);

#ifdef _OSD_POSIX

/* BS2000 requires a "special" version of fork() before a setuid() call */

if ((pid = os_fork(unixd_config.user_name)) == -1) {

#elif defined(TPF)

if ((pid = os_fork(s, slot)) == -1) {

#else

if ((pid = fork()) == -1) {

#endif

ap_log_error(APLOG_MARK, APLOG_ERR, errno, s, "fork: Unable to fork new process");

/* fork didn't succeed. Fix the scoreboard or else

(void) ap_update_child_status(AP_CHILD_THREAD_FROM_ID(slot), SERVER_DEAD, (request_rec *) NULL);

/* In case system resources are maxxed out, we don't want

sleep(10);

return -1;

}

if (!pid) {

#ifdef HAVE_BINDPROCESSOR

/* by default AIX binds to a single processor

int status = bindprocessor(BINDPROCESS, (int)getpid(),

PROCESSOR_CLASS_ANY);

if (status != OK) {

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_WARNING, errno,

ap_server_conf, "processor unbind failed %d", status);

}

#endif

RAISE_SIGSTOP(MAKE_CHILD);

/* Disable the parent's signal handlers and set up proper handling in

apr_signal(SIGHUP, just_die);

apr_signal(SIGTERM, just_die);

/* The child process doesn't do anything for AP_SIG_GRACEFUL.

apr_signal(AP_SIG_GRACEFUL, SIG_IGN);

child_main(slot);

}

ap_scoreboard_image->parent[slot].pid = pid;

#ifdef SCOREBOARD_FILE

lseek(scoreboard_fd, APR_XtOffsetOf(scoreboard, parent[slot]), 0);

force_write(scoreboard_fd, &ap_scoreboard_image->parent[slot],

sizeof(process_score));

#endif

return 0;

}

static void startup_children(int number_to_start)

{

int i;

for (i = 0; number_to_start && i < ap_daemons_limit; ++i) {

if (ap_scoreboard_image->servers[i][0].status != SERVER_DEAD) {

continue;

}

if (make_child(ap_server_conf, i) < 0) {

break;

}

--number_to_start;

}

}

static int idle_spawn_rate = 1;

#ifndef MAX_SPAWN_RATE

#define MAX_SPAWN_RATE (32)

#endif

static int hold_off_on_exponential_spawning;

static void perform_idle_server_maintenance(apr_pool_t *p)

{

int i;

int to_kill;

int idle_count;

worker_score *ws;

int free_length;

int free_slots[MAX_SPAWN_RATE];

int last_non_dead;

int total_non_dead;

/* initialize the free_list */

free_length = 0;

to_kill = -1;

idle_count = 0;

last_non_dead = -1;

total_non_dead = 0;

ap_sync_scoreboard_image();

for (i = 0; i < ap_daemons_limit; ++i) {

int status;

if (i >= ap_max_daemons_limit && free_length == idle_spawn_rate)

break;

ws = &ap_scoreboard_image->servers[i][0];

status = ws->status;

if (status == SERVER_DEAD) {

/* try to keep children numbers as low as possible */

if (free_length < idle_spawn_rate) {

free_slots[free_length] = i;

++free_length;

}

}

else {

/* We consider a starting server as idle because we started it

if (status <= SERVER_READY) {

++ idle_count;

/* always kill the highest numbered child if we have to...

to_kill = i;

}

++total_non_dead;

last_non_dead = i;

}

}

ap_max_daemons_limit = last_non_dead + 1;

if (idle_count > ap_daemons_max_free) {

/* kill off one child... we use the pod because that'll cause it to

ap_mpm_pod_signal(pod);

idle_spawn_rate = 1;

}

else if (idle_count < ap_daemons_min_free) {

/* terminate the free list */

if (free_length == 0) {

/* only report this condition once */

static int reported = 0;

if (!reported) {

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, ap_server_conf,

"server reached MaxClients setting, consider"

" raising the MaxClients setting");

reported = 1;

}

idle_spawn_rate = 1;

}

else {

if (idle_spawn_rate >= 8) {

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_INFO, 0, ap_server_conf,

"server seems busy, (you may need "

"to increase StartServers, or Min/MaxSpareServers), "

"spawning %d children, there are %d idle, and "

"%d total children", idle_spawn_rate,

idle_count, total_non_dead);

}

for (i = 0; i < free_length; ++i) {

#ifdef TPF

if (make_child(ap_server_conf, free_slots[i]) == -1) {

if(free_length == 1) {

shutdown_pending = 1;

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_EMERG, 0, ap_server_conf,

"No active child processes: shutting down");

}

}

#else

make_child(ap_server_conf, free_slots[i]);

#endif /* TPF */

}

/* the next time around we want to spawn twice as many if this

if (hold_off_on_exponential_spawning) {

--hold_off_on_exponential_spawning;

}

else if (idle_spawn_rate < MAX_SPAWN_RATE) {

idle_spawn_rate *= 2;

}

}

}

else {

idle_spawn_rate = 1;

}

}

int ap_mpm_run(apr_pool_t *_pconf, apr_pool_t *plog, server_rec *s)

{

int index;

int remaining_children_to_start;

apr_status_t rv;

pconf = _pconf;

ap_server_conf = s;

if ((num_listensocks = ap_setup_listeners(ap_server_conf)) < 1) {

/* XXX: hey, what's the right way for the mpm to indicate a fatal error? */

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_ALERT, 0, s,

"no listening sockets available, shutting down");

return 1;

}

ap_log_pid(pconf, ap_pid_fname);

if ((rv = ap_mpm_pod_open(pconf, &pod))) {

ap_log_error(APLOG_MARK, APLOG_CRIT, rv, s,

"Could not open pipe-of-death.");

return 1;

}

SAFE_ACCEPT(accept_mutex_init(pconf));

if (!is_graceful) {

ap_run_pre_mpm(pconf, SB_SHARED);

}

#ifdef SCOREBOARD_FILE

else {

ap_scoreboard_fname = ap_server_root_relative(pconf, ap_scoreboard_fname);

ap_note_cleanups_for_fd(pconf, scoreboard_fd);

}

#endif

set_signals();

if (ap_daemons_max_free < ap_daemons_min_free + 1) /* Don't thrash... */

ap_daemons_max_free = ap_daemons_min_free + 1;

/* If we're doing a graceful_restart then we're going to see a lot

remaining_children_to_start = ap_daemons_to_start;

if (remaining_children_to_start > ap_daemons_limit) {

remaining_children_to_start = ap_daemons_limit;

}

if (!is_graceful) {

startup_children(remaining_children_to_start);

remaining_children_to_start = 0;

}

else {

/* give the system some time to recover before kicking into

hold_off_on_exponential_spawning = 10;

}

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_NOTICE, 0, ap_server_conf,

"%s configured -- resuming normal operations",

ap_get_server_version());

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_INFO, 0, ap_server_conf,

"Server built: %s", ap_get_server_built());

restart_pending = shutdown_pending = 0;

while (!restart_pending && !shutdown_pending) {

int child_slot;

apr_exit_why_e exitwhy;

int status;

/* this is a memory leak, but I'll fix it later. */

apr_proc_t pid;

ap_wait_or_timeout(&exitwhy, &status, &pid, pconf);

/* XXX: if it takes longer than 1 second for all our children

if (pid.pid != -1) {

ap_process_child_status(&pid, exitwhy, status);

/* non-fatal death... note that it's gone in the scoreboard. */

ap_sync_scoreboard_image();

child_slot = find_child_by_pid(&pid);

if (child_slot >= 0) {

(void) ap_update_child_status(AP_CHILD_THREAD_FROM_ID(child_slot), SERVER_DEAD,

(request_rec *) NULL);

if (remaining_children_to_start

&& child_slot < ap_daemons_limit) {

/* we're still doing a 1-for-1 replacement of dead

make_child(ap_server_conf, child_slot);

--remaining_children_to_start;

}

#if APR_HAS_OTHER_CHILD

}

else if (apr_proc_other_child_read(&pid, status) == 0) {

/* handled */

#endif

}

else if (is_graceful) {

/* Great, we've probably just lost a slot in the

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_WARNING,

0, ap_server_conf,

"long lost child came home! (pid %ld)", (long)pid.pid);

}

/* Don't perform idle maintenance when a child dies,

continue;

}

else if (remaining_children_to_start) {

/* we hit a 1 second timeout in which none of the previous

startup_children(remaining_children_to_start);

remaining_children_to_start = 0;

/* In any event we really shouldn't do the code below because

continue;

}

perform_idle_server_maintenance(pconf);

#ifdef TPF

shutdown_pending = os_check_server(tpf_server_name);

ap_check_signals();

sleep(1);

#endif /*TPF */

}

if (shutdown_pending) {

/* Time to gracefully shut down:

if (unixd_killpg(getpgrp(), SIGTERM) < 0) {

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "killpg SIGTERM");

}

ap_reclaim_child_processes(1); /* Start with SIGTERM */

/* cleanup pid file on normal shutdown */

{

const char *pidfile = NULL;

pidfile = ap_server_root_relative (pconf, ap_pid_fname);

if ( pidfile != NULL && unlink(pidfile) == 0)

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_INFO,

0, ap_server_conf,

"removed PID file %s (pid=%ld)",

pidfile, (long)getpid());

}

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_NOTICE, 0, ap_server_conf,

"caught SIGTERM, shutting down");

return 1;

}

/* we've been told to restart */

apr_signal(SIGHUP, SIG_IGN);

if (one_process) {

/* not worth thinking about */

return 1;

}

/* advance to the next generation */

/* XXX: we really need to make sure this new generation number isn't in

++ap_my_generation;

ap_scoreboard_image->global.running_generation = ap_my_generation;

update_scoreboard_global();

if (is_graceful) {

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_NOTICE, 0, ap_server_conf,

"Graceful restart requested, doing restart");

/* kill off the idle ones */

ap_mpm_pod_killpg(pod, ap_daemons_limit);

#ifndef SCOREBOARD_FILE

/* This is mostly for debugging... so that we know what is still

ap_sync_scoreboard_image();

for (index = 0; index < ap_daemons_limit; ++index) {

if (ap_scoreboard_image->servers[index][0].status != SERVER_DEAD) {

ap_scoreboard_image->servers[index][0].status = SERVER_GRACEFUL;

}

}

#endif

}

else {

/* Kill 'em off */

if (unixd_killpg(getpgrp(), SIGHUP) < 0) {

ap_log_error(APLOG_MARK, APLOG_WARNING, errno, ap_server_conf, "killpg SIGHUP");

}

ap_reclaim_child_processes(0); /* Not when just starting up */

ap_log_error(APLOG_MARK, APLOG_NOERRNO|APLOG_NOTICE, 0, ap_server_conf,

"SIGHUP received. Attempting to restart");

}

return 0;

}

static void prefork_pre_config(apr_pool_t *p, apr_pool_t *plog, apr_pool_t *ptemp)

{

static int restart_num = 0;

int no_detach, debug;

debug = ap_exists_config_define("DEBUG");

if (debug)

no_detach = one_process = 1;

else

{

no_detach = ap_exists_config_define("NO_DETACH");

one_process = ap_exists_config_define("ONE_PROCESS");

}

/* sigh, want this only the second time around */

if (restart_num++ == 1) {

is_graceful = 0;

if (!one_process && !no_detach) {

apr_proc_detach();

}

parent_pid = ap_my_pid = getpid();

}

unixd_pre_config(ptemp);

ap_listen_pre_config();

ap_daemons_to_start = DEFAULT_START_DAEMON;

ap_daemons_min_free = DEFAULT_MIN_FREE_DAEMON;

ap_daemons_max_free = DEFAULT_MAX_FREE_DAEMON;

ap_daemons_limit = HARD_SERVER_LIMIT;

ap_pid_fname = DEFAULT_PIDLOG;

ap_scoreboard_fname = DEFAULT_SCOREBOARD;

ap_lock_fname = DEFAULT_LOCKFILE;

ap_max_requests_per_child = DEFAULT_MAX_REQUESTS_PER_CHILD;

ap_extended_status = 0;

apr_cpystrn(ap_coredump_dir, ap_server_root, sizeof(ap_coredump_dir));

}

static void prefork_hooks(apr_pool_t *p)

{

#ifdef AUX3

(void) set42sig();

#endif

ap_hook_pre_config(prefork_pre_config, NULL, NULL, APR_HOOK_MIDDLE);

}

static const char *set_daemons_to_start(cmd_parms *cmd, void *dummy, const char *arg)

{

const char *err = ap_check_cmd_context(cmd, GLOBAL_ONLY);

if (err != NULL) {

return err;

}

ap_daemons_to_start = atoi(arg);

return NULL;

}

static const char *set_min_free_servers(cmd_parms *cmd, void *dummy, const char *arg)

{

const char *err = ap_check_cmd_context(cmd, GLOBAL_ONLY);

if (err != NULL) {

return err;

}

ap_daemons_min_free = atoi(arg);

if (ap_daemons_min_free <= 0) {

ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL,

"WARNING: detected MinSpareServers set to non-positive.");

ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL,

"Resetting to 1 to avoid almost certain Apache failure.");

ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL,

"Please read the documentation.");

ap_daemons_min_free = 1;

}

return NULL;

}

static const char *set_max_free_servers(cmd_parms *cmd, void *dummy, const char *arg)

{

const char *err = ap_check_cmd_context(cmd, GLOBAL_ONLY);

if (err != NULL) {

return err;

}

ap_daemons_max_free = atoi(arg);

return NULL;

}

static const char *set_server_limit (cmd_parms *cmd, void *dummy, const char *arg)

{

const char *err = ap_check_cmd_context(cmd, GLOBAL_ONLY);

if (err != NULL) {

return err;

}

ap_daemons_limit = atoi(arg);

if (ap_daemons_limit > HARD_SERVER_LIMIT) {

ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL,

"WARNING: MaxClients of %d exceeds compile time limit "

"of %d servers,", ap_daemons_limit, HARD_SERVER_LIMIT);

ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL,

" lowering MaxClients to %d. To increase, please "

"see the", HARD_SERVER_LIMIT);

ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL,

" HARD_SERVER_LIMIT define in %s.",

AP_MPM_HARD_LIMITS_FILE);

ap_daemons_limit = HARD_SERVER_LIMIT;

}

else if (ap_daemons_limit < 1) {

ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL,

"WARNING: Require MaxClients > 0, setting to 1");

ap_daemons_limit = 1;

}

return NULL;

}

static const command_rec prefork_cmds[] = {

UNIX_DAEMON_COMMANDS,

LISTEN_COMMANDS,

AP_INIT_TAKE1("StartServers", set_daemons_to_start, NULL, RSRC_CONF,

"Number of child processes launched at server startup"),

AP_INIT_TAKE1("MinSpareServers", set_min_free_servers, NULL, RSRC_CONF,

"Minimum number of idle children, to handle request spikes"),

AP_INIT_TAKE1("MaxSpareServers", set_max_free_servers, NULL, RSRC_CONF,

"Maximum number of idle children"),

AP_INIT_TAKE1("MaxClients", set_server_limit, NULL, RSRC_CONF,

"Maximum number of children alive at the same time"),

{ NULL }

};

module AP_MODULE_DECLARE_DATA mpm_prefork_module = {

MPM20_MODULE_STUFF,

NULL, /* hook to run before apache parses args */

NULL, /* create per-directory config structure */

NULL, /* merge per-directory config structures */

NULL, /* create per-server config structure */

NULL, /* merge per-server config structures */

prefork_cmds, /* command apr_table_t */

prefork_hooks, /* register hooks */

};