#include "StdAfx.h"
#include <sys/stat.h>
#include <stdlib.h>
#ifdef	ACL_UNIX
# include <unistd.h>
# include <sys/time.h>			/* gettimeofday, not POSIX */
#elif defined(WIN32)
# include <process.h>
#endif

#include <ctype.h>
#include <errno.h>
#include <string.h>
#include <limits.h>

/* OpenSSL library. */

#ifdef USE_TLS
#include <openssl/rand.h>		/* For the PRNG */
#endif

#include "../attr/attr.h"

#ifndef UCHAR_MAX
#define UCHAR_MAX 0xff
#endif

/* TLS library. */

#ifdef USE_TLS
#include "tls.h"			/* TLS_MGR_SCACHE_<type> */
#include "tls_private.h"
#include "tls_mgr.h"
#include "tls_prng.h"
#include "tls_scache.h"
#include "tls_params.h"

/* Application-specific. */

 /*
  * Tunables.
  */
char   *var_tls_rand_source;
int     var_tls_rand_bytes;
int     var_tls_reseed_period;
int     var_tls_prng_exch_period;
int     var_server_tls_loglevel;
char   *var_server_tls_scache_db;
int     var_server_tls_scache_timeout;
int     var_client_tls_loglevel;
char   *var_client_tls_scache_db;
int     var_client_tls_scache_timeout;
char   *var_tls_rand_exch_name;
int     var_tlsmgr_stand_alone = 0;

 /*
  * Bound the time that we are willing to wait for an I/O operation. This
  * produces better error messages than waiting until the watchdog timer
  * kills the process.
  */
#define TLS_MGR_TIMEOUT	10

 /*
  * State for updating the PRNG exchange file.
  */
static TLS_PRNG_SRC *rand_exch;

 /*
  * State for seeding the internal PRNG from external source.
  */
static TLS_PRNG_SRC *rand_source_dev;
static TLS_PRNG_SRC *rand_source_egd;
static TLS_PRNG_SRC *rand_source_file;

 /*
  * The external entropy source type is encoded in the source name. The
  * obvious alternative is to have separate configuration parameters per
  * source type, so that one process can query multiple external sources.
  */
#define DEV_PREF "dev:"
#define DEV_PREF_LEN (sizeof((DEV_PREF)) - 1)
#define DEV_PATH(dev) ((dev) + EGD_PREF_LEN)

#define EGD_PREF "egd:"
#define EGD_PREF_LEN (sizeof((EGD_PREF)) - 1)
#define EGD_PATH(egd) ((egd) + EGD_PREF_LEN)

 /*
  * State for TLS session caches.
  */
typedef struct {
    char   *cache_label;		/* cache short-hand name */
    TLS_SCACHE *cache_info;		/* cache handle */
    int     cache_active;		/* cache status */
    char  **cache_db;			/* main.cf parameter value */
    int    *cache_loglevel;		/* main.cf parameter value */
    int    *cache_timeout;		/* main.cf parameter value */
} TLSMGR_SCACHE;

TLSMGR_SCACHE cache_table[] = {
    { TLS_MGR_SCACHE_SERVER, 0, 0, &var_server_tls_scache_db,
	&var_server_tls_loglevel, &var_server_tls_scache_timeout },
    { TLS_MGR_SCACHE_CLIENT, 0, 0, &var_client_tls_scache_db,
	&var_client_tls_loglevel, &var_client_tls_scache_timeout },
    { 0, 0, 0, 0, 0, 0 },
};

static ACL_EVENT *__eventp;
 /*
  * SLMs.
  */
#define STR(x)		acl_vstring_str(x)
#define LEN(x)		ACL_VSTRING_LEN(x)
#define STREQ(x, y)	(strcmp((x), (y)) == 0)

/* tlsmgr_prng_exch_event - update PRNG exchange file */

static void tlsmgr_prng_exch_event(int event_type acl_unused,
	ACL_EVENT *event acl_unused, void *dummy)
{
    const char *myname = "tlsmgr_prng_exch_event";
    unsigned char randbyte;
    int     next_period;
    struct acl_stat st;

    if (acl_msg_verbose)
	acl_msg_info("%s: update PRNG exchange file", myname);

    /*
     * Sanity check. If the PRNG exchange file was removed, there is no point
     * updating it further. Restart the process and update the new file.
     */
    if (acl_fstat(rand_exch->fd.file, &st) < 0)
	acl_msg_fatal("%s: cannot fstat() the PRNG exchange file: %s", myname, acl_last_serror());
    if (st.st_nlink == 0) {
	acl_msg_warn("%s: PRNG exchange file was removed -- exiting to reopen", myname);
	sleep(1);
	exit(0);
    }
    tls_prng_exch_update(rand_exch);

    /*
     * Make prediction difficult for outsiders and calculate the time for the
     * next execution randomly.
     */
    RAND_bytes(&randbyte, 1);
    next_period = (var_tls_prng_exch_period * randbyte) / UCHAR_MAX;
    acl_event_request_timer(__eventp, tlsmgr_prng_exch_event, dummy, next_period, 0);
}

