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

remove bug from my-reported-fqdn

This commit is contained in:
interp 2002-08-24 16:46:34 +00:00
parent 514d61b986
commit 1ea2e0f8e7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/core.scm
View File

@ -421,7 +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) (dns-lookup-ip (socket-address->string addr))
(host-info:name (host-info addr)))) (host-info:name (host-info addr))))
*fqdn-cache*))) *fqdn-cache*)))
@ -429,3 +429,4 @@ the requested method (~A).~%"
(or (httpd-options-reported-port options) (or (httpd-options-reported-port options)
(receive (ip-addr portnum) (socket-address->internet-address addr) (receive (ip-addr portnum) (socket-address->internet-address addr)
portnum))) portnum)))