aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/eldap/eldap_utils.erl9
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.