diff options
Diffstat (limited to 'tissue/web/server.scm')
-rw-r--r-- | tissue/web/server.scm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm index f5e601b..1e6d04b 100644 --- a/tissue/web/server.scm +++ b/tissue/web/server.scm @@ -198,28 +198,6 @@ operators " (ul (@ (class "search-results")) ,@results)))) -(define (query-parameters query) - "Return an association list of query parameters in web QUERY string." - (if query - (map (lambda (parameter) - (match (string-split parameter #\=) - ((key value) - (cons (uri-decode key) - (uri-decode value))))) - (string-split query #\&)) - '())) - -(define (query-string parameters) - "Return a query string for association list of PARAMETERS." - (string-join - (map (match-lambda - ((key . value) - (string-append (uri-encode key) - "=" - (uri-encode value)))) - parameters) - "&")) - (define (log-request request) "Log @var{request} to standard output." (format #t "~a ~a\n" |