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

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

@ -57,6 +57,7 @@
(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)))
(if (host-passwords host-info)
(let-values ([(update-password-cache! password-check) (let-values ([(update-password-cache! password-check)
(passwords:password-file->authorized? (host-passwords host-info))]) (passwords:password-file->authorized? (host-passwords host-info))])
(sequencer:make (sequencer:make
@ -69,6 +70,7 @@
(lambda _ (lambda _
(update-password-cache!) (update-password-cache!)
((responders-passwords-refreshed (host-responders host-info))))))) ((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)