/* tlsmgr_reseed_event - re-seed the internal PRNG pool */

static void tlsmgr_reseed_event(int event_type acl_unused,
	ACL_EVENT *event acl_unused, void *dummy)
{
    const char *myname = "tlsmgr_reseed_event";
    int     next_period;
    unsigned char randbyte;
    int     must_exit = 0;

    /*
     * Reseed the internal PRNG from external source. Errors are recoverable.
     * We simply restart and reconnect without making a fuss. This is OK
     * because we do require that exchange file updates succeed. The exchange
     * file is the only entropy source that really matters in the long term.
     * 
     * If the administrator specifies an external randomness source that we
     * could not open upon start-up, restart to see if we can open it now
     * (and log a nagging warning if we can't).
     */
    if (*var_tls_rand_source) {

	/*
	 * Source is a random device.
	 */
	if (rand_source_dev) {
	    if (tls_prng_dev_read(rand_source_dev, var_tls_rand_bytes) <= 0) {
		acl_msg_info("%s: cannot read from entropy device %s: %s -- "
			 "exiting to reopen", myname, DEV_PATH(var_tls_rand_source),
			 acl_last_serror());
		must_exit = 1;
	    }
	}

	/*
	 * Source is an EGD compatible socket.
	 */
	else if (rand_source_egd) {
	    if (tls_prng_egd_read(rand_source_egd, var_tls_rand_bytes) <= 0) {
		acl_msg_info("%s: lost connection to EGD server %s -- "
		     "exiting to reconnect", myname, EGD_PATH(var_tls_rand_source));
		must_exit = 1;
	    }
	}

	/*
	 * Source is a regular file. Read the content once and close the
	 * file.
	 */
	else if (rand_source_file) {
	    if (tls_prng_file_read(rand_source_file, var_tls_rand_bytes) <= 0)
		acl_msg_warn("%s: cannot read from entropy file %s: %s",
			 myname, var_tls_rand_source, acl_last_serror());
	    tls_prng_file_close(rand_source_file);
	    rand_source_file = 0;
	    var_tls_rand_source[0] = 0;
	}

	/*
	 * Could not open the external source upon start-up. See if we can
	 * open it this time. Save PRNG state before we exit.
	 */
	else {
	    acl_msg_info("exiting to reopen external entropy source %s",
		     var_tls_rand_source);
	    must_exit = 1;
	}
    }

    /*
     * Save PRNG state in case we must exit.
     */
    if (must_exit) {
	if (rand_exch)
	    tls_prng_exch_update(rand_exch);
	sleep(1);
	acl_msg_info("exit now");
	exit(0);
    }

    /*
     * Make prediction difficult for outsiders and calculate the time for the
     * next execution randomly.
     */
    RAND_bytes(&randbyte, 1);
    next_period = (var_tls_reseed_period * randbyte) / UCHAR_MAX;
    acl_event_request_timer(__eventp, tlsmgr_reseed_event, dummy, next_period, 0);
}

/* tlsmgr_cache_run_event - start TLS session cache scan */

static void tlsmgr_cache_run_event(int event_type acl_unused,
	ACL_EVENT *event acl_unused, void *ctx)
{
    const char *myname = "tlsmgr_cache_run_event";
    TLSMGR_SCACHE *cache = (TLSMGR_SCACHE *) ctx;

    /*
     * This routine runs when it is time for another TLS session cache scan.
     * Make sure this routine gets called again in the future.
     * 
     * Don't start a new scan when the timer goes off while cache cleanup is
     * still in progress.
     */
    if (cache->cache_info->verbose)
	acl_msg_info("%s: start TLS %s session cache cleanup",
		 myname, cache->cache_label);

    if (cache->cache_active == 0)
	cache->cache_active =
	    tls_scache_sequence(cache->cache_info, DICT_SEQ_FUN_FIRST,
				TLS_SCACHE_SEQUENCE_NOTHING);

    acl_event_request_timer(__eventp, tlsmgr_cache_run_event, (char *) cache,
			cache->cache_info->timeout, 0);
}

