From 4e77bae2066b0f4e8fbaa7101568fa6489c11903 Mon Sep 17 00:00:00 2001 From: Badlop Date: Sat, 17 May 2008 11:44:25 +0000 Subject: * src/extauth.erl: Log strange responses from extauth script. Use timeout (EJAB-627) SVN Revision: 1330 --- src/extauth.erl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/extauth.erl b/src/extauth.erl index 052e95d7a..3819fcddf 100644 --- a/src/extauth.erl +++ b/src/extauth.erl @@ -32,6 +32,8 @@ -include("ejabberd.hrl"). +-define(CALL_TIMEOUT, 30000). % Timeout is in milliseconds: 30 seconds == 30000 + start(Host, ExtPrg) -> spawn(?MODULE, init, [Host, ExtPrg]). @@ -67,7 +69,13 @@ loop(Port) -> Port ! {self(), {command, encode(Msg)}}, receive {Port, {data, Data}} -> - Caller ! {eauth, decode(Data)} + ?DEBUG("extauth call '~p' received data response:~n~p", [Msg, Data]), + Caller ! {eauth, decode(Data)}; + {Port, Other} -> + ?ERROR_MSG("extauth call '~p' received strange response:~n~p", [Msg, Other]) + after + ?CALL_TIMEOUT -> + ?ERROR_MSG("extauth call '~p' didn't receive response~n", [Msg]) end, loop(Port); stop -> -- cgit v1.2.3