diff options
| author | Badlop <badlop@process-one.net> | 2018-12-21 15:32:23 +0100 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2018-12-26 14:04:36 +0100 |
| commit | 1246a7a50fc9b87e15a1bc4f76b262b4a469356a (patch) | |
| tree | 5e0381e6e0d34b6f9874c510a4da96ee805833d5 | |
| parent | Travis CI: Bump Erlang/OTP 21.x version (diff) | |
Add no-store hint to CAPTCHA challenge stanzas (#2730)
| -rw-r--r-- | src/ejabberd_captcha.erl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/ejabberd_captcha.erl b/src/ejabberd_captcha.erl index 9f9d7b03f..76e7b37b6 100644 --- a/src/ejabberd_captcha.erl +++ b/src/ejabberd_captcha.erl @@ -105,12 +105,13 @@ create_captcha(SID, From, To, Lang, Limiter, Args) -> "To unblock them, visit ~s">>, [JID, get_url(Id)]}, Body = xmpp:mk_text(BodyString, Lang), OOB = #oob_x{url = get_url(Id)}, + Hint = #hint{type = 'no-store'}, Tref = erlang:send_after(?CAPTCHA_LIFETIME, ?MODULE, {remove_id, Id}), ets:insert(captcha, #captcha{id = Id, pid = self(), key = Key, tref = Tref, args = Args}), - {ok, Id, Body, [OOB, Captcha, Data]}; + {ok, Id, Body, [Hint, OOB, Captcha, Data]}; Err -> Err end. |