suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't redirect to static resources: avoids a redirect loop in some configurations. Instead, just supply links to static resources for the next hop.

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-01-27 13:50:07 -05:00
parent 17e769739b
commit b54d6a685f
1 changed files with 184 additions and 194 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/site.rkt
View File

@ -105,7 +105,7 @@
;; " Download")
;; "http://download.racket-lang.org/")
))
(bootstrap-static-urlprefix (if (use-cache?) static-urlprefix ""))
(bootstrap-static-urlprefix (if (rendering-static-page?) static-urlprefix ""))
(jsonp-baseurl backend-baseurl))
body ...))
@ -583,11 +583,6 @@
(define package-name-list (package-search "" '((main-distribution #f))))
(authentication-wrap
#:request request
(cond
[(and (use-cache?) (not (rendering-static-page?)))
;; Redirect to static version
(bootstrap-redirect (main-page-url))]
[else
(bootstrap-response "Racket Package Index"
#:title-element ""
#:body-class "main-page"
@ -613,7 +608,7 @@
`(div
(p ((class "package-count"))
,(format "~a packages" (length package-name-list)))
,(package-summary-table package-name-list)))]))))
,(package-summary-table package-name-list))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -630,16 +625,11 @@
(define package-name (string->symbol package-name-str))
(define pkg (package-detail package-name))
(define default-version (package-default-version pkg))
(cond
[(and (use-cache?) (not (rendering-static-page?)))
;; Redirect to static version
(bootstrap-redirect (view-package-url package-name))]
[(not pkg)
(if (not pkg)
(bootstrap-response #:code 404
#:message #"No such package"
"Package not found"
`(div "The package " (code ,package-name-str) " does not exist."))]
[else
`(div "The package " (code ,package-name-str) " does not exist."))
(bootstrap-response (~a package-name)
#:title-element ""
`(div ((class "jumbotron"))
@ -797,7 +787,7 @@
,@(for/list ((mod (package-modules pkg)))
(match-define (list kind path) mod)
`(li ((class ,kind)) ,path)))))
))])))
)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;