Преглед на файлове

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

Daniel Moore преди 11 години
родител
ревизия
7f3ed1652a
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      src/ldap_auth.erl

+ 2 - 2
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.