Stephen bug

svn: r14022
2009-03-09 16:58:31 +00:00 · 2009-03-09 16:58:31 +00:00 · d8232c3edd
commit d8232c3edd
parent 44e7744646
2 changed files with 5 additions and 2 deletions
--- a/collects/web-server/dispatchers/dispatch-passwords.ss
+++ b/collects/web-server/dispatchers/dispatch-passwords.ss
@ -72,7 +72,10 @@
  (values update-password-cache!
          (lambda (path user pass)
            (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))
 (define-struct pass-entry (domain pattern users))