diff options
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/RunHTTP.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/server/RunHTTP.hs b/src/server/RunHTTP.hs index c83f7c0a1..46758fac6 100644 --- a/src/server/RunHTTP.hs +++ b/src/server/RunHTTP.hs @@ -29,11 +29,13 @@ cgiReq (Request method uri hdrs body) = CGIRequest vars inputs body' vars = M.fromList [("REQUEST_METHOD",method), ("REQUEST_URI",show uri), ("SCRIPT_FILENAME",documentRoot++uriPath uri), - ("QUERY_STRING",qs)] + ("QUERY_STRING",qs), + ("HTTP_ACCEPT_LANGUAGE",al)] qs = case uriQuery uri of '?':'&':s -> s -- httpd-shed bug workaround '?':s -> s s -> s + al = maybe "" id $ lookup "Accept-Language" hdrs inputs = map input $ queryToArguments qs -- assumes method=="GET" body' = BS.pack body |