/* tlsmgr_loop - TLS manager main loop */

static int tlsmgr_loop(char *unused_name acl_unused, char **unused_argv acl_unused)
{
    struct timeval tv;
    int     active = 0;
    TLSMGR_SCACHE *ent;

    /*
     * Update the PRNG pool with the time of day. We do it here after every
     * event (including internal timer events and external client request
     * events), instead of doing it in individual event call-back routines.
     */
    gettimeofday(&tv, 0);
    RAND_seed(&tv, sizeof(struct timeval));

    /*
     * This routine runs as part of the event handling loop, after the event
     * manager has delivered a timer or I/O event, or after it has waited for
     * a specified amount of time. The result value of tlsmgr_loop()
     * specifies how long the event manager should wait for the next event.
     * 
     * We use this loop to interleave TLS session cache cleanup with other
     * activity. Interleaved processing is needed when we use a client-server
     * protocol for entropy and session state exchange with client(8) and
     * server(8) processes.
     */
#define DONT_WAIT	0
#define WAIT_FOR_EVENT	(-1)

    for (ent = cache_table; ent->cache_label; ++ent) {
	if (ent->cache_info && ent->cache_active)
	    active |= ent->cache_active =
		tls_scache_sequence(ent->cache_info, DICT_SEQ_FUN_NEXT,
				    TLS_SCACHE_SEQUENCE_NOTHING);
    }

    return (active ? DONT_WAIT : WAIT_FOR_EVENT);
}

/* tlsmgr_request_receive - receive request */

static int tlsmgr_request_receive(ACL_VSTREAM *client_stream, ACL_VSTRING *request)
{
    const char *myname = "tlsmgr_request_receive";
    int     count;

    /*
     * Kluge: choose the protocol depending on the request size.
     */
    if (acl_read_wait(ACL_VSTREAM_SOCK(client_stream), var_ipc_timeout) < 0) {
	acl_msg_warn("%s: timeout while waiting for data from %s",
		 myname, ACL_VSTREAM_PATH(client_stream));
	return (-1);
    }
    if ((count = acl_peekfd(ACL_VSTREAM_SOCK(client_stream))) < 0) {
	acl_msg_warn("%s: cannot examine read buffer of %s: %s",
		 myname, ACL_VSTREAM_PATH(client_stream), acl_last_serror());
	return (-1);
    }

    /*
     * Short request: master trigger. Use the string+null protocol.
     */
    if (count <= 2) {
	if (acl_vstring_gets_null(request, client_stream) == ACL_VSTREAM_EOF) {
	    acl_msg_warn("%s: end-of-input while reading request from %s: %s",
		     myname, ACL_VSTREAM_PATH(client_stream), acl_last_serror());
	    return (-1);
	}
    }

    /*
     * Long request: real tlsmgr client. Use the attribute list protocol.
     */
    else {
	if (attr_scan(client_stream,
		      ATTR_FLAG_MORE | ATTR_FLAG_STRICT,
		      ATTR_TYPE_STR, TLS_MGR_ATTR_REQ, request,
		      ATTR_TYPE_END) != 1) {
	    return (-1);
	}
    }
    return (0);
}

/* tlsmgr_service - respond to external request */

