Added REMOTE_ADDR variable for CGI
commit31c0729c7d69463ec92c500a21912248993ae012
authorMichael Snoyman <michael@snoyman.com>
dateFri 26 Feb 2010, 10:06 (17 years ago)
parent3ab9864
Network/Wai/Handler/CGI.hs+7−1
@@ -40,7 +40,13 @@ run' vars inputH outputH app = do
4040 servername = lookup' "SERVER_NAME" vars
4141 serverport = safeRead 80 $ lookup' "SERVER_PORT" vars
4242 contentLength = safeRead 0 $ lookup' "CONTENT_LENGTH" vars
43− remoteHost' = safeRead "" $ lookup' "REMOTE_HOST" vars
43+ remoteHost' =
44+ case lookup "REMOTE_HOST" vars of
45+ Just x -> x
46+ Nothing ->
47+ case lookup "REMOTE_ADDR" vars of
48+ Just x -> x
49+ Nothing -> ""
4450 urlScheme' =
4551 case map toLower $ lookup' "SERVER_PROTOCOL" vars of
4652 "https" -> HTTPS