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 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 ""))