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

Allowing #f for passwords

Browse Source 
svn: r12342
This commit is contained in:
Jay McCarthy 2008-11-07 17:21:52 +00:00
parent 107364fcf6
commit 72db2436c0
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/web-server/web-server-unit.ss
View File

@ -57,18 +57,20 @@
(log:make #:format (log:log-format->format (host-log-format host-info)) (log:make #:format (log:log-format->format (host-log-format host-info))
#:log-path (host-log-path host-info)) #:log-path (host-log-path host-info))
(lambda (conn req) (next-dispatcher))) (lambda (conn req) (next-dispatcher)))
(let-values ([(update-password-cache! password-check) (if (host-passwords host-info)
(passwords:password-file->authorized? (host-passwords host-info))]) (let-values ([(update-password-cache! password-check)
(sequencer:make (passwords:password-file->authorized? (host-passwords host-info))])
(timeout:make (timeouts-password (host-timeouts host-info))) (sequencer:make
(passwords:make (timeout:make (timeouts-password (host-timeouts host-info)))
(passwords:make-basic-denied?/path (passwords:make
password-check) (passwords:make-basic-denied?/path
#:authentication-responder (responders-authentication (host-responders host-info))) password-check)
(path-procedure:make "/conf/refresh-passwords" #:authentication-responder (responders-authentication (host-responders host-info)))
(lambda _ (path-procedure:make "/conf/refresh-passwords"
(update-password-cache!) (lambda _
((responders-passwords-refreshed (host-responders host-info))))))) (update-password-cache!)
((responders-passwords-refreshed (host-responders host-info)))))))
(lambda (conn req) (next-dispatcher)))
(path-procedure:make "/conf/collect-garbage" (path-procedure:make "/conf/collect-garbage"
(lambda _ (lambda _
(collect-garbage) (collect-garbage)