diff options
author | Konstantinos Kallas <konstantinos.kallas@hotmail.com> | 2017-07-26 09:54:23 +0300 |
---|---|---|
committer | Konstantinos Kallas <konstantinos.kallas@hotmail.com> | 2017-07-26 09:54:23 +0300 |
commit | 61d1411ab3321b437f6741703405860d18c82b93 (patch) | |
tree | 44481834335fb872eee63e205e81417fa26249d5 /test/ldap_srv.erl | |
parent | Add an erl_opt so that rsa can be used when the otp version is enough (diff) | |
parent | Update oauth2 dependency (diff) |
Sync fork with upstream
Diffstat (limited to 'test/ldap_srv.erl')
-rw-r--r-- | test/ldap_srv.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/ldap_srv.erl b/test/ldap_srv.erl index d5dc8dbe2..f601827c4 100644 --- a/test/ldap_srv.erl +++ b/test/ldap_srv.erl @@ -45,7 +45,7 @@ -define(ERROR_MSG(Fmt, Args), error_logger:error_msg(Fmt, Args)). -define(TCP_SEND_TIMEOUT, 32000). --define(SERVER, ?MODULE). +-define(SERVER, ?MODULE). -record(state, {listener = make_ref() :: reference()}). @@ -122,7 +122,7 @@ accept(ListenSocket, Tree) -> process(Socket, Tree) -> case gen_tcp:recv(Socket, 0) of {ok, B} -> - case asn1rt:decode('ELDAPv3', 'LDAPMessage', B) of + case 'ELDAPv3':decode('LDAPMessage', B) of {ok, Msg} -> Replies = process_msg(Msg, Tree), Id = Msg#'LDAPMessage'.messageID, @@ -131,8 +131,8 @@ process(Socket, Tree) -> Reply = #'LDAPMessage'{messageID = Id, protocolOp = ReplyOp}, %%?DEBUG("sent:~n~p", [Reply]), - {ok, Bytes} = asn1rt:encode( - 'ELDAPv3', 'LDAPMessage', Reply), + {ok, Bytes} = 'ELDAPv3':encode( + 'LDAPMessage', Reply), gen_tcp:send(Socket, Bytes) end, Replies), process(Socket, Tree); |