blankie/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests Projects Releases Packages Wiki Activity

clear bogus log

Browse source
This commit is contained in:
Cadence Ember 2025-11-04 23:16:15 +13:00
parent 1c675d4873
commit 143fadcafb
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/page-captcha.rkt
View file

@ -152,9 +152,10 @@
(printf "captcha pass - key ~a [~a]~n" x (get-ip req))) (printf "captcha pass - key ~a [~a]~n" x (get-ip req)))
(header #"Set-Cookie" (cookie->set-cookie-header (make-cookie "captcha" "key" #:path "/" #:max-age (* 60 60 24 365 10))))] (header #"Set-Cookie" (cookie->set-cookie-header (make-cookie "captcha" "key" #:path "/" #:max-age (* 60 60 24 365 10))))]
[else [(= y 0)
(when (config-true? 'captcha::log) (when (config-true? 'captcha::log)
(printf "captcha fail - key ~a instead of ~a [~a]~n" x (get-key-solution req) (get-ip req)))]) (printf "captcha fail - key ~a instead of ~a [~a]~n" x (get-key-solution req) (get-ip req)))]
[else (void)])
(when (> y 0) (when (> y 0)
(let-values ([(solution-x solution-y) (get-coordinate-solution req w h)]) (let-values ([(solution-x solution-y) (get-coordinate-solution req w h)])
(let ([dist (+ (expt (- x solution-x) 2) (expt (- y solution-y) 2))]) (let ([dist (+ (expt (- x solution-x) 2) (expt (- y solution-y) 2))])