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

encode paths in url strings

Browse Source 
svn: r845
This commit is contained in:
Eli Barzilay 2005-09-13 00:38:04 +00:00
parent 4629487985
commit 957943f162
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/handin-server/status-web-root/servlets/status.ss
View File

@ -7,7 +7,8 @@
(lib "unitsig.ss")
(lib "servlet-sig.ss" "web-server")
(lib "response.ss" "web-server")
(lib "md5.ss" "handin-server"))
(lib "md5.ss" "handin-server")
(lib "uri-codec.ss" "net"))
(provide status-servlet)
@ -59,9 +60,11 @@
(if (path? handin-dir) (path->string handin-dir) handin-dir)
"/")))))
(define (make-k k tag)
(let ([tag (if (path? tag) (path->string tag) tag)])
(format "~a~atag=~a" k (if (regexp-match #rx"^[^#]*[?]" k) "&" "?")
(regexp-replace handin-prefix-re tag ""))))
(format "~a~atag=~a" k (if (regexp-match #rx"^[^#]*[?]" k) "&" "?")
(uri-encode (regexp-replace
handin-prefix-re
(if (path? tag) (path->string tag) tag)
""))))
(define (select-k request)
(let ([a (assq 'tag (request-bindings request))])
(and a (cdr a))))