|
|
|
@ -5,7 +5,7 @@
|
|
|
|
(require xml)
|
|
|
|
(require xml)
|
|
|
|
(require "server-routes.rkt" "predicates.rkt")
|
|
|
|
(require "server-routes.rkt" "predicates.rkt")
|
|
|
|
|
|
|
|
|
|
|
|
(displayln "Pollen server starting...")
|
|
|
|
(displayln "Pollen server starting..." (current-error-port))
|
|
|
|
|
|
|
|
|
|
|
|
(define/contract (route-wrapper route-proc)
|
|
|
|
(define/contract (route-wrapper route-proc)
|
|
|
|
;; todo: make better contract for return value
|
|
|
|
;; todo: make better contract for return value
|
|
|
|
@ -24,14 +24,14 @@
|
|
|
|
[else (λ(req)
|
|
|
|
[else (λ(req)
|
|
|
|
;; because it's the "else" route, can't use string-arg matcher
|
|
|
|
;; because it's the "else" route, can't use string-arg matcher
|
|
|
|
(define request-url (request-uri req))
|
|
|
|
(define request-url (request-uri req))
|
|
|
|
;; /inform is a magic servlet that must be allowed to pass through
|
|
|
|
;; /inform is a magic request that must be allowed to pass through
|
|
|
|
(when (not (equal? (url->string request-url) "/inform"))
|
|
|
|
(when (not (equal? (url->string request-url) "/inform"))
|
|
|
|
(let ([path (reroot-path (url->path request-url) pollen-file-root)]
|
|
|
|
(let ([path (reroot-path (url->path request-url) pollen-file-root)]
|
|
|
|
[force (equal? (get-query-value request-url 'force) "true")])
|
|
|
|
[force (equal? (get-query-value request-url 'force) "true")])
|
|
|
|
(route-default path #:force force)))
|
|
|
|
(route-default path #:force force)))
|
|
|
|
(next-dispatcher))]))
|
|
|
|
(next-dispatcher))]))
|
|
|
|
|
|
|
|
|
|
|
|
(displayln "Ready to rock")
|
|
|
|
(displayln "Ready to rock" (current-error-port))
|
|
|
|
|
|
|
|
|
|
|
|
(serve/servlet start
|
|
|
|
(serve/servlet start
|
|
|
|
#:port 8080
|
|
|
|
#:port 8080
|
|
|
|
|