static void tlsmgr_service(ACL_VSTREAM *client_stream,
	char *unused_service acl_unused, char **argv acl_unused)
{
    const char *myname = "tlsmgr_service";
    static ACL_VSTRING *request = 0;
    static ACL_VSTRING *cache_type = 0;
    static ACL_VSTRING *cache_id = 0;
    static ACL_VSTRING *buffer = 0;
    int     len;
    static char wakeup[] = {            /* master wakeup request */
	TRIGGER_REQ_WAKEUP,
	0,
    };
    TLSMGR_SCACHE *ent;
    int     status = TLS_MGR_STAT_FAIL;

    /*
     * Sanity check. This service takes no command-line arguments.
     */
    if (var_tlsmgr_stand_alone && argv[0])
        acl_msg_fatal("unexpected command-line argument: %s", argv[0]);

    /*
     * Initialize. We're select threaded, so we can use static buffers.
     */
    if (request == 0) {
	request = acl_vstring_alloc(10);
	cache_type = acl_vstring_alloc(10);
	cache_id = acl_vstring_alloc(10);
	buffer = acl_vstring_alloc(10);
    }

    /*
     * This routine runs whenever a client connects to the socket dedicated
     * to the tlsmgr service (including wake up events sent by the master).
     * All connection-management stuff is handled by the common code in
     * multi_server.c.
     */
    if (tlsmgr_request_receive(client_stream, request) == 0) {

	/*
	 * Load session from cache.
	 */
	if (STREQ(STR(request), TLS_MGR_REQ_LOOKUP)) {
	    if (attr_scan(client_stream, ATTR_FLAG_STRICT,
			  ATTR_TYPE_STR, TLS_MGR_ATTR_CACHE_TYPE, cache_type,
			  ATTR_TYPE_STR, TLS_MGR_ATTR_CACHE_ID, cache_id,
			  ATTR_TYPE_END) == 2) {
		for (ent = cache_table; ent->cache_label; ++ent)
		    if (strcmp(ent->cache_label, STR(cache_type)) == 0)
			break;
		if (ent->cache_label == 0) {
		    acl_msg_warn("%s: bogus cache type \"%s\" in \"%s\" request",
			     myname, STR(cache_type), TLS_MGR_REQ_LOOKUP);
		    ACL_VSTRING_RESET(buffer);
		} else if (ent->cache_info == 0) {

		    /*
		     * Cache type valid, but not enabled
		     */
		    ACL_VSTRING_RESET(buffer);
		} else {
		    status = tls_scache_lookup(ent->cache_info,
					       STR(cache_id), buffer) ?
			TLS_MGR_STAT_OK : TLS_MGR_STAT_ERR;
		}
	    }
	    attr_print(client_stream, ATTR_FLAG_NONE,
		       ATTR_TYPE_INT, TLS_ATTR_STATUS, status,
		       ATTR_TYPE_DATA, TLS_MGR_ATTR_SESSION,
		       LEN(buffer), STR(buffer),
		       ATTR_TYPE_END);
	}

	/*
	 * Save session to cache.
	 */
	else if (STREQ(STR(request), TLS_MGR_REQ_UPDATE)) {
	    if (attr_scan(client_stream, ATTR_FLAG_STRICT,
			  ATTR_TYPE_STR, TLS_MGR_ATTR_CACHE_TYPE, cache_type,
			  ATTR_TYPE_STR, TLS_MGR_ATTR_CACHE_ID, cache_id,
			  ATTR_TYPE_DATA, TLS_MGR_ATTR_SESSION, buffer,
			  ATTR_TYPE_END) == 3) {
		for (ent = cache_table; ent->cache_label; ++ent)
		    if (strcmp(ent->cache_label, STR(cache_type)) == 0)
			break;
		if (ent->cache_label == 0) {
		    acl_msg_warn("%s: bogus cache type \"%s\" in \"%s\" request",
			     myname, STR(cache_type), TLS_MGR_REQ_UPDATE);
		} else if (ent->cache_info != 0) {
		    status = 0;
			tls_scache_update(ent->cache_info, STR(cache_id),
					  STR(buffer), LEN(buffer)) ?
			TLS_MGR_STAT_OK : TLS_MGR_STAT_ERR;
		}
	    }
	    attr_print(client_stream, ATTR_FLAG_NONE,
		       ATTR_TYPE_INT, TLS_ATTR_STATUS, status,
		       ATTR_TYPE_END);
	}

	/*
	 * Delete session from cache.
	 */
	else if (STREQ(STR(request), TLS_MGR_REQ_DELETE)) {
	    if (attr_scan(client_stream, ATTR_FLAG_STRICT,
			  ATTR_TYPE_STR, TLS_MGR_ATTR_CACHE_TYPE, cache_type,
			  ATTR_TYPE_STR, TLS_MGR_ATTR_CACHE_ID, cache_id,
			  ATTR_TYPE_END) == 2) {
		for (ent = cache_table; ent->cache_label; ++ent)
		    if (strcmp(ent->cache_label, STR(cache_type)) == 0)
			break;
		if (ent->cache_label == 0) {
		    acl_msg_warn("%s: bogus cache type \"%s\" in \"%s\" request",
			     myname, STR(cache_type), TLS_MGR_REQ_DELETE);
		} else if (ent->cache_info != 0) {
		    status = tls_scache_delete(ent->cache_info,
					       STR(cache_id)) ?
			TLS_MGR_STAT_OK : TLS_MGR_STAT_ERR;
		}
	    }
	    attr_print(client_stream, ATTR_FLAG_NONE,
		       ATTR_TYPE_INT, TLS_ATTR_STATUS, status,
		       ATTR_TYPE_END);
	}

	/*
	 * Entropy request.
	 */
	else if (STREQ(STR(request), TLS_MGR_REQ_SEED)) {
	    if (attr_scan(client_stream, ATTR_FLAG_STRICT,
			  ATTR_TYPE_INT, TLS_MGR_ATTR_SIZE, &len,
			  ATTR_TYPE_END) == 1) {
		ACL_VSTRING_RESET(buffer);
		if (len <= 0 || len > 255) {
		    acl_msg_warn("%s: bogus seed length \"%d\" in \"%s\" request",
			     myname, len, TLS_MGR_REQ_SEED);
		} else {
		    ACL_VSTRING_SPACE(buffer, len);
		    RAND_bytes((unsigned char *) STR(buffer), len);
		    ACL_VSTRING_AT_OFFSET(buffer, len);	/* XXX not part of the
							 * official interface */
		    status = TLS_MGR_STAT_OK;
		}
	    }
	    attr_print(client_stream, ATTR_FLAG_NONE,
		       ATTR_TYPE_INT, TLS_ATTR_STATUS, status,
		       ATTR_TYPE_DATA, TLS_MGR_ATTR_SEED,
		       LEN(buffer), STR(buffer),
		       ATTR_TYPE_END);
	}

	/*
	 * Caching policy request.
	 */
	else if (STREQ(STR(request), TLS_MGR_REQ_POLICY)) {
	    int     cachable = 0;

	    if (attr_scan(client_stream, ATTR_FLAG_STRICT,
			  ATTR_TYPE_STR, TLS_MGR_ATTR_CACHE_TYPE, cache_type,
			  ATTR_TYPE_END) == 1) {
		for (ent = cache_table; ent->cache_label; ++ent)
		    if (strcmp(ent->cache_label, STR(cache_type)) == 0)
			break;
		if (ent->cache_label == 0) {
		    acl_msg_warn("%s: bogus cache type \"%s\" in \"%s\" request",
			     myname, STR(cache_type), TLS_MGR_REQ_POLICY);
		} else {
		    cachable = (ent->cache_info != 0) ? 1 : 0;
		    status = TLS_MGR_STAT_OK;
		}
	    }
	    attr_print(client_stream, ATTR_FLAG_NONE,
		       ATTR_TYPE_INT, TLS_ATTR_STATUS, status,
		       ATTR_TYPE_INT, TLS_MGR_ATTR_CACHABLE, cachable,
		       ATTR_TYPE_END);
	}
        
	/*
	 * Master trigger. Normally, these triggers arrive only after some
	 * other process requested the tlsmgr's service. The purpose is to
	 * restart the tlsmgr after it aborted due to a fatal run-time error,
	 * so that it can continue its housekeeping even while nothing is
	 * using TLS.
	 * 
	 * XXX Which begs the question, if TLS isn't used often, do we need a
	 * tlsmgr background process? It could terminate when the session
	 * caches are empty.
	 */
	else if (var_tlsmgr_stand_alone && STREQ(STR(request), wakeup)) {
	    if (acl_msg_verbose)
		acl_msg_info("received master trigger");
#ifdef ACL_UNIX
	    acl_multi_server_disconnect(client_stream);
#endif
	    return;                             /* NOT: acl_vstream_fflush */
	}

	/*
	 * protocol error
	 */
	else {
	    attr_print(client_stream, ATTR_FLAG_NONE,
			ATTR_TYPE_INT, TLS_ATTR_STATUS, TLS_MGR_STAT_FAIL,
			ATTR_TYPE_END);
	}
    }

    /*
     * Protocol error.
     */
    else {
	attr_print(client_stream, ATTR_FLAG_NONE,
		   ATTR_TYPE_INT, TLS_ATTR_STATUS, TLS_MGR_STAT_FAIL,
		   ATTR_TYPE_END);
    }
    acl_vstream_fflush(client_stream);
}

