diff options
author | Joey Hess <joey@kitenet.net> | 2014-05-14 14:26:28 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-05-14 14:26:28 -0400 |
commit | 2b89de6562469c7bee6ae8e78205012ef43396dc (patch) | |
tree | ad5804336698abe852551adc44704276fd6ae0cf | |
parent | 250035e1843bbcded9d45a45d043b6bfc8f1dc4f (diff) |
setsid when running webapp in foreground too
This avoids ssh prompting for passwords on stdin, ever.
It may also change other behavior of other programs, as there is no
controlling terminal now. However, setsid was already done when running the
assistant in daemon mode, so any behavior changes should not be really new.
-rw-r--r-- | Assistant.hs | 4 | ||||
-rw-r--r-- | Utility/Daemon.hs | 9 |
2 files changed, 10 insertions, 3 deletions
diff --git a/Assistant.hs b/Assistant.hs index b5caceac2..5dd6a7ece 100644 --- a/Assistant.hs +++ b/Assistant.hs @@ -84,9 +84,7 @@ startDaemon assistant foreground startdelay cannotrun listenhost startbrowser = fdToHandle =<< dup stdError let undaemonize a = do debugM desc $ "logging to " ++ logfile - Utility.Daemon.lockPidFile pidfile - Utility.LogFile.redirLog logfd - a + Utility.Daemon.foreground logfd (Just pidfile) a start undaemonize $ case startbrowser of Nothing -> Nothing diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs index 2b62382ee..2a2e0e08a 100644 --- a/Utility/Daemon.hs +++ b/Utility/Daemon.hs @@ -56,6 +56,15 @@ daemonize logfd pidfile changedirectory a = do out = exitImmediately ExitSuccess #endif +{- To run an action that is normally daemonized in the forground. -} +foreground :: Fd -> Maybe FilePath -> IO () -> IO () +foreground logfd pidfile a = do + maybe noop lockPidFile pidfile + _ <- createSession + redirLog logfd + a + exitImmediately ExitSuccess + {- Locks the pid file, with an exclusive, non-blocking lock, - and leaves it locked on return. - |