diff options
author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2011-06-23 15:14:15 +1000 |
---|---|---|
committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2011-06-23 15:14:15 +1000 |
commit | 35644cf73c170d4a6989863a56e8b4a447b4edc5 (patch) | |
tree | 4047d619c8e5ca2587856da0dca4f085f87fd28e /src/eldap/eldap_utils.erl | |
parent | Log an error when an LDAP filter is incorrect (EJAB-1395) (diff) |
Match ldap_uidattr_format case-insensitively (EJAB-1449)
Diffstat (limited to '')
-rw-r--r-- | src/eldap/eldap_utils.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/eldap/eldap_utils.erl b/src/eldap/eldap_utils.erl index 5f3a24283..66a1fcfef 100644 --- a/src/eldap/eldap_utils.erl +++ b/src/eldap/eldap_utils.erl @@ -95,7 +95,14 @@ get_user_part(String, Pattern) -> {error, badmatch}; Result -> case regexp:sub(Pattern, "%u", Result) of - {ok, String, _} -> {ok, Result}; + {ok, StringRes, _} -> + case (string:to_lower(StringRes) == + string:to_lower(String)) of + true -> + {ok, Result}; + false -> + {error, badmatch} + end; _ -> {error, badmatch} end end. |