32 lines
1.1 KiB
Factor
32 lines
1.1 KiB
Factor
|
! Copyright (C) 2009 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors db.sqlite furnace.actions furnace.alloy
|
||
|
|
furnace.conversations furnace.recaptcha furnace.redirection
|
||
|
|
html.templates.chloe.compiler http.server
|
||
|
|
http.server.dispatchers http.server.responses io.streams.string
|
||
|
|
kernel urls xml.syntax ;
|
||
|
|
IN: furnace.recaptcha.example
|
||
|
|
|
||
|
|
TUPLE: recaptcha-app < dispatcher recaptcha ;
|
||
|
|
|
||
|
|
: recaptcha-db ( -- obj ) "recaptcha-example" <sqlite-db> ;
|
||
|
|
|
||
|
|
: <recaptcha-challenge> ( -- obj )
|
||
|
|
<page-action>
|
||
|
|
[
|
||
|
|
begin-conversation
|
||
|
|
validate-recaptcha
|
||
|
|
recaptcha-valid? cget
|
||
|
|
"?good" "?bad" ? >url <continue-conversation>
|
||
|
|
] >>submit
|
||
|
|
{ recaptcha-app "example" } >>template ;
|
||
|
|
|
||
|
|
: <recaptcha-app> ( -- obj )
|
||
|
|
\ recaptcha-app new-dispatcher
|
||
|
|
<recaptcha-challenge> "" add-responder
|
||
|
|
<recaptcha>
|
||
|
|
"concatenative.org" >>domain
|
||
|
|
"6LeJWQgAAAAAAFlYV7SuBClE9uSpGtV_ZS-qVON7" >>public-key
|
||
|
|
"6LeJWQgAAAAAALh-XJgSSQ6xKygRgJ8-029Ip2Xv" >>private-key
|
||
|
|
recaptcha-db <alloy> ;
|