From 1497fd863ae7b1d4b2c1f7144a1d2753875bae75 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 9 Jan 2013 13:28:45 +0000
Subject: PGF service: new command: download

This makes it possible to download PGF files from servers where the PGF service
is installed.

I am also considering making commmand=download the default instead of
command=grammar.
---
 src/server/FastCGIUtils.hs | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'src/server/FastCGIUtils.hs')

diff --git a/src/server/FastCGIUtils.hs b/src/server/FastCGIUtils.hs
index 2abc66072..05aa29eac 100644
--- a/src/server/FastCGIUtils.hs
+++ b/src/server/FastCGIUtils.hs
@@ -3,9 +3,8 @@ module FastCGIUtils (--initFastCGI, loopFastCGI,
                      throwCGIError, handleCGIErrors,
                      stderrToFile,logError,
                      outputJSONP,outputEncodedJSONP,
-                     outputPNG,
-                     outputHTML,
-                     outputPlain,
+                     outputPNG,outputBinary,
+                     outputHTML,outputPlain,
                      splitBy) where
 
 import Control.Concurrent
@@ -177,14 +176,19 @@ outputPNG x = do
        setHeader "Content-Type" "image/png"
        outputFPS x
 
+outputBinary :: BS.ByteString -> CGI CGIResult
+outputBinary x = do
+       setHeader "Content-Type" "application/binary"
+       outputFPS x
+
 outputHTML :: String -> CGI CGIResult
 outputHTML x = do
-       setHeader "Content-Type" "text/html"
+       setHeader "Content-Type" "text/html; charset=utf-8"
        outputStrict $ UTF8.encodeString x
 
 outputPlain :: String -> CGI CGIResult
 outputPlain x = do
-       setHeader "Content-Type" "text/plain"
+       setHeader "Content-Type" "text/plain; charset=utf-8"
        outputStrict $ UTF8.encodeString x
 
 outputStrict :: String -> CGI CGIResult
-- 
cgit v1.2.3