[Fencommits] fenserve: add localhost.localdomain to allowed clients

[Tuukka Hastrup]

Fri Mar 23 16:59:58 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * add localhost.localdomain to allowed clients
diff -rN -u old-fenserve-1/Main.hs new-fenserve-1/Main.hs
--- old-fenserve-1/Main.hs	2007-03-23 17:00:59.000000000 +0200
+++ new-fenserve-1/Main.hs	2007-03-23 17:00:59.000000000 +0200
@@ -36,7 +36,8 @@
 asURI = Just
 
 localhostOnlyFilter = Handle $ \req -> do
-    if fst (rqPeer req) == "localhost" then request req else respond $ return $
+    if fst (rqPeer req) `elem` ["localhost","localhost.localdomain"] 
+        then request req else respond $ return $
         mkResult 403 "text/html" $ toUTF "403 Forbidden: Try from localhost"
         
 fenserveHandler = Handle $ \req -> do