diff --git a/src/page-captcha.rkt b/src/page-captcha.rkt index dcbf818..6b410d4 100644 --- a/src/page-captcha.rkt +++ b/src/page-captcha.rkt @@ -53,7 +53,7 @@ (define diameter 35) (define font (make-object font% 12 'system)) (define msg "I'm not a robot!") -(define checkbox (filled-ellipse diameter diameter #:color "Pale Goldenrod")) +(define checkbox (filled-ellipse diameter diameter #:color "Red")) (define assembly (frame (inset @@ -81,6 +81,7 @@ (printf "captcha skip - via ~a [~a] - ~v~n" method (get-ip req) (url->string (request-uri req)))) (next-dispatcher)] [_ (void)])) + (response-handler (define body `(*TOP*