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

Compare commits

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

2 Commits
f29265fe8b ... 1beab72cde

Author SHA1 Message Date
Philippe PITTOLI 1beab72cde DMARC: a small fix for consistency policy selection. 2024-04-14 18:12:06 +02:00
Philippe PITTOLI 9cba4f7daf DMARC: fix DMARC update. 2024-04-14 17:48:35 +02:00
2 changed files with 8 additions and 15 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_dkim (maybe "-" show state.dmarc.adkim)
, Bulma.selection_field "idDMARCadkim" "Consistency Policy for DKIM" DMARC_adkim DMARC.consistency_policies_txt (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_spf (maybe "-" show state.dmarc.aspf)
, Bulma.selection_field "idDMARCaspf" "Consistency Policy for SPF" DMARC_aspf DMARC.consistency_policies_txt (maybe "-" show state.dmarc.aspf)
, Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_pct]
@ -650,7 +650,8 @@ handleAction = case _ of
Just rr -> do
H.modify_ _ { _currentRR = rr }
_ <- case rr.rrtype of
"DKIM" -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
"DKIM" -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
"DMARC" -> H.modify_ _ { dmarc = fromMaybe DMARC.emptyDMARCRR rr.dmarc }
_ -> pure unit
H.modify_ _ { rr_modal = UpdateRRModal }

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

@ -164,21 +164,13 @@ data ConsistencyPolicy
consistency_policies :: Array ConsistencyPolicy
consistency_policies = [Strict, Relaxed]
consistency_policies_txt_spf :: Array String
consistency_policies_txt_spf
consistency_policies_txt :: Array String
consistency_policies_txt
= [ "Do not provide policy advice"
, "Strict: identical domains"
, "Relaxed: same organizational domain"
, "Strict"
, "Relaxed"
]
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