From 68c7d375da2a163964c680d238ee272427fc8f11 Mon Sep 17 00:00:00 2001 From: Howard Chu Date: Thu, 9 Jun 2011 15:37:11 -0700 Subject: [PATCH] Revert "ITS#6688 enforce search ACL in back-perl" This reverts commit 53bb95a2e3456806b503415fb745eae1146c0627. Code was working as designed/documented. Changing now will probably break other users. --- servers/slapd/back-perl/search.c | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/servers/slapd/back-perl/search.c b/servers/slapd/back-perl/search.c index e50fa0c128..9d209ebd98 100644 --- a/servers/slapd/back-perl/search.c +++ b/servers/slapd/back-perl/search.c @@ -35,27 +35,6 @@ perl_back_search( int i; PERL_SET_CONTEXT( PERL_INTERPRETER ); - - { - Entry base = {0}; - slap_mask_t mask; - /* Require search access to base */ - base.e_name = op->o_req_dn; - base.e_nname = op->o_req_ndn; - if ( !access_allowed_mask( op, &base, slap_schema.si_ad_entry, - NULL, ACL_SEARCH, NULL, &mask )) - { - if ( !ACL_GRANT( mask, ACL_DISCLOSE )) { - rs->sr_err = LDAP_NO_SUCH_OBJECT; - } else { - rs->sr_err = LDAP_INSUFFICIENT_ACCESS; - } - - send_ldap_result( op, rs ); - return rs->sr_err; - } - } - ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex ); { -- 2.39.5