From ed4ad0798f2fcd88801a2ff43a689d7986676651 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 23 Aug 2002 15:41:06 +0000
Subject: [PATCH] use dns-lookup-ip before using host-info for fqdn

---
 scheme/httpd/core.scm | 1 +
 scheme/packages.scm   | 1 +
 2 files changed, 2 insertions(+)

diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index 54e0565..76dd27f 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -421,6 +421,7 @@ the requested method (~A).~%"
   (or *fqdn-cache*
       (begin
       (set! *fqdn-cache* (or (httpd-options-fqdn options)
+			     (dns-lookup-ip addr)
 			     (host-info:name (host-info addr))))
       *fqdn-cache*)))
 
diff --git a/scheme/packages.scm b/scheme/packages.scm
index a7712e7..7b4af9f 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -646,6 +646,7 @@
 	format-net			; format-internet-host-address
 	rate-limit			; rate-limiting stuff
 	string-lib			; STRING-INDEX
+	dns				; dns-lookup-ip
 
 	handle-fatal-error
 	httpd-read-options