mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-04-27 21:35:13 +00:00
Evgeny Poberezkin
fb26916eea
* ntf-server CLI, re-use SMP server CLI as a library * add executable name
54 lines
1.8 KiB
Haskell
54 lines
1.8 KiB
Haskell
{-# LANGUAGE DuplicateRecordFields #-}
|
|
{-# LANGUAGE NamedFieldPuns #-}
|
|
{-# LANGUAGE TypeApplications #-}
|
|
|
|
module Main where
|
|
|
|
import Simplex.Messaging.Server (runSMPServer)
|
|
import Simplex.Messaging.Server.CLI (ServerCLIConfig (..), protocolServerCLI)
|
|
import Simplex.Messaging.Server.Env.STM (ServerConfig (..))
|
|
import Simplex.Messaging.Transport (simplexMQVersion)
|
|
import System.FilePath (combine)
|
|
|
|
cfgPath :: FilePath
|
|
cfgPath = "/etc/opt/simplex"
|
|
|
|
logPath :: FilePath
|
|
logPath = "/var/opt/simplex"
|
|
|
|
main :: IO ()
|
|
main = protocolServerCLI smpServerCLIConfig runSMPServer
|
|
|
|
smpServerCLIConfig :: ServerCLIConfig ServerConfig
|
|
smpServerCLIConfig =
|
|
let caCrtFile = combine cfgPath "ca.crt"
|
|
serverKeyFile = combine cfgPath "server.key"
|
|
serverCrtFile = combine cfgPath "server.crt"
|
|
in ServerCLIConfig
|
|
{ cfgDir = cfgPath,
|
|
logDir = logPath,
|
|
iniFile = combine cfgPath "smp-server.ini",
|
|
storeLogFile = combine logPath "smp-server-store.log",
|
|
caKeyFile = combine cfgPath "ca.key",
|
|
caCrtFile,
|
|
serverKeyFile,
|
|
serverCrtFile,
|
|
fingerprintFile = combine cfgPath "fingerprint",
|
|
defaultServerPort = "5223",
|
|
executableName = "smp-server",
|
|
serverVersion = "SMP server v" <> simplexMQVersion,
|
|
mkServerConfig = \storeLogFile transports ->
|
|
ServerConfig
|
|
{ transports,
|
|
tbqSize = 16,
|
|
serverTbqSize = 64,
|
|
msgQueueQuota = 128,
|
|
queueIdBytes = 24,
|
|
msgIdBytes = 24, -- must be at least 24 bytes, it is used as 192-bit nonce for XSalsa20
|
|
caCertificateFile = caCrtFile,
|
|
privateKeyFile = serverKeyFile,
|
|
certificateFile = serverCrtFile,
|
|
storeLogFile
|
|
}
|
|
}
|