diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-07-07 03:47:44 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-07-07 03:48:16 +1000 |
| commit | 2b24e979366569fe61df0452b21abbf72b2f6001 (patch) | |
| tree | 6059a430ed7f0d87dd806040e8229bda4b96e97a | |
| parent | Do not build p1_logger if lager is enabled (diff) | |
Use error_logger directly in the LDAP test server
| -rw-r--r-- | test/ldap_srv.erl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/test/ldap_srv.erl b/test/ldap_srv.erl index 665193105..132f53e04 100644 --- a/test/ldap_srv.erl +++ b/test/ldap_srv.erl @@ -22,9 +22,11 @@ -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). --include("logger.hrl"). -include("ELDAPv3.hrl"). +-define(INFO_MSG(Fmt, Args), error_logger:info_msg(Fmt, Args)). +-define(ERROR_MSG(Fmt, Args), error_logger:error_msg(Fmt, Args)). + -define(TCP_SEND_TIMEOUT, 32000). -define(SERVER, ?MODULE). @@ -75,8 +77,8 @@ handle_cast(_Msg, State) -> handle_info({'DOWN', MRef, _Type, _Object, Info}, #state{listener = MRef} = State) -> - ?CRITICAL_MSG("listener died with reason ~p, terminating", - [Info]), + ?ERROR_MSG("listener died with reason ~p, terminating", + [Info]), {stop, normal, State}; handle_info(_Info, State) -> {noreply, State}. @@ -111,7 +113,7 @@ process(Socket, Tree) -> fun(ReplyOp) -> Reply = #'LDAPMessage'{messageID = Id, protocolOp = ReplyOp}, - ?DEBUG("sent:~n~p", [Reply]), + %%?DEBUG("sent:~n~p", [Reply]), {ok, Bytes} = asn1rt:encode( 'ELDAPv3', 'LDAPMessage', Reply), gen_tcp:send(Socket, Bytes) @@ -125,8 +127,8 @@ process(Socket, Tree) -> Err end. -process_msg(#'LDAPMessage'{protocolOp = Op} = Msg, TopTree) -> - ?DEBUG("got:~n~p", [Msg]), +process_msg(#'LDAPMessage'{protocolOp = Op} = _Msg, TopTree) -> + %%?DEBUG("got:~n~p", [Msg]), case Op of {bindRequest, #'BindRequest'{name = DN}} -> |