libsldap/common/ns_trace.c

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