25 lines
1.1 KiB
Scheme
25 lines
1.1 KiB
Scheme
(module configuration-table-structs mzscheme
|
|
(require "util.ss")
|
|
|
|
; configuration-table = (make-configuration-table nat nat num host-table (listof (cons str host-table)))
|
|
(provide-define-struct
|
|
configuration-table
|
|
(port max-waiting initial-connection-timeout default-host virtual-hosts))
|
|
|
|
; host-table = (make-host-table (listof str) sym messages timeouts paths)
|
|
(provide-define-struct host-table (indices log-format messages timeouts paths))
|
|
|
|
; passwords = (listof (list* relm:str protected-dir-regexp:str (listof (list user:sym password:str))))
|
|
; passwords moved back to a separate file
|
|
|
|
; messages = (make-messages str^6)
|
|
(provide-define-struct messages
|
|
(servlet ;servlet-loading
|
|
authentication servlets-refreshed passwords-refreshed file-not-found protocol collect-garbage))
|
|
|
|
; timeouts = (make-timeouts nat^5)
|
|
(provide-define-struct timeouts (default-servlet password servlet-connection file-per-byte file-base))
|
|
|
|
; paths = (make-paths str^6)
|
|
(provide-define-struct paths (conf host-base log htdocs servlet passwords)))
|