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

bb

Browse source
This commit is contained in:
blankie 2022-10-08 16:12:30 +07:00
parent fe87ff26c5
commit 8b8a9c5e09
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/page-file.rkt
View file

@ -78,22 +78,22 @@
(define source-url (format "~a/wiki/~a" origin prefixed-title))
(thread-let
([media-detail (define dest-url
(format "~a/wikia.php?~a"
origin
(params->query `(("format" . "json")
("controller" . "Lightbox")
("method" . "getMediaDetail")
("fileTitle" . prefixed-title)))))
(log-outgoing dest-url)
(define dest-res (easy:get dest-url #:timeouts timeouts))
(easy:response-json dest-res)]
[license (license-auto wikiname)]))
([media-detail (define dest-url
(format "~a/wikia.php?~a"
origin
(params->query `(("format" . "json")
("controller" . "Lightbox")
("method" . "getMediaDetail")
("fileTitle" . prefixed-title)))))
(log-outgoing dest-url)
(define dest-res (easy:get dest-url #:timeouts timeouts))
(easy:response-json dest-res)]
[license (license-auto wikiname)]))
(if (not (jp "/exists" media-detail #f))
(next-dispatcher)
(response-handler
(define title (jp "/fileTitle" media-detail)))
(define title (jp "/fileTitle" media-detail))
(define body (generate-results-page
#:source-url source-url
#:wikiname wikiname
@ -108,7 +108,7 @@
(response/output
#:code 200
(λ (out)
(write-html body out)))))
(write-html body out))))))
;(module+ test
; (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
; (generate-results-page