diff --git a/scheme/httpd/options.scm b/scheme/httpd/options.scm index ed5982b..4914bfe 100644 --- a/scheme/httpd/options.scm +++ b/scheme/httpd/options.scm @@ -13,7 +13,8 @@ server-admin simultaneous-requests logfile - syslog?) + syslog? + resolve-ips?) httpd-options? (port httpd-options-port set-httpd-options-port!) @@ -30,7 +31,8 @@ (simultaneous-requests httpd-options-simultaneous-requests set-httpd-options-simultaneous-requests!) (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 (define (make-httpd-options) @@ -45,7 +47,8 @@ ; string: filename of logfile (directory must exist) ; output-port: log to this port (e.g. (current-error-port)) ; #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 @@ -68,6 +71,7 @@ (httpd-options-simultaneous-requests options)) (set-httpd-options-logfile! new-options (httpd-options-logfile 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)) ; (make-httpd-options-transformer set-option!) -> lambda (new-value [httpd-option]) @@ -101,6 +105,8 @@ (make-httpd-options-transformer set-httpd-options-logfile!)) (define with-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) ; (let ((new-options (make-httpd-options)))