diff options
| author | hallgren <hallgren@chalmers.se> | 2010-09-10 11:20:49 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2010-09-10 11:20:49 +0000 |
| commit | 2d75820da410abac51ca04bfa145bb2801a64a48 (patch) | |
| tree | f213574934e53cc8dddfa4e7503b3b8f83049f7e /src/server/RunHTTP.hs | |
| parent | e13e47be8afaf1ce888ff9098cd09699bec34ffd (diff) | |
pgf-server HTTP mode: support the Accept-Language header
It is needed for the userLanguage field in the grammar info from pgf-server
Diffstat (limited to 'src/server/RunHTTP.hs')
| -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 |