upstream/openldap
1
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2025-12-29 02:59:34 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove obsolete 7th arg (opatts) from send_search_entry() calls.

Browse source 
Add missing arg (refs or ctrls) to send_ldap_result() calls.
NOTE: Did not implement referral/ldapcontrol support in back-tcl.
This commit is contained in:
Hallvard Furuseth 1999-08-03 01:38:43 +00:00
parent 8a0b9e8a3b
commit 0310b8b048
8 changed files with 25 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
servers/slapd/back-tcl/tcl_add.c
View file

@ -1,6 +1,6 @@
/* add.c - tcl add routine
*
* $Id: tcl_add.c,v 1.5.6.1 1999/07/09 18:02:59 kdz Exp $
* $Id: tcl_add.c,v 1.6 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -31,7 +31,7 @@ tcl_back_add (
if (ti->ti_add == NULL) {
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"add not implemented", NULL );
"add not implemented", NULL, NULL );
return (-1);
}
@ -63,7 +63,7 @@ tcl_back_add (
if (err != LDAP_SUCCESS)
send_ldap_result (conn, op, err, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
free (results);
return (err);

6
servers/slapd/back-tcl/tcl_bind.c
View file

@ -1,6 +1,6 @@
/* bind.c - tcl bind routines
*
* $Id: tcl_bind.c,v 1.6.2.1 1999/07/09 18:02:59 kdz Exp $
* $Id: tcl_bind.c,v 1.7 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -37,7 +37,7 @@ tcl_back_bind (
if (ti->ti_bind == NULL) {
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"bind not implemented", NULL );
"bind not implemented", NULL, NULL );
return (-1);
}
@ -67,7 +67,7 @@ tcl_back_bind (
if (err != LDAP_SUCCESS)
send_ldap_result (conn, op, err, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
free (results);
return (err);

6
servers/slapd/back-tcl/tcl_compare.c
View file

@ -1,6 +1,6 @@
/* compare.c - tcl compare routines
*
* $Id: tcl_compare.c,v 1.5.6.1 1999/07/09 18:02:59 kdz Exp $
* $Id: tcl_compare.c,v 1.6 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -32,7 +32,7 @@ tcl_back_compare (
if (ti->ti_compare == NULL) {
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"compare not implemented", NULL );
"compare not implemented", NULL, NULL );
return (-1);
}
@ -63,7 +63,7 @@ tcl_back_compare (
if (err != LDAP_SUCCESS)
send_ldap_result (conn, op, err, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
free (results);
return (err);

6
servers/slapd/back-tcl/tcl_delete.c
View file

@ -1,6 +1,6 @@
/* delete.c - tcl delete routines
*
* $Id: tcl_delete.c,v 1.5.6.1 1999/07/09 18:02:59 kdz Exp $
* $Id: tcl_delete.c,v 1.6 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -30,7 +30,7 @@ tcl_back_delete (
if (ti->ti_delete == NULL) {
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"delete not implemented", NULL );
"delete not implemented", NULL, NULL );
return (-1);
}
@ -59,7 +59,7 @@ tcl_back_delete (
if (err != LDAP_SUCCESS)
send_ldap_result (conn, op, err, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
free (results);
return (err);

6
servers/slapd/back-tcl/tcl_modify.c
View file

@ -1,6 +1,6 @@
/* modify.c - tcl modify routines
*
* $Id: tcl_modify.c,v 1.5.6.1 1999/07/09 18:02:59 kdz Exp $
* $Id: tcl_modify.c,v 1.6 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -32,7 +32,7 @@ tcl_back_modify (
if (ti->ti_modify == NULL) {
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"modify not implemented", NULL );
"modify not implemented", NULL, NULL );
return (-1);
}
@ -110,7 +110,7 @@ tcl_back_modify (
if (err != LDAP_SUCCESS)
send_ldap_result (conn, op, err, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
free (results);
return (err);

6
servers/slapd/back-tcl/tcl_modrdn.c
View file

@ -1,6 +1,6 @@
/* modrdn.c - tcl modify rdn routines
*
* $Id: tcl_modrdn.c,v 1.7.6.1 1999/07/09 18:02:59 kdz Exp $
* $Id: tcl_modrdn.c,v 1.8 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -47,7 +47,7 @@ tcl_back_modrdn (
if (ti->ti_modrdn == NULL) {
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"modrdn not implemented", NULL );
"modrdn not implemented", NULL, NULL );
return (-1);
}
@ -84,7 +84,7 @@ tcl_back_modrdn (
if (err != LDAP_SUCCESS)
send_ldap_result (conn, op, err, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
free (results);
return (err);

6
servers/slapd/back-tcl/tcl_search.c
View file

@ -1,6 +1,6 @@
/* search.c - tcl search routines
*
* $Id: tcl_search.c,v 1.5.6.1 1999/07/09 18:02:59 kdz Exp $
* $Id: tcl_search.c,v 1.6 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -40,7 +40,7 @@ tcl_back_search (
if (ti->ti_search == NULL) {
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"search not implemented", NULL );
"search not implemented", NULL, NULL );
return (-1);
}
@ -80,7 +80,7 @@ tcl_back_search (
if (err != LDAP_SUCCESS)
send_ldap_result (conn, op, err, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
free (results);
return (err);

8
servers/slapd/back-tcl/tcl_util.c
View file

@ -1,6 +1,6 @@
/* result.c - tcl backend utility functions
*
* $Id: tcl_util.c,v 1.6.2.2 1999/07/14 00:54:37 kdz Exp $
* $Id: tcl_util.c,v 1.7 1999/07/16 00:45:52 kdz Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
@ -47,7 +47,7 @@ interp_send_results (
if (code != TCL_OK) {
argcPtr = 0;
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"internal backend error", NULL );
"internal backend error", NULL, NULL );
return -1;
}
for (i = 0; i < argcPtr; i++) {
@ -80,7 +80,7 @@ interp_send_results (
buf, 0, 0);
} else {
send_search_entry (be, conn, op, e, attrs,
attrsonly, 0, NULL );
attrsonly, NULL );
entry_free (e);
}
@ -94,7 +94,7 @@ interp_send_results (
* otherwise, front end will send this result
*/
if (err != 0 || op->o_tag != LDAP_REQ_BIND) {
send_ldap_result (conn, op, err, matched, info, NULL );
send_ldap_result (conn, op, err, matched, info, NULL, NULL );
}
free (buf);