Baguette/dnsmanager-webclient
3
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: Baguette:1beab72cde0ad6b7a7638cfbdeae3ad2ceeec18a
Branches Tags
Baguette:master
Baguette:local
Baguette:display
..
compare: Baguette:f29265fe8bbbc43cf74fe3c6e5cfcd227fdb693a
Branches Tags
Baguette:local
Baguette:master
Baguette:display

No commits in common. "1beab72cde0ad6b7a7638cfbdeae3ad2ceeec18a" and "f29265fe8bbbc43cf74fe3c6e5cfcd227fdb693a" have entirely different histories.
1beab72cde ... f29265fe8b

2 changed files with 15 additions and 8 deletions
Show Stats Expand all files Collapse all files

7
src/App/Page/Zone.purs
View File

@ -559,9 +559,9 @@ render state
, Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_adkim]
, Bulma.selection_field "idDMARCadkim" "Consistency Policy for DKIM" DMARC_adkim DMARC.consistency_policies_txt (maybe "-" show state.dmarc.adkim)
, Bulma.selection_field "idDMARCadkim" "Consistency Policy for DKIM" DMARC_adkim DMARC.consistency_policies_txt_dkim (maybe "-" show state.dmarc.adkim)
, Bulma.div_content [Bulma.explanation Explanations.dmarc_aspf]
, Bulma.selection_field "idDMARCaspf" "Consistency Policy for SPF" DMARC_aspf DMARC.consistency_policies_txt (maybe "-" show state.dmarc.aspf)
, Bulma.selection_field "idDMARCaspf" "Consistency Policy for SPF" DMARC_aspf DMARC.consistency_policies_txt_spf (maybe "-" show state.dmarc.aspf)
, Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_pct]
@ -650,8 +650,7 @@ handleAction = case _ of
Just rr -> do
H.modify_ _ { _currentRR = rr }
_ <- case rr.rrtype of
"DKIM" -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
"DMARC" -> H.modify_ _ { dmarc = fromMaybe DMARC.emptyDMARCRR rr.dmarc }
"DKIM" -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
_ -> pure unit
H.modify_ _ { rr_modal = UpdateRRModal }

16
src/App/Type/DMARC.purs
View File

@ -164,13 +164,21 @@ data ConsistencyPolicy
consistency_policies :: Array ConsistencyPolicy
consistency_policies = [Strict, Relaxed]
consistency_policies_txt :: Array String
consistency_policies_txt
consistency_policies_txt_spf :: Array String
consistency_policies_txt_spf
= [ "Do not provide policy advice"
, "Strict"
, "Relaxed"
, "Strict: identical domains"
, "Relaxed: same organizational domain"
]
consistency_policies_txt_dkim :: Array String
consistency_policies_txt_dkim
= [ "Do not provide policy advice"
, "Strict: same domain"
, "Relaxed: same organizational domain"
]
-- | Codec for just encoding a single value of type `ConsistencyPolicy`.
codecConsistencyPolicy :: CA.JsonCodec ConsistencyPolicy
codecConsistencyPolicy