From 666ac9897db6a3b8490c56f359e97b1c3b676671 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 21 Feb 2002 16:42:26 +0000
Subject: [PATCH] Fill cache for my-fqdn.

---
 httpd-core.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/httpd-core.scm b/httpd-core.scm
index f6f59c8..4dc1f05 100644
--- a/httpd-core.scm
+++ b/httpd-core.scm
@@ -500,7 +500,9 @@ the requested method (~A).~%"
 
 (define (my-fqdn addr)
   (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 (set-my-fqdn! fqdn)