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

Stephen bug

Browse Source 
svn: r14022
This commit is contained in:
Jay McCarthy 2009-03-09 16:58:31 +00:00
parent 44e7744646
commit d8232c3edd
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/dispatchers/dispatch-log.ss
View File

@ -20,7 +20,7 @@
[interface-version dispatcher-interface-version/c] [interface-version dispatcher-interface-version/c]
[make (->* () [make (->* ()
(#:format format-req/c (#:format format-req/c
#:log-path path-string?) #:log-path path-string?)
dispatcher/c)]) dispatcher/c)])
(define interface-version 'v1) (define interface-version 'v1)

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

@ -72,7 +72,10 @@
(values update-password-cache! (values update-password-cache!
(lambda (path user pass) (lambda (path user pass)
(define denied? (read-password-cache)) (define denied? (read-password-cache))
(denied? path (if user (lowercase-symbol! user) #f) pass)))) (if denied?
(denied? path (if user (lowercase-symbol! user) #f) pass)
; Fail un-safe
#f))))
;; pass-entry = (make-pass-entry str regexp (list sym str)) ;; pass-entry = (make-pass-entry str regexp (list sym str))
(define-struct pass-entry (domain pattern users)) (define-struct pass-entry (domain pattern users))