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

Fill cache for my-fqdn.

This commit is contained in:
mainzelm 2002-02-21 16:42:26 +00:00
parent 001f9a511b
commit 666ac9897d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
httpd-core.scm
View File

@ -500,7 +500,9 @@ the requested method (~A).~%"
(define (my-fqdn addr) (define (my-fqdn addr)
(or *my-fqdn* (or *my-fqdn*
(host-info:name (host-info addr)))) (begin
(set-my-fqdn! (host-info:name (host-info addr)))
*my-fqdn*)))
(define *my-fqdn* #f) (define *my-fqdn* #f)
(define (set-my-fqdn! fqdn) (define (set-my-fqdn! fqdn)