Add OpenLDAP RCSid to *.[ch] in clients, libraries, and servers.

[openldap] / servers / slapd / back-tcl / tcl_config.c

diff --git a/servers/slapd/back-tcl/tcl_config.c b/servers/slapd/back-tcl/tcl_config.c
index d5378e36a700afee8581fa513d49db1bb41456db..64174bca83e4aea140754dc1d4fc4b94682abead 100644 (file)
--- a/servers/slapd/back-tcl/tcl_config.c
+++ b/servers/slapd/back-tcl/tcl_config.c
@@ -1,6 +1,5 @@
+/* $OpenLDAP$ */
 /* config.c - tcl backend configuration file routine
- *
- * $Id: tcl_config.c,v 1.3 1999/02/17 00:53:59 bcollins Exp $
  *
  * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
  *
@@ -22,7 +21,7 @@ struct i_info *global_i;
 int
 tcl_back_db_config (
        BackendDB * bd,
-       char *fname,
+       const char *fname,
        int lineno,
        int argc,
        char **argv
@@ -44,19 +43,19 @@ tcl_back_db_config (
        /* Script to load */
        if (strcasecmp (argv[0], "scriptpath") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing script in \"scriptpath <script>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->script_path = (char *) strdup (argv[1]);
+               ti->script_path = (char *) ch_strdup (argv[1]);
 
                /* use local interpreter */
        } else if (strcasecmp (argv[0], "tclrealm") == 0) {
                struct i_info *ii;
 
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing script in \"tclrealm <name>\" line\n",
                                fname, lineno, 0);
                        return (1);
@@ -77,7 +76,7 @@ tcl_back_db_config (
                                (sizeof (struct i_info));
 
                        ii->next->count = 0;
-                       ii->next->name = (char *) strdup (argv[1]);
+                       ii->next->name = (char *) ch_strdup (argv[1]);
                        ii->next->interp = NULL;
                        ii->next->next = NULL;
                        ti->ti_ii = ii->next;
@@ -86,95 +85,95 @@ tcl_back_db_config (
                /* proc for binds */
        } else if (strcasecmp (argv[0], "bind") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"bind <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_bind = (char *) strdup (argv[1]);
+               ti->ti_bind = (char *) ch_strdup (argv[1]);
 
                /* proc for unbinds */
        } else if (strcasecmp (argv[0], "unbind") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"unbind <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_unbind = (char *) strdup (argv[1]);
+               ti->ti_unbind = (char *) ch_strdup (argv[1]);
 
                /* proc for search */
        } else if (strcasecmp (argv[0], "search") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"search <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_search = (char *) strdup (argv[1]);
+               ti->ti_search = (char *) ch_strdup (argv[1]);
 
                /* proc for compares */
        } else if (strcasecmp (argv[0], "compare") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"compare <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_compare = (char *) strdup (argv[1]);
+               ti->ti_compare = (char *) ch_strdup (argv[1]);
 
                /* proc for modify */
        } else if (strcasecmp (argv[0], "modify") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"modify <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_modify = (char *) strdup (argv[1]);
+               ti->ti_modify = (char *) ch_strdup (argv[1]);
 
                /* proc for modrdn */
        } else if (strcasecmp (argv[0], "modrdn") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"modrdn <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_modrdn = (char *) strdup (argv[1]);
+               ti->ti_modrdn = (char *) ch_strdup (argv[1]);
 
                /* proc for add */
        } else if (strcasecmp (argv[0], "add") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"add <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_add = (char *) strdup (argv[1]);
+               ti->ti_add = (char *) ch_strdup (argv[1]);
 
                /* proc for delete */
        } else if (strcasecmp (argv[0], "delete") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"delete <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_delete = (char *) strdup (argv[1]);
+               ti->ti_delete = (char *) ch_strdup (argv[1]);
 
                /* proc for abandon */
        } else if (strcasecmp (argv[0], "abandon") == 0) {
                if (argc < 2) {
-                       Debug (LDAP_DEBUG_ANY,
+                       Debug (LDAP_DEBUG_CONFIG,
                                "%s: line %d: missing proc in \"abandon <proc>\" line\n",
                                fname, lineno, 0);
                        return (1);
                }
-               ti->ti_search = (char *) strdup (argv[1]);
+               ti->ti_search = (char *) ch_strdup (argv[1]);
 
        } else {
-               Debug (LDAP_DEBUG_ANY,
+               Debug (LDAP_DEBUG_CONFIG,
                        "Unknown tcl backend config: %s\n", argv[0], 0, 0);
                return (1);
        }