From 2d75820da410abac51ca04bfa145bb2801a64a48 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 10 Sep 2010 11:20:49 +0000
Subject: [PATCH] pgf-server HTTP mode: support the Accept-Language header

It is needed for the userLanguage field in the grammar info from pgf-server
---
 src/server/RunHTTP.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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