]> git.sur5r.net Git - openldap/blobdiff - servers/slapd/acl.c
uses URL extensions to set socket permissions other than default
[openldap] / servers / slapd / acl.c
index 3ea0297873420ebfa0658b5a9b17cd0a30db6080..5f62a291296e6472e514f23b0b9b5204c888ced6 100644 (file)
@@ -15,6 +15,7 @@
 
 #include "slap.h"
 #include "sets.h"
+#include "lber_pvt.h"
 
 
 /*
@@ -66,9 +67,9 @@ static int aci_mask(
 #endif
 
 static int     regex_matches(
-       char *pat, char *str, char *buf, regmatch_t *matches);
+       struct berval *pat, char *str, char *buf, regmatch_t *matches);
 static void    string_expand(
-       struct berval *newbuf, char *pattern,
+       struct berval *newbuf, struct berval *pattern,
        char *match, regmatch_t *matches);
 
 typedef        struct AciSetCookie {
@@ -78,7 +79,7 @@ typedef       struct AciSetCookie {
        Operation *op;
 } AciSetCookie;
 
-BerVarray aci_set_gather (void *cookie, char *name, struct berval *attr);
+SLAP_SET_GATHER aci_set_gather;
 static int aci_match_set ( struct berval *subj, Backend *be,
     Entry *e, Connection *conn, Operation *op, int setref );
 
@@ -378,7 +379,7 @@ acl_get(
                                        if ( dnlen <= patlen )
                                                continue;
 
-                                       if ( !DN_SEPARATOR( e->e_ndn[dnlen - patlen - 1] ) || DN_ESCAPE( e->e_ndn[dnlen - patlen - 2] ) )
+                                       if ( !DN_SEPARATOR( e->e_ndn[dnlen - patlen - 1] ) )
                                                continue;
 
                                        rdnlen = dn_rdnlen( NULL, &e->e_nname );
@@ -386,13 +387,13 @@ acl_get(
                                                continue;
 
                                } else if ( a->acl_dn_style == ACL_STYLE_SUBTREE ) {
-                                       if ( dnlen > patlen && ( !DN_SEPARATOR( e->e_ndn[dnlen - patlen - 1] ) || DN_ESCAPE( e->e_ndn[dnlen - patlen - 2] ) ) )
+                                       if ( dnlen > patlen && !DN_SEPARATOR( e->e_ndn[dnlen - patlen - 1] ) )
                                                continue;
 
                                } else if ( a->acl_dn_style == ACL_STYLE_CHILDREN ) {
                                        if ( dnlen <= patlen )
                                                continue;
-                                       if ( !DN_SEPARATOR( e->e_ndn[dnlen - patlen - 1] ) || DN_ESCAPE( e->e_ndn[dnlen - patlen - 2] ) )
+                                       if ( !DN_SEPARATOR( e->e_ndn[dnlen - patlen - 1] ) )
                                                continue;
                                }
 
@@ -531,17 +532,17 @@ acl_mask(
                         * user is bound as somebody in the same namespace as
                         * the entry, OR the given dn matches the dn pattern
                         */
