suzanne.soy/pasterack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: suzanne.soy:rest-api
Branches Tags
suzanne.soy:master
suzanne.soy:rest-api
suzanne.soy:add-irc-recipient
suzanne.soy:fix-readme-dependency
suzanne.soy:dev
..
compare: suzanne.soy:master
Branches Tags
suzanne.soy:rest-api
suzanne.soy:add-irc-recipient
suzanne.soy:fix-readme-dependency
suzanne.soy:master
suzanne.soy:dev

No commits in common. "rest-api" and "master" have entirely different histories.
rest-api ... master

1 changed files with 0 additions and 12 deletions
Show Stats Expand all files Collapse all files

12
pasterack.rkt
View File

@ -437,17 +437,6 @@
)))) ))))
(send/suspend/dispatch response-generator)) (send/suspend/dispatch response-generator))
(define (check-paste-check-bindings request)
(define bs (request-bindings request))
(if (and (andmap (λ (b) (exists-binding? b bs))
'(name g-recaptcha-response paste fork-from))
(implies (exists-binding? 'irc bs)
(exists-binding? 'nick bs)))
(check-paste request)
(response/xexpr
`(html ()
(head ())
(body () "ERROR: bad paste" ,(mk-link pastebin-url "Go Back"))))))
(define (check-paste request) (define (check-paste request)
(define bs (request-bindings request)) (define bs (request-bindings request))
(define name (extract-binding/single 'name bs)) (define name (extract-binding/single 'name bs))
@ -761,7 +750,6 @@
(define-values (do-dispatch mk-url) (define-values (do-dispatch mk-url)
(dispatch-rules (dispatch-rules
[("") serve-home] [("") serve-home]
[("rest") #:method "post" check-paste-check-bindings]
[("pastes" (string-arg)) serve-paste] [("pastes" (string-arg)) serve-paste]
[("tests") serve-tests] [("tests") serve-tests]
[("bacon") serve-bacon] [("bacon") serve-bacon]