validate-recaptcha ( -- )
Recaptcha support for Furnace

Prev:	<recaptcha> ( responder -- recaptcha )
Next:	recaptcha-error

Vocabulary
furnace.recaptcha

Word description
Validates a recaptcha using the recaptcha web service API.

Definition

USING: furnace.actions furnace.conversations
furnace.recaptcha.private html.forms kernel namespaces ;

IN: furnace.recaptcha

: validate-recaptcha ( -- )
    begin-conversation validate-recaptcha-params
    "g-recaptcha-response" value recaptcha get
    (validate-recaptcha) recaptcha-error cset
    [ validation-failed ] unless ;