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

make sure it's a post

Browse source
This commit is contained in:
Cadence Ember 2025-11-04 23:56:32 +13:00
parent 4f4c939631
commit 02848acfbb
1 changed files with 14 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/page-wiki.rkt
View file

@ -96,7 +96,10 @@
(easy:response-body dest-res)))])) (easy:response-body dest-res)))]))
(define (page-wiki-with-data req) (define (page-wiki-with-data req)
(response-handler
(define post-data/bytes (request-post-data/raw req)) (define post-data/bytes (request-post-data/raw req))
(when (not post-data/bytes)
(raise-user-error 'page-wiki-with-data "POST requests only, please."))
(define post-data/string (bytes->string/utf-8 post-data/bytes)) (define post-data/string (bytes->string/utf-8 post-data/bytes))
(define post-data (string->jsexpr post-data/string)) (define post-data (string->jsexpr post-data/string))
(define wikiname (jp "/wikiname" post-data)) (define wikiname (jp "/wikiname" post-data))
@ -106,7 +109,7 @@
#:wikiname wikiname #:wikiname wikiname
#:source-url (format "https://~a.fandom.com/wiki/~a" wikiname path) #:source-url (format "https://~a.fandom.com/wiki/~a" wikiname path)
#:data (jp "/data" post-data) #:data (jp "/data" post-data)
#:siteinfo (data->siteinfo (jp "/siteinfo" post-data)))) #:siteinfo (data->siteinfo (jp "/siteinfo" post-data)))))
(define (take-json-rewrite-and-return-page #:req req #:wikiname wikiname #:source-url source-url #:data data #:siteinfo siteinfo) (define (take-json-rewrite-and-return-page #:req req #:wikiname wikiname #:source-url source-url #:data data #:siteinfo siteinfo)
(define title (jp "/parse/title" data "")) (define title (jp "/parse/title" data ""))