/* tlsmgr_pre_init - pre-jail initialization */

static void tlsmgr_pre_init(char *unused_name acl_unused, char **unused_argv acl_unused)
{
    const char *myname = "tlsmgr_pre_init";
    char   *path;
    struct timeval tv;
    TLSMGR_SCACHE *ent;
    ACL_HTABLE *dup_filter;
    const char *dup_label;

    /*
     * If nothing else works then at least this will get us a few bits of
     * entropy.
     * 
     * XXX This is our first call into the OpenSSL library. We should find out
     * if this can be moved to the post-jail initialization phase, without
     * breaking compatibility with existing installations.
     */
#ifdef WIN32
# define getpid _getpid
#endif
    gettimeofday(&tv, 0);
    tv.tv_sec ^= getpid();
    RAND_seed(&tv, sizeof(struct timeval));

    /*
     * Open the external entropy source. We will not be able to open it again
     * after we are sent to chroot jail, so we keep it open. Errors are not
     * fatal. The exchange file (see below) is the only entropy source that
     * really matters in the long run.
     * 
     * Security note: we open the entropy source while privileged, but we don't
     * access the source until after we release privileges. This way, none of
     * the OpenSSL code gets to execute while we are privileged.
     */
    if (*var_tls_rand_source) {

	/*
	 * Source is a random device.
	 */
	if (!strncmp(var_tls_rand_source, DEV_PREF, DEV_PREF_LEN)) {
	    path = DEV_PATH(var_tls_rand_source);
	    rand_source_dev = tls_prng_dev_open(path, TLS_MGR_TIMEOUT);
	    if (rand_source_dev == 0)
		acl_msg_warn("%s: cannot open entropy device %s: %s",
			myname, path, acl_last_serror());
	}

	/*
	 * Source is an EGD compatible socket.
	 */
	else if (!strncmp(var_tls_rand_source, EGD_PREF, EGD_PREF_LEN)) {
	    path = EGD_PATH(var_tls_rand_source);
	    rand_source_egd = tls_prng_egd_open(path, TLS_MGR_TIMEOUT);
	    if (rand_source_egd == 0)
		acl_msg_warn("%s: cannot connect to EGD server %s: %s",
			myname, path, acl_last_serror());
	}

	/*
	 * Source is regular file. We read this only once.
	 */
	else {
	    rand_source_file =
		tls_prng_file_open(var_tls_rand_source, TLS_MGR_TIMEOUT);
	}
    } else {
	acl_msg_warn("%s: no entropy source specified with parameter %s",
		 myname, VAR_TLS_RAND_SOURCE);
	acl_msg_warn("%s: encryption keys etc. may be predictable", myname);
    }

    /*
     * Open the PRNG exchange file before going to jail, but don't use root
     * privileges. Start the exchange file read/update pseudo thread after
     * dropping privileges.
     */
    if (*var_tls_rand_exch_name) {
	rand_exch = tls_prng_exch_open(var_tls_rand_exch_name);
	if (rand_exch == 0)
	    acl_msg_fatal("cannot open PRNG exchange file %s: %s",
		      var_tls_rand_exch_name, acl_last_serror());
    }

    /*
     * Open the session cache files and discard old information before going
     * to jail, but don't use root privilege. Start the cache maintenance
     * pseudo threads after dropping privileges.
     */

    if (!var_tlsmgr_stand_alone)
	tls_scache_init();

    dup_filter = acl_htable_create(sizeof(cache_table) / sizeof(cache_table[0]), 0);
    for (ent = cache_table; ent->cache_label; ++ent) {
	if (**ent->cache_db) {
	    if ((dup_label = acl_htable_find(dup_filter, *ent->cache_db)) != 0)
		acl_msg_fatal("do not use the same TLS cache file %s for %s and %s",
			  *ent->cache_db, dup_label, ent->cache_label);
	    acl_htable_enter(dup_filter, *ent->cache_db, ent->cache_label);
	    ent->cache_info = tls_scache_open(*ent->cache_db,
					ent->cache_label,
					*ent->cache_loglevel >= 2,
					*ent->cache_timeout);
	}
    }
    acl_htable_free(dup_filter, NULL);
}

