mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-04-27 12:56:03 +00:00
Evgeny Poberezkin
0ccde5871c
* transport encryption (WIP - using fixed key, parsing/serialization works, SMP tests fail) * transport encryption * transport encryption: separate keys to receive and to send, counter-based IVs * docs: update transport encryption and handshake * transport encryption handshake (TODO: validate key hash, welcome block, move keys to system environment) * change KeyHash type to newtype of Digest SHA256 * transport encryption: validate public key hash * send and receive welcome block with SMP version * refactor: parsing SMPServer * remove unused function * verify that client version is compatible with server version (major version is not smaller) * update (fix) SMP server tests
79 lines
2.1 KiB
Haskell
79 lines
2.1 KiB
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
|
|
module ChatOptions (getChatOpts, ChatOpts (..)) where
|
|
|
|
import qualified Data.ByteString.Char8 as B
|
|
import Options.Applicative
|
|
import Simplex.Messaging.Agent.Transmission (SMPServer (..), smpServerP)
|
|
import Simplex.Messaging.Parsers (parseAll)
|
|
import System.FilePath (combine)
|
|
import System.Info (os)
|
|
import Types
|
|
|
|
data ChatOpts = ChatOpts
|
|
{ name :: Maybe B.ByteString,
|
|
dbFileName :: String,
|
|
smpServer :: SMPServer,
|
|
termMode :: TermMode
|
|
}
|
|
|
|
chatOpts :: FilePath -> Parser ChatOpts
|
|
chatOpts appDir =
|
|
ChatOpts
|
|
<$> option
|
|
(Just <$> str)
|
|
( long "name"
|
|
<> short 'n'
|
|
<> metavar "NAME"
|
|
<> help "optional name to use for invitations"
|
|
<> value Nothing
|
|
)
|
|
<*> strOption
|
|
( long "database"
|
|
<> short 'd'
|
|
<> metavar "DB_FILE"
|
|
<> help ("sqlite database file path (" <> defaultDbFilePath <> ")")
|
|
<> value defaultDbFilePath
|
|
)
|
|
<*> option
|
|
parseSMPServer
|
|
( long "server"
|
|
<> short 's'
|
|
<> metavar "SERVER"
|
|
<> help "SMP server to use (smp.simplex.im:5223)"
|
|
<> value (SMPServer "smp.simplex.im" (Just "5223") Nothing)
|
|
)
|
|
<*> option
|
|
parseTermMode
|
|
( long "term"
|
|
<> short 't'
|
|
<> metavar "TERM"
|
|
<> help ("terminal mode: editor or basic (" <> termModeName deafultTermMode <> ")")
|
|
<> value deafultTermMode
|
|
)
|
|
where
|
|
defaultDbFilePath = combine appDir "smp-chat.db"
|
|
deafultTermMode
|
|
| os == "mingw32" = TermModeBasic
|
|
| otherwise = TermModeEditor
|
|
|
|
parseSMPServer :: ReadM SMPServer
|
|
parseSMPServer = eitherReader $ parseAll smpServerP . B.pack
|
|
|
|
parseTermMode :: ReadM TermMode
|
|
parseTermMode = maybeReader $ \case
|
|
"basic" -> Just TermModeBasic
|
|
"editor" -> Just TermModeEditor
|
|
_ -> Nothing
|
|
|
|
getChatOpts :: FilePath -> IO ChatOpts
|
|
getChatOpts appDir = execParser opts
|
|
where
|
|
opts =
|
|
info
|
|
(chatOpts appDir <**> helper)
|
|
( fullDesc
|
|
<> header "Chat prototype using Simplex Messaging Protocol (SMP)"
|
|
<> progDesc "Start chat with DB_FILE file and use SERVER as SMP server"
|
|
)
|