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

Redirect to actual wiki main page

Browse source
This commit is contained in:
Cadence Ember 2022-10-09 22:54:59 +13:00
parent 59332fd9d1
commit ade7878f7b
Signed by untrusted user: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/page-redirect-wiki-home.rkt
View file

@ -2,6 +2,7 @@
(require net/url (require net/url
web-server/http web-server/http
"application-globals.rkt" "application-globals.rkt"
"data.rkt"
"url-utils.rkt" "url-utils.rkt"
"xexpr-utils.rkt") "xexpr-utils.rkt")
@ -11,5 +12,6 @@
(define (redirect-wiki-home req) (define (redirect-wiki-home req)
(response-handler (response-handler
(define wikiname (path/param-path (car (url-path (request-uri req))))) (define wikiname (path/param-path (car (url-path (request-uri req)))))
(define dest (format "/~a/wiki/Main_Page" wikiname)) (define siteinfo (siteinfo-fetch wikiname))
(define dest (format "/~a/wiki/~a" wikiname (or (siteinfo^-basepage siteinfo) "Main_Page")))
(generate-redirect dest))) (generate-redirect dest)))