diff options
| author | Evgeniy Khramtsov <xramtsov@gmail.com> | 2009-04-08 12:05:03 +0000 |
|---|---|---|
| committer | Evgeniy Khramtsov <xramtsov@gmail.com> | 2009-04-08 12:05:03 +0000 |
| commit | f80c8486921781004953d8c043c353687901ca22 (patch) | |
| tree | 6735d5d0cf57f786ac9c075ea0fe382a352f0e2a | |
| parent | * doc/release_notes_2.0.5.txt: Added file for new release (diff) | |
* src/ejabberd_captcha.erl: fixed compilation warnings.
SVN Revision: 2004
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | src/ejabberd_captcha.erl | 24 |
2 files changed, 18 insertions, 10 deletions
@@ -1,3 +1,7 @@ +2009-04-08 Evgeniy Khramtsov <ekhramtsov@process-one.net> + + * src/ejabberd_captcha.erl: fixed compilation warnings. + 2009-04-01 Badlop <badlop@process-one.net> * doc/release_notes_2.0.5.txt: Added file for new release diff --git a/src/ejabberd_captcha.erl b/src/ejabberd_captcha.erl index dbbeb7fa6..d8106d3fd 100644 --- a/src/ejabberd_captcha.erl +++ b/src/ejabberd_captcha.erl @@ -85,9 +85,13 @@ create_captcha(Id, SID, From, To, Lang, Args) OOB = {xmlelement, "x", [{"xmlns", ?NS_OOB}], [{xmlelement, "url", [], [{xmlcdata, get_url(Id)}]}]}, Tref = erlang:send_after(?CAPTCHA_LIFETIME, ?MODULE, {remove_id, Id}), - ?T(mnesia:write(#captcha{id=Id, pid=self(), key=Key, - tref=Tref, args=Args})), - {ok, [Body, OOB, Captcha, Data]}; + case ?T(mnesia:write(#captcha{id=Id, pid=self(), key=Key, + tref=Tref, args=Args})) of + ok -> + {ok, [Body, OOB, Captcha, Data]}; + _Err -> + error + end; _Err -> error end. @@ -236,13 +240,13 @@ handle_cast(_Msg, State) -> handle_info({remove_id, Id}, State) -> ?DEBUG("captcha ~p timed out", [Id]), - ?T(case mnesia:read(captcha, Id, write) of - [#captcha{args=Args, pid=Pid}] -> - Pid ! {captcha_failed, Args}, - mnesia:delete({captcha, Id}); - _ -> - ok - end), + _ = ?T(case mnesia:read(captcha, Id, write) of + [#captcha{args=Args, pid=Pid}] -> + Pid ! {captcha_failed, Args}, + mnesia:delete({captcha, Id}); + _ -> + ok + end), {noreply, State}; handle_info(_Info, State) -> |