tedkulp/breezewiki
1
0
Fork 0
mirror of https://gitdab.com/cadence/breezewiki.git synced 2026-03-05 13:40:27 -05:00
Code Issues Packages Projects Releases Wiki Activity

make the captcha red

Browse Source
This commit is contained in:
Cadence Ember
2025-11-19 17:07:40 +13:00
parent b7fe180790
commit 93369aa39b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/page-captcha.rkt
View File

@@ -53,7 +53,7 @@
(define diameter 35) (define diameter 35)
(define font (make-object font% 12 'system)) (define font (make-object font% 12 'system))
(define msg "I'm not a robot!") (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 (define assembly
(frame (frame
(inset (inset
@@ -81,6 +81,7 @@
(printf "captcha skip - via ~a [~a] - ~v~n" method (get-ip req) (url->string (request-uri req)))) (printf "captcha skip - via ~a [~a] - ~v~n" method (get-ip req) (url->string (request-uri req))))
(next-dispatcher)] (next-dispatcher)]
[_ (void)])) [_ (void)]))
(response-handler (response-handler
(define body (define body
`(*TOP* `(*TOP*