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-path (host-log-path host-info))
(lambda (conn req) (next-dispatcher)))
(let-values ([(update-password-cache! password-check)
(passwords:password-file->authorized? (host-passwords host-info))])
(sequencer:make
(timeout:make (timeouts-password (host-timeouts host-info)))
(passwords:make
(passwords:make-basic-denied?/path
password-check)
#:authentication-responder (responders-authentication (host-responders host-info)))
(path-procedure:make "/conf/refresh-passwords"
(lambda _
(update-password-cache!)
((responders-passwords-refreshed (host-responders host-info)))))))
(if (host-passwords host-info)
(let-values ([(update-password-cache! password-check)
(passwords:password-file->authorized? (host-passwords host-info))])
(sequencer:make
(timeout:make (timeouts-password (host-timeouts host-info)))
(passwords:make
(passwords:make-basic-denied?/path
password-check)
#:authentication-responder (responders-authentication (host-responders host-info)))
(path-procedure:make "/conf/refresh-passwords"
(lambda _
(update-password-cache!)
((responders-passwords-refreshed (host-responders host-info)))))))
(lambda (conn req) (next-dispatcher)))
(path-procedure:make "/conf/collect-garbage"
(lambda _
(collect-garbage)