diff --git a/basis/furnace/recaptcha/example/example.factor b/basis/furnace/recaptcha/example/example.factor index 264be678ae..d453edb10e 100644 --- a/basis/furnace/recaptcha/example/example.factor +++ b/basis/furnace/recaptcha/example/example.factor @@ -9,7 +9,7 @@ IN: furnace.recaptcha.example TUPLE: recaptcha-app < dispatcher recaptcha ; -: recaptcha-db ( -- obj ) "recaptcha-example" ; +: recaptcha-db ( -- obj ) "resource:recaptcha-example" ; : ( -- obj ) diff --git a/basis/furnace/recaptcha/recaptcha-docs.factor b/basis/furnace/recaptcha/recaptcha-docs.factor index 1349b5243d..0e901f8bb5 100644 --- a/basis/furnace/recaptcha/recaptcha-docs.factor +++ b/basis/furnace/recaptcha/recaptcha-docs.factor @@ -26,7 +26,7 @@ ARTICLE: "recaptcha-example" "Recaptcha example" { "Wrap the responder in a " { $link } } { "Wrap the responder in a " { $link } " if it is not already" } { "Ensure that there is a database connected, with the " { $link } " word" } - { "Start a conversation to move values between requests" } + { "Start a conversation with " { $link begin-conversation } " to move values between requests" } { "Add a handler calling " { $link validate-recaptcha } " in the " { $slot "submit" } " of the " { $link page-action } } { "Pass the conversation from your submit action using " { $link } } { "Put the chloe tag " { $snippet "" } " inside a form tag in the template for your " { $link page-action } } diff --git a/basis/furnace/recaptcha/recaptcha.factor b/basis/furnace/recaptcha/recaptcha.factor index 99b223b8e3..020b5e472e 100644 --- a/basis/furnace/recaptcha/recaptcha.factor +++ b/basis/furnace/recaptcha/recaptcha.factor @@ -23,23 +23,23 @@ M: recaptcha call-responder* : (render-recaptcha) ( private-key -- xml ) dup -[XML + [XML + - -XML] ; + + XML] ; : recaptcha-url ( secure? -- ? ) - [ "https://api.recaptcha.net/challenge" ] - [ "http://api.recaptcha.net/challenge" ] if + "https://api.recaptcha.net/challenge" "http://api.recaptcha.net/challenge" ? recaptcha-error cget [ "?error=" glue ] when* >url ; : render-recaptcha ( -- xml )