use re:replace/4 to fill username
This commit is contained in:
parent
f84a99f05f
commit
4c38cb37f5
|
@ -82,10 +82,7 @@ ldap_bind(LDAP, UserDn, Password) ->
|
||||||
end.
|
end.
|
||||||
|
|
||||||
fill(Username, UserDn) ->
|
fill(Username, UserDn) ->
|
||||||
lists:append(lists:map(
|
re:replace(UserDn, "\\$u", Username, [global, {return, list}]).
|
||||||
fun("$u") -> Username;
|
|
||||||
(S) -> S
|
|
||||||
end, string:tokens(UserDn, ",="))).
|
|
||||||
|
|
||||||
description() ->
|
description() ->
|
||||||
"LDAP Authentication Module".
|
"LDAP Authentication Module".
|
||||||
|
|
Loading…
Reference in New Issue