/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 1999-2003 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

/*
 * Turning DEBUG on for this library opens a potential security hole.  If
 * the library is compiled with DEBUG, it should only be done for internal
 * testing.
 */
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <syslog.h>


#ifdef DEBUG
#define	OPT_INT		1
#define	OPT_STRING	2
#define	OPT_FILE	3

int	__ldap_debug_file = 2;
int	__ldap_debug_api;
int	__ldap_debug_ldap;
int	__ldap_debug_servers;

struct option {
	char	*name;
	int	type;
	void	*address;
};

static struct option options[] = {
	{ "debug_file", OPT_FILE, &__ldap_debug_file },
	{ "debug_api", OPT_INT, &__ldap_debug_api },
	{ "debug_ldap", OPT_INT, &__ldap_debug_servers },
	{ 0, 0, 0 },
};

#ifdef NS_NO_STDIO
extern int __ns_ldap_raise_fd(int);
#endif

static void
set_option(char *name, char *val)
{
	struct option *opt;
	int		n;
	char		*p;
	int		fd;

	for (opt = options; opt->name; opt++) {
		if (strcasecmp(name, opt->name) == 0) {
			switch (opt->type) {
			    case OPT_STRING:
				p = strdup(val);
				*((char **)opt->address) = p;
				break;
			    case OPT_INT:
				if (val && *val == '\0')
					n = 1;
				else
					n = atoi(val);
				*((int *)opt->address) = n;
				break;
			    case OPT_FILE:
				/* this is a potential security risk    */
				/* as setuid programs will create files */
				/* owned by root.  This is only to be   */
				/* used for internal debugging.		*/
				fd = open(val, O_WRONLY | O_CREAT, 0644);
#ifdef NS_NO_STDIO
				fd = __ns_ldap_raise_fd(fd);
#endif
				*((int *)opt->address) = fd;
				break;
			}
			break;
		}
	}
}
#endif

void
get_environment()
{
#ifdef DEBUG
	char	*p;
	char	*base;
	char	optname[100];
	char	optval[100];

	p = getenv("LDAP_OPTIONS");
	if (p == NULL)
		return;

	while (*p) {
		while (isspace(*p))
			p++;
		if (*p == '\0')
			break;
		base = p;
		while (*p && *p != '=' && !isspace(*p))
			p++;
		(void) strncpy(optname, base, p - base);
		optname[p - base] = '\0';
		if (*p == '=') {
			p++;
			base = p;
			while (*p && !isspace(*p))
				p++;
			(void) strncpy(optval, base, p - base);
			optval[p - base] = '\0';
		} else {
			optval[0] = '\0';
		}
		set_option(optname, optval);
	}

	(void) fprintf(stderr, "debug_api: %d\n", __ldap_debug_api);
	(void) fprintf(stderr, "debug_ldap: %d\n", __ldap_debug_ldap);
	(void) fprintf(stderr, "debug_servers: %d\n", __ldap_debug_servers);
#endif
}

/*ARGSUSED*/
void
__s_api_debug_pause(int priority, int st, const char *mesg)
{
	if (mesg)
		syslog(priority, "libsldap: Status: %d  Mesg: %s", st, mesg);
}