/* tlsmgr_post_init - post-jail initialization */

static void tlsmgr_post_init(char *unused_name acl_unused,
	char **unused_argv acl_unused)
{
    const char *myname = "tlsmgr_post_init";
    TLSMGR_SCACHE *ent;

#define NULL_EVENT	(0)
#define NULL_CONTEXT	((char *) 0)

#ifdef ACL_UNIX
    if (var_tlsmgr_stand_alone)
	__eventp = acl_multi_server_event();
    else
#endif
	__eventp = acl_event_new_select(1, 0);

    if (__eventp == NULL)
	acl_msg_fatal("%s: __eventp null", myname);

    if (var_tlsmgr_stand_alone) {
	/*
	 * This routine runs after the skeleton code has entered the chroot jail,
	 * but before any client requests are serviced. Prevent automatic process
	 * suicide after a limited number of client requests or after a limited
	 * amount of idle time.
	 */
#ifdef ACL_UNIX
	acl_var_multi_use_limit = 0;
	acl_var_multi_idle_limit = 0;
#endif
    }

    /*
     * Start the internal PRNG re-seeding pseudo thread first.
     */
    if (*var_tls_rand_source) {
	if (var_tls_reseed_period > INT_MAX / UCHAR_MAX)
	    var_tls_reseed_period = INT_MAX / UCHAR_MAX;
	tlsmgr_reseed_event(NULL_EVENT, NULL, NULL_CONTEXT);
    }

    /*
     * Start the exchange file read/update pseudo thread.
     */
    if (*var_tls_rand_exch_name) {
	if (var_tls_prng_exch_period > INT_MAX / UCHAR_MAX)
	    var_tls_prng_exch_period = INT_MAX / UCHAR_MAX;
	tlsmgr_prng_exch_event(NULL_EVENT, NULL, NULL_CONTEXT);
    }

    /*
     * Start the cache maintenance pseudo threads last. Strictly speaking
     * there is nothing to clean up after we truncate the database to zero
     * length, but early cleanup makes verbose logging more informative (we
     * get positive confirmation that the cleanup threads are running).
     */
    for (ent = cache_table; ent->cache_label; ++ent)
	if (ent->cache_info)
	    tlsmgr_cache_run_event(NULL_EVENT, NULL, (char *) ent);
}

