X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=servers%2Fslapd%2Fback-tcl%2Ftcl_config.c;h=64174bca83e4aea140754dc1d4fc4b94682abead;hb=403f4479bc9f9a864122d4aeecf7284408918302;hp=6b7ab1f269ff8bce42c16376f1fa40cff83e895b;hpb=809c6570e45033435d940960d27c7cbb05afe50b;p=openldap

diff --git a/servers/slapd/back-tcl/tcl_config.c b/servers/slapd/back-tcl/tcl_config.c
index 6b7ab1f269..64174bca83 100644
--- 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.4 1999/02/18 01:18:39 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,7 +43,7 @@ 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);
@@ -56,7 +55,7 @@ tcl_back_db_config (
 		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);
@@ -86,7 +85,7 @@ 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);
@@ -96,7 +95,7 @@ tcl_back_db_config (
 		/* 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);
@@ -106,7 +105,7 @@ tcl_back_db_config (
 		/* 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);
@@ -116,7 +115,7 @@ tcl_back_db_config (
 		/* 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);
@@ -126,7 +125,7 @@ tcl_back_db_config (
 		/* 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);
@@ -136,7 +135,7 @@ tcl_back_db_config (
 		/* 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);
@@ -146,7 +145,7 @@ tcl_back_db_config (
 		/* 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);
@@ -156,7 +155,7 @@ tcl_back_db_config (
 		/* 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);
@@ -166,7 +165,7 @@ tcl_back_db_config (
 		/* 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);
@@ -174,7 +173,7 @@ tcl_back_db_config (
 		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);
 	}