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

This commit is contained in:
bjorn
2008-11-04 09:28:21 +00:00
parent a6905d654d
commit f1fcee964f
2 changed files with 12 additions and 1 deletions

View File

@@ -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)))