-                       if ( ber_cmp( &b->a_dn_pat, &aci_bv_anonymous ) == 0 ) {
+                       if ( ber_bvcmp( &b->a_dn_pat, &aci_bv_anonymous ) == 0 ) {
                                if ( op->o_ndn.bv_len != 0 ) {
                                        continue;
                                }
 
-                       } else if ( ber_cmp( &b->a_dn_pat, &aci_bv_users ) == 0 ) {
+                       } else if ( ber_bvcmp( &b->a_dn_pat, &aci_bv_users ) == 0 ) {
                                if ( op->o_ndn.bv_len == 0 ) {
                                        continue;
                                }
 
-                       } else if ( ber_cmp( &b->a_dn_pat, &aci_bv_self ) == 0 ) {
+                       } else if ( ber_bvcmp( &b->a_dn_pat, &aci_bv_self ) == 0 ) {
                                if ( op->o_ndn.bv_len == 0 ) {
                                        continue;
                                }
@@ -551,9 +552,8 @@ acl_mask(
                                }
 
                        } else if ( b->a_dn_style == ACL_STYLE_REGEX ) {
-                               if ( b->a_dn_pat.bv_len != 1 || 
-                                   ber_charcmp( &b->a_dn_pat, '*' ) != 0 ) {
-                                       int ret = regex_matches( b->a_dn_pat.bv_val,
+                               if ( ber_bvccmp( &b->a_dn_pat, '*' ) == 0 ) {
+                                       int ret = regex_matches( &b->a_dn_pat,
                                                op->o_ndn.bv_val, e->e_ndn, matches );
 
                                        if( ret == 0 ) {
@@ -581,7 +581,7 @@ acl_mask(
                                        if ( odnlen <= patlen )
                                                continue;
 
-                                       if ( !DN_SEPARATOR( op->o_ndn.bv_val[odnlen - patlen - 1] ) || DN_ESCAPE( op->o_ndn.bv_val[odnlen - patlen - 2] ) )
+                                       if ( !DN_SEPARATOR( op->o_ndn.bv_val[odnlen - patlen - 1] ) )
                                                continue;
 
                                        rdnlen = dn_rdnlen( NULL, &op->o_ndn );
@@ -589,110 +589,109 @@ acl_mask(
                                                continue;
 
                                } else if ( b->a_dn_style == ACL_STYLE_SUBTREE ) {
-                                       if ( odnlen > patlen && ( !DN_SEPARATOR( op->o_ndn.bv_val[odnlen - patlen - 1] ) || DN_ESCAPE( op->o_ndn.bv_val[odnlen - patlen - 2] ) ) )
+                                       if ( odnlen > patlen && !DN_SEPARATOR( op->o_ndn.bv_val[odnlen - patlen - 1] ) )
                                                continue;
 
                                } else if ( b->a_dn_style == ACL_STYLE_CHILDREN ) {
                                        if ( odnlen <= patlen )
                                                continue;
-                                       if ( !DN_SEPARATOR( op->o_ndn.bv_val[odnlen - patlen - 1] ) || DN_ESCAPE( op->o_ndn.bv_val[odnlen - patlen - 2] ) )
+                                       if ( !DN_SEPARATOR( op->o_ndn.bv_val[odnlen - patlen - 1] ) )
                                                continue;
                                }
 
                                if ( strcmp( b->a_dn_pat.bv_val, op->o_ndn.bv_val + odnlen - patlen ) != 0 )
                                        continue;
-
                        }
                }
 
-               if ( b->a_sockurl_pat != NULL ) {
+               if ( b->a_sockurl_pat.bv_len ) {
 #ifdef NEW_LOGGING
                        LDAP_LOG(( "acl", LDAP_LEVEL_DETAIL1,
                                   "acl_mask: conn %d  check a_sockurl_pat: %s\n",
-                                  conn->c_connid, b->a_sockurl_pat ));
+                                  conn->c_connid, b->a_sockurl_pat.bv_val ));
 #else
                        Debug( LDAP_DEBUG_ACL, "<= check a_sockurl_pat: %s\n",
-                               b->a_sockurl_pat, 0, 0 );
+                               b->a_sockurl_pat.bv_val, 0, 0 );
 #endif
 
-                       if ( strcmp( b->a_sockurl_pat, "*" ) != 0) {
+                       if ( ber_bvccmp( &b->a_sockurl_pat, '*' ) != 0) {
                                if ( b->a_sockurl_style == ACL_STYLE_REGEX) {
-                                       if (!regex_matches( b->a_sockurl_pat, conn->c_listener_url,
+                                       if (!regex_matches( &b->a_sockurl_pat, conn->c_listener_url.bv_val,
                                                        e->e_ndn, matches ) ) 
                                        {
                                                continue;
                                        }
                                } else {
-                                       if ( strcasecmp( b->a_sockurl_pat, conn->c_listener_url ) != 0 )
+                                       if ( ber_bvstrcasecmp( &b->a_sockurl_pat, &conn->c_listener_url ) != 0 )
                                                continue;
                                }
                        }
                }
 
-               if ( b->a_domain_pat != NULL ) {
+               if ( b->a_domain_pat.bv_len ) {
 #ifdef NEW_LOGGING
                        LDAP_LOG(( "acl", LDAP_LEVEL_DETAIL1,
                                   "acl_mask: conn %d  check a_domain_pat: %s\n",
-                                  conn->c_connid, b->a_domain_pat ));
+                                  conn->c_connid, b->a_domain_pat.bv_val ));
 #else
                        Debug( LDAP_DEBUG_ACL, "<= check a_domain_pat: %s\n",
-                               b->a_domain_pat, 0, 0 );
+                               b->a_domain_pat.bv_val, 0, 0 );
 #endif
-                       if ( strcmp( b->a_domain_pat, "*" ) != 0) {
+                       if ( ber_bvccmp( &b->a_domain_pat, '*' ) != 0) {
                                if ( b->a_domain_style == ACL_STYLE_REGEX) {
-                                       if (!regex_matches( b->a_domain_pat, conn->c_peer_domain,
+                                       if (!regex_matches( &b->a_domain_pat, conn->c_peer_domain.bv_val,
                                                        e->e_ndn, matches ) ) 
                                        {
                                                continue;
                                        }
                                } else {
-                                       if ( strcasecmp( b->a_domain_pat, conn->c_peer_domain ) != 0 )
+                                       if ( ber_bvstrcasecmp( &b->a_domain_pat, &conn->c_peer_domain ) != 0 )
                                                continue;
                                }
                        }
                }
 
-               if ( b->a_peername_pat != NULL ) {
+               if ( b->a_peername_pat.bv_len ) {
 #ifdef NEW_LOGGING
                        LDAP_LOG(( "acl", LDAP_LEVEL_DETAIL1,
                                   "acl_mask: conn %d  check a_perrname_path: %s\n",
-                                  conn->c_connid, b->a_peername_pat ));
+                                  conn->c_connid, b->a_peername_pat.bv_val ));
 #else
                        Debug( LDAP_DEBUG_ACL, "<= check a_peername_path: %s\n",
-                               b->a_peername_pat, 0, 0 );
+                               b->a_peername_pat.bv_val, 0, 0 );
 #endif
-                       if ( strcmp( b->a_peername_pat, "*" ) != 0) {
+                       if ( ber_bvccmp( &b->a_peername_pat, '*' ) != 0) {
                                if ( b->a_peername_style == ACL_STYLE_REGEX) {
-                                       if (!regex_matches( b->a_peername_pat, conn->c_peer_name,
+                                       if (!regex_matches( &b->a_peername_pat, conn->c_peer_name.bv_val,
                                                        e->e_ndn, matches ) ) 
                                        {
                                                continue;
                                        }
                                } else {
-                                       if ( strcasecmp( b->a_peername_pat, conn->c_peer_name ) != 0 )
+                                       if ( ber_bvstrcasecmp( &b->a_peername_pat, &conn->c_peer_name ) != 0 )
                                                continue;
                                }
                        }
                }
 
-               if ( b->a_sockname_pat != NULL ) {
+               if ( b->a_sockname_pat.bv_len ) {
 #ifdef NEW_LOGGING
                        LDAP_LOG(( "acl", LDAP_LEVEL_DETAIL1,
                                   "acl_mask: conn %d  check a_sockname_path: %s\n",
-                                  conn->c_connid, b->a_sockname_pat ));
+                                  conn->c_connid, b->a_sockname_pat.bv_val ));
 #else
                        Debug( LDAP_DEBUG_ACL, "<= check a_sockname_path: %s\n",
-                               b->a_sockname_pat, 0, 0 );
+                               b->a_sockname_pat.bv_val, 0, 0 );
 #endif
-                       if ( strcmp( b->a_sockname_pat, "*" ) != 0) {
+                       if ( ber_bvccmp( &b->a_sockname_pat, '*' ) != 0) {
                                if ( b->a_sockname_style == ACL_STYLE_REGEX) {
-                                       if (!regex_matches( b->a_sockname_pat, conn->c_sock_name,
+                                       if (!regex_matches( &b->a_sockname_pat, conn->c_sock_name.bv_val,
                                                        e->e_ndn, matches ) ) 
                                        {
                                                continue;
                                        }
                                } else {
-                                       if ( strcasecmp( b->a_sockname_pat, conn->c_sock_name ) != 0 )
+                                       if ( ber_bvstrcasecmp( &b->a_sockname_pat, &conn->c_sock_name ) != 0 )
                                                continue;
                                }
                        }
@@ -781,7 +780,7 @@ acl_mask(
                         */
                        /* see if asker is listed in dnattr */
                        if ( b->a_group_style == ACL_STYLE_REGEX ) {
-                               string_expand(&bv, b->a_group_pat.bv_val, e->e_ndn, matches);
+                               string_expand(&bv, &b->a_group_pat, e->e_ndn, matches);
                                if ( dnNormalize2(NULL, &bv, &ndn) != LDAP_SUCCESS ) {
                                        /* did not expand to a valid dn */
                                        continue;
@@ -795,8 +794,7 @@ acl_mask(
                                b->a_group_oc, b->a_group_at);
                        if ( ndn.bv_val )
                                free( ndn.bv_val );
-                       if ( rc != 0 )
-                       {
+                       if ( rc != 0 ) {
                                continue;
                        }
                }
@@ -1175,26 +1173,6 @@ aci_bvstrdup( struct berval *bv )
        return(s);
 }
 
-#ifdef SLAPD_ACI_ENABLED
-static int
-aci_strbvcmp(
-       const char *s,
-       struct berval *bv )
-{
-       int res, len;
-
-       res = strncasecmp( s, bv->bv_val, bv->bv_len );
-       if (res)
-               return(res);
-       len = strlen(s);
-       if (len > (int)bv->bv_len)
-               return(1);
-       if (len < (int)bv->bv_len)
-               return(-1);
-       return(0);
-}
-#endif
-
 static int
 aci_get_part(
        struct berval *list,
@@ -1235,20 +1213,18 @@ aci_get_part(
 }
 
 BerVarray
-aci_set_gather (void *cookie, char *name, struct berval *attr)
+aci_set_gather (void *cookie, struct berval *name, struct berval *attr)
 {
        AciSetCookie *cp = cookie;
        BerVarray bvals = NULL;
-       struct berval bv, ndn;
+       struct berval ndn;
 
        /* this routine needs to return the bervals instead of
         * plain strings, since syntax is not known.  It should
         * also return the syntax or some "comparison cookie".
         */
 
-       bv.bv_val = name;
-       bv.bv_len = strlen( name );
-       if (dnNormalize2(NULL, &bv, &ndn) == LDAP_SUCCESS) {
+       if (dnNormalize2(NULL, name, &ndn) == LDAP_SUCCESS) {
                const char *text;
                AttributeDescription *desc = NULL;
                if (slap_bv2ad(attr, &desc, &text) == LDAP_SUCCESS) {
@@ -1331,7 +1307,7 @@ aci_match_set (
                cookie.conn = conn;
                cookie.op = op;
                rc = (slap_set_filter(aci_set_gather, &cookie, &set,
-                       op->o_ndn.bv_val, e->e_ndn, NULL) > 0);
+                       &op->o_ndn, &e->e_nname, NULL) > 0);
                ch_free(set.bv_val);
        }
        return(rc);
@@ -1396,13 +1372,13 @@ aci_list_has_attr(
                if (aci_get_part(&bv, 0, '=', &left) < 0
                        || aci_get_part(&bv, 1, '=', &right) < 0)
                {
-                       if (ber_casecmp(attr, &bv) == 0)
+                       if (ber_bvstrcasecmp(attr, &bv) == 0)
                                return(1);
                } else if (val == NULL) {
-                       if (ber_casecmp(attr, &left) == 0)
+                       if (ber_bvstrcasecmp(attr, &left) == 0)
                                return(1);
                } else {
-                       if (ber_casecmp(attr, &left) == 0) {
+                       if (ber_bvstrcasecmp(attr, &left) == 0) {
                                /* this is experimental code that implements a
                                 * simple (prefix) match of the attribute value.
                                 * the ACI draft does not provide for aci's that
@@ -1420,7 +1396,7 @@ aci_list_has_attr(
                                if (aci_get_part(&right, 0, '*', &left) < 0
                                        || right.bv_len <= left.bv_len)
                                {
-                                       if (ber_casecmp(val, &right) == 0)
+                                       if (ber_bvstrcasecmp(val, &right) == 0)
                                                return(1);
                                } else if (val->bv_len >= left.bv_len) {
                                        if (strncasecmp( val->bv_val, left.bv_val, left.bv_len ) == 0)
@@ -1467,7 +1443,7 @@ aci_list_get_rights(
     int i, found;
 
        if (attr == NULL || attr->bv_len == 0 
-                       || ber_casecmp( attr, &aci_bv_entry ) == 0) {
+                       || ber_bvstrcasecmp( attr, &aci_bv_entry ) == 0) {
                attr = &aci_bv_br_entry;
        }
 
@@ -1478,9 +1454,9 @@ aci_list_get_rights(
        for (i = 0; aci_get_part(list, i, '$', &perm) >= 0; i++) {
                if (aci_get_part(&perm, 0, ';', &actn) < 0)
                        continue;
-               if (ber_casecmp( &aci_bv_grant, &actn ) == 0) {
+               if (ber_bvstrcasecmp( &aci_bv_grant, &actn ) == 0) {
                        mask = grant;
-               } else if (ber_casecmp( &aci_bv_deny, &actn ) == 0) {
+               } else if (ber_bvstrcasecmp( &aci_bv_deny, &actn ) == 0) {
                        mask = deny;
                } else {
                        continue;
@@ -1506,7 +1482,7 @@ aci_group_member (
 )
 {
        struct berval bv;
-       char *subjdn;
+       struct berval subjdn;
        struct berval grpoc;
        struct berval grpat;
        ObjectClass *grp_oc = NULL;
@@ -1515,12 +1491,7 @@ aci_group_member (
        int rc;
 
        /* format of string is "group/objectClassValue/groupAttrName" */
-       if (aci_get_part(subj, 0, '/', &bv) < 0) {
-               return(0);
-       }
-
-       subjdn = aci_bvstrdup(&bv);
-       if (subjdn == NULL) {
+       if (aci_get_part(subj, 0, '/', &subjdn) < 0) {
                return(0);
        }
 
@@ -1545,7 +1516,7 @@ aci_group_member (
                struct berval ndn;
                bv.bv_val = (char *)ch_malloc(1024);
                bv.bv_len = 1024;
-               string_expand(&bv, subjdn, e->e_ndn, matches);
+               string_expand(&bv, &subjdn, e->e_ndn, matches);
                if ( dnNormalize2(NULL, &bv, &ndn) == LDAP_SUCCESS ) {
                        rc = (backend_group(be, conn, op, e, &ndn, &op->o_ndn, grp_oc, grp_ad) == 0);
                        free( ndn.bv_val );
@@ -1554,7 +1525,6 @@ aci_group_member (
        }
 
 done:
-       ch_free(subjdn);
        return(rc);
 }
 
@@ -1606,7 +1576,7 @@ aci_mask(
 
        /* check that the scope is "entry" */
        if (aci_get_part(aci, 1, '#', &bv) < 0
-               || ber_casecmp( &aci_bv_entry, &bv ) != 0)
+               || ber_bvstrcasecmp( &aci_bv_entry, &bv ) != 0)
        {
                return(0);
        }
@@ -1626,7 +1596,7 @@ aci_mask(
        if (aci_get_part(aci, 4, '#', &sdn) < 0)
                return(0);
 
-       if (ber_casecmp( &aci_bv_access_id, &bv ) == 0) {
+       if (ber_bvstrcasecmp( &aci_bv_access_id, &bv ) == 0) {
                struct berval ndn;
                rc = 1;
                if ( dnNormalize2(NULL, &sdn, &ndn) == LDAP_SUCCESS ) {
@@ -1637,11 +1607,11 @@ aci_mask(
                return(rc);
        }
 
-       if (ber_casecmp( &aci_bv_self, &bv ) == 0) {
+       if (ber_bvstrcasecmp( &aci_bv_self, &bv ) == 0) {
                if (dn_match(&op->o_ndn, &e->e_nname))
                        return(1);
 
-       } else if (ber_casecmp( &aci_bv_dnattr, &bv ) == 0) {
+       } else if (ber_bvstrcasecmp( &aci_bv_dnattr, &bv ) == 0) {
                Attribute *at;
                AttributeDescription *ad = NULL;
                const char *text;
@@ -1669,19 +1639,19 @@ aci_mask(
                return rc;
 
 
-       } else if (ber_casecmp( &aci_bv_group, &bv ) == 0) {
+       } else if (ber_bvstrcasecmp( &aci_bv_group, &bv ) == 0) {
                if (aci_group_member(&sdn, &GroupClass, &GroupAttr, be, e, conn, op, matches))
                        return(1);
 
-       } else if (ber_casecmp( &aci_bv_role, &bv ) == 0) {
+       } else if (ber_bvstrcasecmp( &aci_bv_role, &bv ) == 0) {
                if (aci_group_member(&sdn, &RoleClass, &RoleAttr, be, e, conn, op, matches))
                        return(1);
 
-       } else if (ber_casecmp( &aci_bv_set, &bv ) == 0) {
+       } else if (ber_bvstrcasecmp( &aci_bv_set, &bv ) == 0) {
                if (aci_match_set(&sdn, be, e, conn, op, 0))
                        return(1);
 
-       } else if (ber_casecmp( &aci_bv_set_ref, &bv ) == 0) {
+       } else if (ber_bvstrcasecmp( &aci_bv_set_ref, &bv ) == 0) {
                if (aci_match_set(&sdn, be, e, conn, op, 1))
                        return(1);
 
@@ -1695,7 +1665,7 @@ aci_mask(
 static void
 string_expand(
        struct berval *bv,
-       char *pat,
+       struct berval *pat,
        char *match,
        regmatch_t *matches)
 {
@@ -1709,7 +1679,8 @@ string_expand(
        bv->bv_len--; /* leave space for lone $ */
 
        flag = 0;
-       for ( dp = bv->bv_val, sp = pat; size < bv->bv_len && *sp ; sp++) {
+       for ( dp = bv->bv_val, sp = pat->bv_val; size < bv->bv_len &&
+               sp < pat->bv_val + pat->bv_len ; sp++) {
                /* did we previously see a $ */
                if (flag) {
                        if (*sp == '$') {
@@ -1752,18 +1723,18 @@ string_expand(
 
 #ifdef NEW_LOGGING
        LDAP_LOG(( "aci", LDAP_LEVEL_DETAIL1,
-                  "string_expand:  pattern = %s\n", pat ));
+                  "string_expand:  pattern = %.*s\n", pat->bv_len, pat->bv_val ));
        LDAP_LOG(( "aci", LDAP_LEVEL_DETAIL1,
                   "string_expand:  expanded = %s\n", bv->bv_val ));
 #else
-       Debug( LDAP_DEBUG_TRACE, "=> string_expand: pattern:  %s\n", pat, 0, 0 );
+       Debug( LDAP_DEBUG_TRACE, "=> string_expand: pattern:  %.*s\n", pat->bv_len, pat->bv_val, 0 );
        Debug( LDAP_DEBUG_TRACE, "=> string_expand: expanded: %s\n", bv->bv_val, 0, 0 );
 #endif
 }
 
 static int
 regex_matches(
-       char *pat,                              /* pattern to expand and match against */
+       struct berval *pat,                     /* pattern to expand and match against */
        char *str,                              /* string to match against pattern */
        char *buf,                              /* buffer with $N expansion variables */
        regmatch_t *matches             /* offsets in buffer for $N expansion variables */
@@ -1784,11 +1755,11 @@ regex_matches(
 #ifdef NEW_LOGGING
                LDAP_LOG(( "aci", LDAP_LEVEL_ERR,
                           "regex_matches: compile( \"%s\", \"%s\") failed %s\n",
-                          pat, str, error ));
+                          pat->bv_val, str, error ));
 #else
                Debug( LDAP_DEBUG_TRACE,
                    "compile( \"%s\", \"%s\") failed %s\n",
-                       pat, str, error );
+                       pat->bv_val, str, error );
 #endif
                return( 0 );
        }