/* tlsmgr_before_exit - save PRNG state before exit */

static void tlsmgr_before_exit(char *unused_service_name acl_unused,
	char **unused_argv acl_unused)
{

    /*
     * Save state before we exit after "postfix reload".
     */
    if (rand_exch)
	tls_prng_exch_update(rand_exch);
}

#ifdef ACL_UNIX

void   tlsmgr_alone_start(int argc, char *argv[])
{
    static ACL_CONFIG_STR_TABLE str_table[] = {
	{ VAR_TLS_RAND_SOURCE, DEF_TLS_RAND_SOURCE, &var_tls_rand_source },
	{ VAR_TLS_RAND_EXCH_NAME, DEF_TLS_RAND_EXCH_NAME, &var_tls_rand_exch_name },
	{ VAR_SERVER_TLS_SCACHE_DB, DEF_SERVER_TLS_SCACHE_DB, &var_server_tls_scache_db },
	{ VAR_CLIENT_TLS_SCACHE_DB, DEF_CLIENT_TLS_SCACHE_DB, &var_client_tls_scache_db },
	{ 0, 0, 0 },
    };
    static ACL_CONFIG_INT_TABLE int_table[] = {
	{ VAR_TLS_RAND_BYTES, DEF_TLS_RAND_BYTES, &var_tls_rand_bytes, 1, 0 },
	{ VAR_SERVER_TLS_LOGLEVEL, DEF_SERVER_TLS_LOGLEVEL, &var_server_tls_loglevel, 0, 0 },
	{ VAR_CLIENT_TLS_LOGLEVEL, DEF_CLIENT_TLS_LOGLEVEL, &var_client_tls_loglevel, 0, 0 },

	{ VAR_TLS_RESEED_PERIOD, DEF_TLS_RESEED_PERIOD, &var_tls_reseed_period, 1, 0 },
	{ VAR_TLS_PRNG_UPD_PERIOD, DEF_TLS_PRNG_UPD_PERIOD, &var_tls_prng_exch_period, 1, 0 },
	{ VAR_SERVER_TLS_SCACHTIME, DEF_SERVER_TLS_SCACHTIME, &var_server_tls_scache_timeout, 0, 0 },
	{ VAR_CLIENT_TLS_SCACHTIME, DEF_CLIENT_TLS_SCACHTIME, &var_client_tls_scache_timeout, 0, 0 },
	{ 0, 0, 0, 0, 0 },
    };

    /*
     * Use the multi service skeleton, and require that no-one else is
     * monitoring our service port while this process runs.
     */
    acl_multi_server_main(argc, argv, tlsmgr_service,
	    ACL_MASTER_SERVER_INT_TABLE, int_table,
	    ACL_MASTER_SERVER_STR_TABLE, str_table,
	    ACL_MASTER_SERVER_PRE_INIT, tlsmgr_pre_init,
	    ACL_MASTER_SERVER_POST_INIT, tlsmgr_post_init,
	    ACL_MASTER_SERVER_EXIT, tlsmgr_before_exit,
	    ACL_MASTER_SERVER_LOOP, tlsmgr_loop,
	    ACL_MASTER_SERVER_SOLITARY,
	    0);
}

#endif  /* ACL_UNIX */

static void client_ready_callback(int event_type acl_unused,
	ACL_EVENT *event, ACL_VSTREAM *stream acl_unused, void *ctx)
{
    ACL_VSTREAM *client_stream = (ACL_VSTREAM*) ctx;

    tlsmgr_service(client_stream, NULL, NULL);
    acl_event_enable_read(event, client_stream,
	0, client_ready_callback, client_stream);
}

