module Network.Salvia.Handlers.CGI (hCGI) where

import Control.Monad.State
import System.IO
import System.Process (runProcess, waitForProcess)

import Network.Salvia.Httpd
import Network.Protocol.Http

hCGI :: FilePath -> Handler ()
hCGI name = do
  modResponse
    $ setStatus OK
  h <- gets sock
  lift $ do
    p <- runProcess name [] Nothing Nothing (Just h) (Just h) (Just stderr)
    waitForProcess p
    return ()