Add no-store hint to CAPTCHA challenge stanzas (#2730)
This commit is contained in:
parent
34eed5064b
commit
1246a7a50f
|
@ -105,12 +105,13 @@ create_captcha(SID, From, To, Lang, Limiter, Args) ->
|
||||||
"To unblock them, visit ~s">>, [JID, get_url(Id)]},
|
"To unblock them, visit ~s">>, [JID, get_url(Id)]},
|
||||||
Body = xmpp:mk_text(BodyString, Lang),
|
Body = xmpp:mk_text(BodyString, Lang),
|
||||||
OOB = #oob_x{url = get_url(Id)},
|
OOB = #oob_x{url = get_url(Id)},
|
||||||
|
Hint = #hint{type = 'no-store'},
|
||||||
Tref = erlang:send_after(?CAPTCHA_LIFETIME, ?MODULE,
|
Tref = erlang:send_after(?CAPTCHA_LIFETIME, ?MODULE,
|
||||||
{remove_id, Id}),
|
{remove_id, Id}),
|
||||||
ets:insert(captcha,
|
ets:insert(captcha,
|
||||||
#captcha{id = Id, pid = self(), key = Key, tref = Tref,
|
#captcha{id = Id, pid = self(), key = Key, tref = Tref,
|
||||||
args = Args}),
|
args = Args}),
|
||||||
{ok, Id, Body, [OOB, Captcha, Data]};
|
{ok, Id, Body, [Hint, OOB, Captcha, Data]};
|
||||||
Err -> Err
|
Err -> Err
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue