added field for resolving ips in logfiles

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)))