mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-03-30 22:55:50 +00:00
84ce037867
* Trace auto-subs flag * Replace Bools with SubscriptionMode * Handle SMOnlyCreate * Wire remaining todos * Update tests and fix * Bump protocol level * Apply suggestions from code review Co-authored-by: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com> * Scrub needs_sub from agent DB * Scrub a few more needSubs from the agent api * change API, fix test * agent: do not subscribe to queue when creating reply queue * fix encoding * WIP: SMOnlyCreate test * Add SM guard for confirmQueue Allows the test case to pump the allowConnection reply without getting PROHIBITED. * Remove tracing * add noMessages, remove unnecessary getConnectionMessage from test * add sending messages to the test --------- Co-authored-by: IC Rainbow <aenor.realm@gmail.com> Co-authored-by: Alexander Bondarenko <486682+dpwiz@users.noreply.github.com>
27 lines
704 B
Haskell
27 lines
704 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
|
|
module Main where
|
|
|
|
import Control.Logger.Simple
|
|
import Simplex.Messaging.Server.Main
|
|
import System.Environment
|
|
|
|
defaultCfgPath :: FilePath
|
|
defaultCfgPath = "/etc/opt/simplex"
|
|
|
|
defaultLogPath :: FilePath
|
|
defaultLogPath = "/var/opt/simplex"
|
|
|
|
logCfg :: LogConfig
|
|
logCfg = LogConfig {lc_file = Nothing, lc_stderr = True}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
setLogLevel LogDebug
|
|
cfgPath <- getEnvPath "SMP_SERVER_CFG_PATH" defaultCfgPath
|
|
logPath <- getEnvPath "SMP_SERVER_LOG_PATH" defaultLogPath
|
|
withGlobalLogging logCfg $ smpServerCLI cfgPath logPath
|
|
|
|
getEnvPath :: String -> FilePath -> IO FilePath
|
|
getEnvPath name def = maybe def (\case "" -> def; f -> f) <$> lookupEnv name
|