Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-17 17:47:03 +00:00
Code Issues Releases Wiki Activity

ui: Add function signature to accept and store policies

Browse Source
This commit is contained in:
James Hillyerd
2020-03-29 12:21:16 -07:00
parent c520af4983
commit baad19e838
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
ui/src/Page/Status.elm
View File

@@ -278,18 +278,19 @@ configPanel maybeConfig =
, textEntry "SMTP Listener" config.smtpConfig.addr
, textEntry "POP3 Listener" config.pop3Listener
, textEntry "HTTP Listener" config.webListener
, textEntry "Accept Policy" (acceptPolicy config.smtpConfig)
, textEntry "Store Policy" (storePolicy config.smtpConfig)
, textEntry "Accept Policy" (acceptPolicy config)
, textEntry "Store Policy" (storePolicy config)
, textEntry "Store Type" config.storageConfig.storeType
, textEntry "Message Cap" (mailboxCap config)
, textEntry "Retention Period" (retentionPeriod config)
]
acceptPolicy : ServerConfig -> String
acceptPolicy config =
if config.defaultAccept then
if config.smtpConfig.defaultAccept then
"All domains"
++ (case config.rejectDomains of
++ (case config.smtpConfig.rejectDomains of
Nothing ->
""
@@ -302,7 +303,7 @@ acceptPolicy config =
else
"No domains"
++ (case config.acceptDomains of
++ (case config.smtpConfig.acceptDomains of
Nothing ->
""
@@ -314,10 +315,11 @@ acceptPolicy config =
)
storePolicy : ServerConfig -> String
storePolicy config =
if config.defaultStore then
if config.smtpConfig.defaultStore then
"All domains"
++ (case config.discardDomains of
++ (case config.smtpConfig.discardDomains of
Nothing ->
""
@@ -330,7 +332,7 @@ storePolicy config =
else
"No domains"
++ (case config.storeDomains of
++ (case config.smtpConfig.storeDomains of
Nothing ->
""