mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-03-30 14:16:00 +00:00
437cdde4a5
* xftp: add web page for server information * web: rename XFTP.Web to XFTPWeb, remove XFTP subdirectory * refactor(xftp): remove storage quota from web page * refactor --------- Co-authored-by: Evgeny Poberezkin <evgeny@poberezkin.com>
24 lines
761 B
Haskell
24 lines
761 B
Haskell
module Main where
|
|
|
|
import Control.Logger.Simple
|
|
import Simplex.FileTransfer.Server.Main (xftpServerCLI_)
|
|
import Simplex.Messaging.Server.CLI (getEnvPath)
|
|
import Simplex.Messaging.Server.Web (serveStaticFiles)
|
|
import XFTPWeb (xftpGenerateSite)
|
|
|
|
defaultCfgPath :: FilePath
|
|
defaultCfgPath = "/etc/opt/simplex-xftp"
|
|
|
|
defaultLogPath :: FilePath
|
|
defaultLogPath = "/var/opt/simplex-xftp"
|
|
|
|
logCfg :: LogConfig
|
|
logCfg = LogConfig {lc_file = Nothing, lc_stderr = True}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
setLogLevel LogDebug -- change to LogError in production
|
|
cfgPath <- getEnvPath "XFTP_SERVER_CFG_PATH" defaultCfgPath
|
|
logPath <- getEnvPath "XFTP_SERVER_LOG_PATH" defaultLogPath
|
|
withGlobalLogging logCfg $ xftpServerCLI_ xftpGenerateSite serveStaticFiles cfgPath logPath
|