Lowercasing all group names before assigning them as roles. Fixes #7

danielmoore · May 18, 2014 · 7f3ed16 · 7f3ed16
1 parent c6135ee
commit 7f3ed16
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/ldap_auth.erl b/src/ldap_auth.erl
@@ -246,7 +246,7 @@ authenticate_user(UserName, Password) ->
         {ok, UserDN} ->
           Groups = get_group_memberships(LdapConnection, UserDN),
           eldap:close(LdapConnection),
-          {ok, [ ?l2b(G) || G <- Groups ]}
+          {ok, [ ?l2b(string:to_lower(G)) || G <- Groups ]}
       end
   end.
 
@@ -267,4 +267,4 @@ basic_name_pw(Req) ->
     _ ->
       ?LOG_INFO("Could not recognize auth header ~p", [AuthorizationHeader]),
       nil
-  end.
+  end.