Protect dns-lookup-ip with a fatal error handler.

2002-12-19 14:30:39 +00:00 · 2002-12-19 14:30:39 +00:00 · 8b6d244f0e
parent 5a20cc1e0a
commit 8b6d244f0e
1 changed files with 5 additions and 1 deletions
--- a/scheme/httpd/logging.scm
+++ b/scheme/httpd/logging.scm
@ -164,6 +164,10 @@

 (define (maybe-dns-lookup remote-ip)
  (if (logging-dns-lookup?)
-      (or (dns-lookup-ip remote-ip)
+      (or (with-fatal-error-handler*
+	   (lambda (condition decline)
+	     remote-ip)
+	   (lambda ()
+	     (dns-lookup-ip remote-ip)))
 	  remote-ip)
      remote-ip))