basis/furnace/recaptcha/example/example.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors db.sqlite furnace.actions furnace.alloy
   4 furnace.recaptcha furnace.redirection http.server.dispatchers
   5 urls ;
   6 IN: furnace.recaptcha.example
   7
   8 TUPLE: recaptcha-app < dispatcher recaptcha ;
   9
  10 : recaptcha-db ( -- obj ) "resource:recaptcha-example" <sqlite-db> ;
  11
  12 : <recaptcha-challenge> ( -- obj )
  13     <page-action>
  14         [ validate-recaptcha ] >>validate
  15         [ "?good" >url <redirect> ] >>submit
  16         { recaptcha-app "example" } >>template ;
  17
  18 : <test-recaptcha> ( responder -- recaptcha )
  19     <recaptcha>
  20         "concatenative.org" >>domain
  21         "6LeJWQgAAAAAAFlYV7SuBClE9uSpGtV_ZS-qVON7" >>site-key
  22         "6LeJWQgAAAAAALh-XJgSSQ6xKygRgJ8-029Ip2Xv" >>secret-key ;
  23
  24 : <recaptcha-app> ( -- obj )
  25     \ recaptcha-app new-dispatcher
  26         <recaptcha-challenge> "" add-responder
  27         <test-recaptcha>
  28         recaptcha-db <alloy> ;