! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: help.markup help.syntax http.server.filters kernel
multiline furnace.actions furnace.alloy furnace.conversations ;
IN: furnace.recaptcha

HELP: <recaptcha>
{ $values
    { "responder" "a responder" }
    { "recaptcha" recaptcha }
}
{ $description "A " { $link filter-responder } " wrapping another responder. Set the domain, public, and private keys using the key you get by registering with recaptcha." } ;

HELP: recaptcha-error
{ $var-description "Set to the error string returned by the recaptcha server." } ;

HELP: recaptcha-valid?
{ $var-description "Set to " { $link t } " if the user solved the last recaptcha correctly." } ;

HELP: validate-recaptcha
{ $description "Validates a recaptcha using the recaptcha web service API." } ;

ARTICLE: "recaptcha-example" "Recaptcha example"
"There are several steps to using the recaptcha library."
{ $list
    { "Wrap the responder in a " { $link <recaptcha> } }
    { "Wrap the responder in an " { $link <alloy> } " if it is not already, to enable conversations and database access" }
    { "Call " { $link validate-recaptcha } " from the " { $slot "validate" } " slot of the " { $link action } }
    { "Put the chloe tag " { $snippet "<recaptcha/>" } " inside a form tag in the template served by your " { $link action } }
}
$nl
"There is an example web app using recaptcha support:"
{ $code
    "USING: furnace.recaptcha.example http.server ;"
    "<recaptcha-app> main-responder set-global"
    "8080 httpd"
} ;

ARTICLE: "furnace.recaptcha" "Recaptcha support for Furnace"
"The " { $vocab-link "furnace.recaptcha" } " vocabulary implements support for the recaptcha. Recaptcha is a web service that provides the user with a captcha, a test that is easy to solve by visual inspection, but hard to solve by writing a computer program. Use a captcha to protect forms from abusive users." $nl

"The recaptcha responder is a " { $link filter-responder } " that wraps another responder. Set the " { $slot "domain" } ", " { $slot "public-key" } ", and " { $slot "private-key" } " slots of this responder to your recaptcha account information." $nl

"Wrapping a responder with recaptcha support:"
{ $subsections <recaptcha> }
"Validating recaptcha:"
{ $subsections validate-recaptcha }
"Symbols set after validation:"
{ $subsections
    recaptcha-valid?
    recaptcha-error
}
"An example:"
{ $subsections
    "recaptcha-example"
} ;

ABOUT: "furnace.recaptcha"