/*
 * 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.
 */

/*
 * 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);
}