(validate-recaptcha) ( response recaptcha -- valid? error )

Vocabulary

furnace.recaptcha.private

Inputs

response	an object
recaptcha	an object

Outputs

valid?	an object
error	an object

Definition

USING: accessors http.client io.sockets kernel namespaces urls ;

IN: furnace.recaptcha.private

:: (validate-recaptcha)
    ( response recaptcha -- valid? error )
    recaptcha secret-key>> :> secret-key remote-address get
    host>> :> remote-ip H{
        { "secret" secret-key }
        { "response" response }
        { "remoteip" remote-ip }
    } URL" https://www.google.com/recaptcha/api/siteverify"
    http-post nip parse-recaptcha-response ;