static void listen_callback(int event_type acl_unused, ACL_EVENT *event,
	ACL_VSTREAM *stream, void *ctx acl_unused)
{
    const char *myname = "listen_callback";
    ACL_VSTREAM *client_stream;

    client_stream = acl_vstream_accept(stream, NULL, 0);
    if (client_stream == NULL) {
	acl_msg_warn("%s(%d): accept error(%s)",
		myname, __LINE__, acl_last_serror());
	return;
    }
    acl_event_enable_read(event, client_stream,
	0, client_ready_callback, client_stream);
}

static void *tlsmgr_thread_main(void *arg)
{
    ACL_VSTREAM *server_stream = (ACL_VSTREAM*) arg;
    int   delay_sec;

    acl_event_enable_listen(__eventp, server_stream,
	    0, listen_callback, server_stream);
    while (1) {
	delay_sec = tlsmgr_loop(NULL, NULL);
	acl_event_set_delay_sec(__eventp, delay_sec);
	acl_event_loop(__eventp);
    }

    acl_vstream_close(server_stream);
    tlsmgr_before_exit(NULL, NULL);
    return (NULL);
}

void   tlsmgr_local_start(const char *addr)
{
    const char *myname = "tlsmgr_local_start";
    static ACL_CONFIG_STR_TABLE str_table[] = {
	{ VAR_TLS_RAND_SOURCE, DEF_TLS_RAND_SOURCE, &var_tls_rand_source },
	{ VAR_TLS_RAND_EXCH_NAME, DEF_TLS_RAND_EXCH_NAME, &var_tls_rand_exch_name },
	{ VAR_SERVER_TLS_SCACHE_DB, DEF_SERVER_TLS_SCACHE_DB, &var_server_tls_scache_db },
	{ VAR_CLIENT_TLS_SCACHE_DB, DEF_CLIENT_TLS_SCACHE_DB, &var_client_tls_scache_db },
	{ 0, 0, 0 },
    };
    static ACL_CONFIG_INT_TABLE int_table[] = {
	{ VAR_TLS_RAND_BYTES, DEF_TLS_RAND_BYTES, &var_tls_rand_bytes, 1, 0 },
	{ VAR_SERVER_TLS_LOGLEVEL, DEF_SERVER_TLS_LOGLEVEL, &var_server_tls_loglevel, 0, 0 },
	{ VAR_CLIENT_TLS_LOGLEVEL, DEF_CLIENT_TLS_LOGLEVEL, &var_client_tls_loglevel, 0, 0 },

	{ VAR_TLS_RESEED_PERIOD, DEF_TLS_RESEED_PERIOD, &var_tls_reseed_period, 1, 0 },
	{ VAR_TLS_PRNG_UPD_PERIOD, DEF_TLS_PRNG_UPD_PERIOD, &var_tls_prng_exch_period, 1, 0 },
	{ VAR_SERVER_TLS_SCACHTIME, DEF_SERVER_TLS_SCACHTIME, &var_server_tls_scache_timeout, 0, 0 },
	{ VAR_CLIENT_TLS_SCACHTIME, DEF_CLIENT_TLS_SCACHTIME, &var_client_tls_scache_timeout, 0, 0 },
	{ 0, 0, 0, 0, 0 },
    };
    acl_pthread_t tid;
    acl_pthread_attr_t attr;
    char  def_addr[] = "127.0.0.1:0";
    ACL_VSTREAM *server_stream;

    acl_get_app_conf_str_table(str_table);
    acl_get_app_conf_int_table(int_table);

    server_stream = acl_vstream_listen((addr == NULL || *addr == 0) ? def_addr : addr, 128);
    if (server_stream == NULL) {
    	tlsmgr_before_exit(NULL, NULL);
	acl_msg_error("%s(%d): listen addr(%s) error(%s)",
		myname, __LINE__, addr, acl_last_serror());
	return;
    }
    snprintf(var_tlsmgr_service, sizeof(var_tlsmgr_service),
	"inet:%s", ACL_VSTREAM_LOCAL(server_stream));

    tlsmgr_pre_init(NULL, NULL);
    tlsmgr_post_init(NULL, NULL);

    acl_pthread_attr_init(&attr);
#ifdef ACL_UNIX
    acl_pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED);
#else
    acl_pthread_attr_setdetachstate(&attr, ACL_PTHREAD_CREATE_DETACHED);
#endif

    acl_pthread_create(&tid, &attr, tlsmgr_thread_main, server_stream);
}

#endif  /* USE_TLS */