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

No need to do uri-decode anymore, URL did not used to do it

Browse Source 
svn: r6426
This commit is contained in:
Jay McCarthy 2007-05-31 05:33:31 +00:00
parent 321c489ef5
commit 200fd8dd85
6 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/web-server/dispatchers/dispatch-files.ss
View File

@ -5,8 +5,7 @@
(lib "list.ss") (lib "list.ss")
(lib "string.ss") (lib "string.ss")
(lib "plt-match.ss") (lib "plt-match.ss")
(lib "contract.ss") (lib "contract.ss"))
(lib "uri-codec.ss" "net"))
(require "dispatch.ss" (require "dispatch.ss"
"../configuration/responders.ss" "../configuration/responders.ss"
"../private/util.ss" "../private/util.ss"
@ -52,7 +51,7 @@
(define path (define path
; XXX Abstract this ; XXX Abstract this
(url-path->path htdocs-path (url-path->path htdocs-path
(uri-decode (url-path->string (url-path uri))))) (url-path->string (url-path uri))))
(cond (cond
[(file-exists? path) [(file-exists? path)
(match (headers-assq* #"Range" (request-headers/raw req)) (match (headers-assq* #"Range" (request-headers/raw req))

5
collects/web-server/dispatchers/dispatch-filter.ss
View File

@ -1,7 +1,6 @@
(module dispatch-filter mzscheme (module dispatch-filter mzscheme
(require (lib "contract.ss") (require (lib "contract.ss")
(lib "url.ss" "net") (lib "url.ss" "net"))
(lib "uri-codec.ss" "net"))
(require "dispatch.ss" (require "dispatch.ss"
"../request-structs.ss" "../request-structs.ss"
"../private/util.ss") "../private/util.ss")
@ -11,7 +10,7 @@
(define interface-version 'v1) (define interface-version 'v1)
(define ((make regex inner) conn req) (define ((make regex inner) conn req)
(define path (uri-decode (url-path->string (url-path (request-uri req))))) (define path (url-path->string (url-path (request-uri req))))
(if (regexp-match regex path) (if (regexp-match regex path)
(inner conn req) (inner conn req)
(next-dispatcher)))) (next-dispatcher))))

3
collects/web-server/dispatchers/dispatch-passwords.ss
View File

@ -1,7 +1,6 @@
(module dispatch-passwords mzscheme (module dispatch-passwords mzscheme
(require (lib "kw.ss") (require (lib "kw.ss")
(lib "url.ss" "net") (lib "url.ss" "net")
(lib "uri-codec.ss" "net")
(lib "contract.ss")) (lib "contract.ss"))
(require "dispatch.ss" (require "dispatch.ss"
"../private/util.ss" "../private/util.ss"
@ -38,7 +37,7 @@
(unbox password-cache)) (unbox password-cache))
(lambda (conn req) (lambda (conn req)
(define uri (request-uri req)) (define uri (request-uri req))
(define path (uri-decode (url-path->string (url-path uri)))) (define path (url-path->string (url-path uri)))
(define method (request-method req)) (define method (request-method req))
(define denied? (read-password-cache)) (define denied? (read-password-cache))
(cond (cond

5
collects/web-server/dispatchers/dispatch-pathprocedure.ss
View File

@ -1,7 +1,6 @@
(module dispatch-pathprocedure mzscheme (module dispatch-pathprocedure mzscheme
(require (lib "contract.ss") (require (lib "contract.ss")
(lib "url.ss" "net") (lib "url.ss" "net"))
(lib "uri-codec.ss" "net"))
(require "dispatch.ss" (require "dispatch.ss"
"../private/util.ss" "../private/util.ss"
"../private/response.ss" "../private/response.ss"
@ -13,7 +12,7 @@
(define interface-version 'v1) (define interface-version 'v1)
(define ((make the-path procedure) conn req) (define ((make the-path procedure) conn req)
(define path (uri-decode (url-path->string (url-path (request-uri req))))) (define path (url-path->string (url-path (request-uri req))))
(if (string=? the-path path) (if (string=? the-path path)
(output-response/method (output-response/method
conn conn

5
collects/web-server/dispatchers/dispatch-servlets.ss
View File

@ -3,8 +3,7 @@
(lib "kw.ss") (lib "kw.ss")
(lib "plt-match.ss") (lib "plt-match.ss")
(lib "string.ss") (lib "string.ss")
(lib "contract.ss") (lib "contract.ss"))
(lib "uri-codec.ss" "net"))
(require "dispatch.ss" (require "dispatch.ss"
"../private/web-server-structs.ss" "../private/web-server-structs.ss"
"../private/connection-manager.ss" "../private/connection-manager.ss"
@ -383,7 +382,7 @@
;; return dispatcher ;; return dispatcher
(lambda (conn req) (lambda (conn req)
(define path (uri-decode (url-path->string (url-path (request-uri req))))) (define path (url-path->string (url-path (request-uri req))))
(cond [(string=? "/conf/refresh-servlets" path) (cond [(string=? "/conf/refresh-servlets" path)
;; more here - this is broken - only out of date or specifically mentioned ;; more here - this is broken - only out of date or specifically mentioned
;; scripts should be flushed. This destroys persistent state! ;; scripts should be flushed. This destroys persistent state!

8
collects/web-server/servlet/helpers.ss
View File

@ -1,8 +1,7 @@
(module helpers mzscheme (module helpers mzscheme
(require (lib "contract.ss") (require (lib "contract.ss")
(lib "kw.ss") (lib "kw.ss")
(lib "plt-match.ss") (lib "plt-match.ss"))
(lib "uri-codec.ss" "net"))
(require "../private/util.ss" (require "../private/util.ss"
"../request-structs.ss" "../request-structs.ss"
"../response-structs.ss") "../response-structs.ss")
@ -53,10 +52,9 @@
(pre ,(exn->string exn)))))))]) (pre ,(exn->string exn)))))))])
(thunk))) (thunk)))
(provide ; all-from (provide
with-errors-to-browser with-errors-to-browser
redirect-to redirect-to)
(rename uri-decode translate-escapes))
(provide/contract (provide/contract
[permanently redirection-status?] [permanently redirection-status?]
[temporarily redirection-status?] [temporarily redirection-status?]