|
|
|
|
@ -192,7 +192,11 @@
|
|
|
|
|
(if (procedure? path)
|
|
|
|
|
(set! *proc-resources* (cons (list path upcase-method proc) *proc-resources*))
|
|
|
|
|
(hash-table-set! *static-resources*
|
|
|
|
|
(list path upcase-method) proc))))
|
|
|
|
|
(list
|
|
|
|
|
(cond ((string? path) path)
|
|
|
|
|
((uri-reference? path) (uri->string path))
|
|
|
|
|
(else (abort "unknown path type")))
|
|
|
|
|
upcase-method) proc))))
|
|
|
|
|
methods)))
|
|
|
|
|
|
|
|
|
|
(define (reset-resources!)
|
|
|
|
|
@ -316,10 +320,11 @@
|
|
|
|
|
($ 'sid))))
|
|
|
|
|
|
|
|
|
|
(define (redirect-to new-uri)
|
|
|
|
|
;; Just set the `%redirect' internal parameter, so `run-resource' is
|
|
|
|
|
;; able to know where to redirect.
|
|
|
|
|
(%redirect new-uri)
|
|
|
|
|
"")
|
|
|
|
|
(display (string-append "<html><head><meta http-equiv=\"refresh\" content=\"0; URL="
|
|
|
|
|
(cond ((string? new-uri) new-uri)
|
|
|
|
|
((uri-reference? new-uri) (uri->string new-uri))
|
|
|
|
|
(else (abort "invalid URI construct")))
|
|
|
|
|
"\"></head></html")))
|
|
|
|
|
|
|
|
|
|
(define ($ var #!optional default/converter)
|
|
|
|
|
(unless (http-request-variables)
|
|
|
|
|
|
