pgf-server: write stderr to pgf-error.log, since lighttpd closes stderr for fastcgi processes.

src/server/FastCGIUtils.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable #-}
 module FastCGIUtils (initFastCGI, loopFastCGI,
                      throwCGIError, handleCGIErrors,
+                     stderrToFile,
                      outputJSONP, 
                      splitBy) where
 
@@ -110,6 +111,13 @@ restartIfModified =
 logError :: String -> IO ()
 logError s = hPutStrLn stderr s
 
+stderrToFile :: FilePath -> IO ()
+stderrToFile file =
+    do let mode = ownerModes `unionFileModes` groupReadMode `unionFileModes` otherReadMode
+       fileFd <- openFd file WriteOnly (Just mode) (defaultFileFlags { append = True })
+       dupTo fileFd stdError
+       return ()
+
 -- * General CGI Error exception mechanism
 
 data CGIError = CGIError { cgiErrorCode :: Int, cgiErrorMessage :: String, cgiErrorText :: [String] }

src/server/PGFService.hs

@@ -20,9 +20,12 @@ import Data.Maybe
 import System.Directory
 import System.FilePath
 
+logFile :: FilePath
+logFile = "pgf-error.log"
 
 main :: IO ()
-main = do initFastCGI
+main = do stderrToFile logFile
+          initFastCGI
           cache <- newCache PGF.readPGF
           runFastCGIConcurrent' forkIO 100 (handleErrors (handleCGIErrors (cgiMain cache)))