Merge default

This commit is contained in:
Simon MacMullen 2012-09-24 11:49:05 +01:00
commit 874b2f3c45
2 changed files with 9 additions and 4 deletions

View File

@ -69,10 +69,12 @@ In Group Query
--------------
{in_group, Pattern}
{in_group, Pattern, AttributeName}
Like the Exists Query, substitutes arguments into a pattern to look
for an object. However, this query returns true if the logged in user
is a member.
is a member; checking either against the "member" attribute, or any
named attribute.
Match Query
-----------

View File

@ -121,9 +121,12 @@ evaluate0({exists, DNPattern}, Args, _User, LDAP, State) ->
?L1("evaluated exists for \"~s\": ~p", [DN, R]),
R;
evaluate0({in_group, DNPattern}, Args, #user{impl = #impl{user_dn = UserDN}},
LDAP, State) ->
Filter = eldap:equalityMatch("member", UserDN),
evaluate0({in_group, DNPattern}, Args, User, LDAP, State) ->
evaluate({in_group, DNPattern, "member"}, Args, User, LDAP, State);
evaluate0({in_group, DNPattern, Desc}, Args,
#user{impl = #impl{user_dn = UserDN}}, LDAP, State) ->
Filter = eldap:equalityMatch(Desc, UserDN),
DN = fill(DNPattern, Args, State),
R = object_exists(DN, Filter, LDAP),
?L1("evaluated in_group for \"~s\": ~p", [DN, R]),