scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
interp 2002-08-23 15:41:06 +00:00
parent 1f0a3e6c1b
commit ed4ad0798f
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/httpd/core.scm
View File

@ -421,6 +421,7 @@ the requested method (~A).~%"
(or *fqdn-cache* (or *fqdn-cache*
(begin (begin
(set! *fqdn-cache* (or (httpd-options-fqdn options) (set! *fqdn-cache* (or (httpd-options-fqdn options)
(dns-lookup-ip addr)
(host-info:name (host-info addr)))) (host-info:name (host-info addr))))
*fqdn-cache*))) *fqdn-cache*)))

1
scheme/packages.scm
View File

@ -646,6 +646,7 @@
format-net ; format-internet-host-address format-net ; format-internet-host-address
rate-limit ; rate-limiting stuff rate-limit ; rate-limiting stuff
string-lib ; STRING-INDEX string-lib ; STRING-INDEX
dns ; dns-lookup-ip
handle-fatal-error handle-fatal-error
httpd-read-options httpd-read-options