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

DMARC: a small fix for consistency policy selection.

Browse Source
This commit is contained in:
Philippe PITTOLI 2024-04-14 18:12:06 +02:00
parent 9cba4f7daf
commit 1beab72cde
2 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -559,9 +559,9 @@ render state
, Bulma.hr , Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_adkim] , 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.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.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_pct] , Bulma.div_content [Bulma.explanation Explanations.dmarc_pct]

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

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