scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added field for resolving ips in logfiles

This commit is contained in:
interp 2002-08-22 16:10:08 +00:00
parent 01b0dccb78
commit e0af4da4d6
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/httpd/options.scm
View File

@ -13,7 +13,8 @@
server-admin server-admin
simultaneous-requests simultaneous-requests
logfile logfile
syslog?) syslog?
resolve-ips?)
httpd-options? httpd-options?
(port httpd-options-port (port httpd-options-port
set-httpd-options-port!) set-httpd-options-port!)
@ -30,7 +31,8 @@
(simultaneous-requests httpd-options-simultaneous-requests (simultaneous-requests httpd-options-simultaneous-requests
set-httpd-options-simultaneous-requests!) set-httpd-options-simultaneous-requests!)
(logfile httpd-options-logfile set-httpd-options-logfile!) (logfile httpd-options-logfile set-httpd-options-logfile!)
(syslog? httpd-options-syslog? set-httpd-options-syslog?!)) (syslog? httpd-options-syslog? set-httpd-options-syslog?!)
(resolve-ips? httpd-options-resolve-ips? set-httpd-options-resolve-ips?!))
; default httpd-options generation ; default httpd-options generation
(define (make-httpd-options) (define (make-httpd-options)
@ -45,7 +47,8 @@
; string: filename of logfile (directory must exist) ; string: filename of logfile (directory must exist)
; output-port: log to this port (e.g. (current-error-port)) ; output-port: log to this port (e.g. (current-error-port))
; #f: no logging ; #f: no logging
#t)) ; Do syslogging? #t ; Do syslogging?
#t)) ; Write host names instead of IPs in logfiles?
; creates a copy of a given httpd-option ; creates a copy of a given httpd-option
@ -68,6 +71,7 @@
(httpd-options-simultaneous-requests options)) (httpd-options-simultaneous-requests options))
(set-httpd-options-logfile! new-options (httpd-options-logfile options)) (set-httpd-options-logfile! new-options (httpd-options-logfile options))
(set-httpd-options-syslog?! new-options (httpd-options-syslog? options)) (set-httpd-options-syslog?! new-options (httpd-options-syslog? options))
(set-httpd-options-resolve-ips?! new-options (httpd-options-resolve-ips? options))
new-options)) new-options))
; (make-httpd-options-transformer set-option!) -> lambda (new-value [httpd-option]) ; (make-httpd-options-transformer set-option!) -> lambda (new-value [httpd-option])
@ -101,6 +105,8 @@
(make-httpd-options-transformer set-httpd-options-logfile!)) (make-httpd-options-transformer set-httpd-options-logfile!))
(define with-syslog? (define with-syslog?
(make-httpd-options-transformer set-httpd-options-syslog?!)) (make-httpd-options-transformer set-httpd-options-syslog?!))
(define with-resolve-ips?
(make-httpd-options-transformer set-httpd-options-resolve-ips?!))
;(define (with-httpd-options options-alist) ;(define (with-httpd-options options-alist)
; (let ((new-options (make-httpd-options))) ; (let ((new-options (make-httpd-options)))