use dns-lookup-ip before using host-info for fqdn

2002-08-23 15:41:06 +00:00 · 2002-08-23 15:41:06 +00:00 · ed4ad0798f
parent 1f0a3e6c1b
commit ed4ad0798f
2 changed files with 2 additions and 0 deletions
--- 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*)))

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