A lot of new quick explanations (abbr) + new style for dedicated interfaces.
parent
4e983506f9
commit
f6feb4fa95
|
|
@ -513,9 +513,8 @@ render state
|
|||
-- Nothing -> Bulma.p "default value for the version (spf1)"
|
||||
-- Just v -> Bulma.box_input "vSPF" "Version" "spf1" (updateForm Field_SPF_v) v
|
||||
, Bulma.hr
|
||||
, Bulma.box
|
||||
[ Bulma.h3 "Current mechanisms"
|
||||
, maybe (Bulma.p "You don't have any mechanism.") display_mechanisms state._currentRR.mechanisms
|
||||
, Bulma.box_with_tag C.has_background_info_light tag_mechanisms
|
||||
[ maybe (Bulma.p "You don't have any mechanism.") display_mechanisms state._currentRR.mechanisms
|
||||
, Bulma.h3 "New mechanism"
|
||||
, Bulma.selection_field "idMechanismQ" "Policy" SPF_Mechanism_q qualifier_types state.spf_mechanism_q
|
||||
, Bulma.selection_field "idMechanismT" "Type" SPF_Mechanism_t mechanism_types state.spf_mechanism_t
|
||||
|
|
@ -525,9 +524,8 @@ render state
|
|||
, Bulma.btn "Add a mechanism" SPF_Mechanism_Add
|
||||
]
|
||||
, Bulma.hr
|
||||
, Bulma.box
|
||||
[ Bulma.h3 "Current modifiers"
|
||||
, maybe (Bulma.p "You don't have any modifier.") display_modifiers state._currentRR.modifiers
|
||||
, Bulma.box_with_tag C.has_background_success_light tag_modifiers
|
||||
[ maybe (Bulma.p "You don't have any modifier.") display_modifiers state._currentRR.modifiers
|
||||
, Bulma.h3 "New modifier"
|
||||
, Bulma.selection_field "idModifierT" "Modifier" SPF_Modifier_t modifier_types state.spf_modifier_t
|
||||
, Bulma.box_input "valueNewModifierSPF" "Value" ""
|
||||
|
|
@ -542,6 +540,13 @@ render state
|
|||
, Bulma.selection SPF_Qualifier qualifier_types (maybe default_qualifier_str show_qualifier state._currentRR.q)
|
||||
]
|
||||
]
|
||||
|
||||
tag_mechanisms = tags [tag "Mechanisms"]
|
||||
tag_modifiers = tags [tag "Modifiers"]
|
||||
|
||||
tag_aggregated_reports = tags [tag "Addresses to contact for aggregated reports"]
|
||||
tag_detailed_reports = tags [tag "Addresses to contact for detailed reports"]
|
||||
|
||||
modal_content_dkim :: Array (HH.HTML w Action)
|
||||
modal_content_dkim =
|
||||
[ Bulma.div_content [] [Bulma.explanation Explanations.dkim_introduction]
|
||||
|
|
@ -608,10 +613,16 @@ render state
|
|||
|
||||
, Bulma.hr
|
||||
, Bulma.div_content [] [Bulma.explanation Explanations.dmarc_contact]
|
||||
, maybe (Bulma.p "There is no address to send aggregated reports to.")
|
||||
(display_dmarc_mail_addresses "Addresses to contact for aggregated reports" DMARC_remove_rua) state.dmarc.rua
|
||||
, maybe (Bulma.p "There is no address to send detailed reports to.")
|
||||
(display_dmarc_mail_addresses "Addresses to contact for detailed reports" DMARC_remove_ruf) state.dmarc.ruf
|
||||
, Bulma.box_with_tag C.has_background_info_light tag_aggregated_reports
|
||||
[ maybe (Bulma.p "There is no address to send aggregated reports to.")
|
||||
(display_dmarc_mail_addresses DMARC_remove_rua)
|
||||
state.dmarc.rua
|
||||
]
|
||||
, Bulma.box_with_tag C.has_background_success_light tag_detailed_reports
|
||||
[ maybe (Bulma.p "There is no address to send detailed reports to.")
|
||||
(display_dmarc_mail_addresses DMARC_remove_ruf)
|
||||
state.dmarc.ruf
|
||||
]
|
||||
|
||||
, Bulma.hr
|
||||
, render_dmarc_mail_errors
|
||||
|
|
@ -1029,15 +1040,15 @@ render_resources :: forall w. Array ResourceRecord -> HH.HTML w Action
|
|||
render_resources [] = Bulma.box [Bulma.zone_rr_title "Resource records", Bulma.subtitle "No records for now"]
|
||||
render_resources records
|
||||
= HH.div_ $
|
||||
(rr_box tag_soa bg_color_ro Bulma.soa_table_header table_content all_soa_rr)
|
||||
<> (rr_box tag_basic [] Bulma.simple_table_header table_content_w_seps all_basic_rr)
|
||||
<> (rr_box tag_mx [] Bulma.mx_table_header table_content all_mx_rr)
|
||||
<> (rr_box tag_caa [] Bulma.caa_table_header table_content all_caa_rr)
|
||||
<> (rr_box tag_srv [] Bulma.srv_table_header table_content all_srv_rr)
|
||||
<> (rr_box tag_spf [] Bulma.spf_table_header table_content all_spf_rr)
|
||||
<> (rr_box tag_dkim [] Bulma.dkim_table_header table_content all_dkim_rr)
|
||||
<> (rr_box tag_dmarc [] Bulma.dmarc_table_header table_content all_dmarc_rr)
|
||||
<> (rr_box tag_basic_ro bg_color_ro Bulma.simple_table_header_ro table_content_w_seps all_basic_ro_rr)
|
||||
(rr_box bg_color_ro tag_soa Bulma.soa_table_header table_content all_soa_rr)
|
||||
<> (rr_box [] tag_basic Bulma.simple_table_header table_content_w_seps all_basic_rr)
|
||||
<> (rr_box [] tag_mx Bulma.mx_table_header table_content all_mx_rr)
|
||||
<> (rr_box [] tag_caa Bulma.caa_table_header table_content all_caa_rr)
|
||||
<> (rr_box [] tag_srv Bulma.srv_table_header table_content all_srv_rr)
|
||||
<> (rr_box [] tag_spf Bulma.spf_table_header table_content all_spf_rr)
|
||||
<> (rr_box [] tag_dkim Bulma.dkim_table_header table_content all_dkim_rr)
|
||||
<> (rr_box [] tag_dmarc Bulma.dmarc_table_header table_content all_dmarc_rr)
|
||||
<> (rr_box bg_color_ro tag_basic_ro Bulma.simple_table_header_ro table_content_w_seps all_basic_ro_rr)
|
||||
where
|
||||
all_basic_rr = A.filter (\rr -> A.elem rr.rrtype baseRecords && not rr.readonly) records
|
||||
all_basic_ro_rr = A.filter (\rr -> A.elem rr.rrtype baseRecords && rr.readonly) records
|
||||
|
|
@ -1060,16 +1071,15 @@ render_resources records
|
|||
tag_dmarc = tags [tag "DMARC"]
|
||||
tag_basic_ro = tags [tag_ro "Basic Resource Records", tag_ro "read only"]
|
||||
|
||||
rr_box :: HH.HTML w Action -- box title (type of data)
|
||||
-> Array HH.ClassName
|
||||
-> HH.HTML w Action -- table title
|
||||
-> (Array ResourceRecord -> HH.HTML w Action)
|
||||
-> Array ResourceRecord
|
||||
-> Array (HH.HTML w Action)
|
||||
rr_box title colors header dp rrs =
|
||||
rr_box :: Array HH.ClassName -- css classes (such as colors)
|
||||
-> HH.HTML w Action -- box title (type of data)
|
||||
-> HH.HTML w Action -- table title
|
||||
-> (Array ResourceRecord -> HH.HTML w Action)
|
||||
-> Array ResourceRecord
|
||||
-> Array (HH.HTML w Action)
|
||||
rr_box colors title header dp rrs =
|
||||
if A.length rrs > 0
|
||||
then [ Bulma.box_ (C.no_padding_left <> C.no_padding_top <> colors)
|
||||
[title, Bulma.table_ (C.margin_left 3) [] [header, dp rrs]] ]
|
||||
then [ Bulma.box_with_tag colors title [Bulma.table_ (C.margin_left 3) [] [header, dp rrs]] ]
|
||||
else []
|
||||
--title_col_props = C.is 1
|
||||
|
||||
|
|
@ -1093,7 +1103,6 @@ render_resources records
|
|||
"SOA" ->
|
||||
[ HH.td_ [ HH.text rr.name ]
|
||||
, HH.td_ [ HH.text $ show rr.ttl ]
|
||||
, HH.td_ [ HH.text rr.target ]
|
||||
, HH.td_ [ HH.text $ maybe "" id rr.mname ]
|
||||
, HH.td_ [ HH.text $ maybe "" id rr.rname ]
|
||||
, HH.td_ [ HH.text $ maybe "" show rr.serial ]
|
||||
|
|
@ -1207,8 +1216,7 @@ render_resources records
|
|||
display_mechanisms :: forall w. Array RR.Mechanism -> HH.HTML w Action
|
||||
display_mechanisms [] = Bulma.p "You don't have any mechanism."
|
||||
display_mechanisms ms =
|
||||
Bulma.box_ C.has_background_warning_light
|
||||
[ Bulma.table [] [ Bulma.mechanism_table_header, HH.tbody_ $ map render_mechanism_row $ attach_id 0 ms] ]
|
||||
Bulma.table [] [ Bulma.mechanism_table_header, HH.tbody_ $ map render_mechanism_row $ attach_id 0 ms]
|
||||
where
|
||||
render_mechanism_row :: (Tuple Int RR.Mechanism) -> HH.HTML w Action
|
||||
render_mechanism_row (Tuple i m) = HH.tr_
|
||||
|
|
@ -1221,8 +1229,7 @@ display_mechanisms ms =
|
|||
display_modifiers :: forall w. Array RR.Modifier -> HH.HTML w Action
|
||||
display_modifiers [] = Bulma.p "You don't have any modifier."
|
||||
display_modifiers ms =
|
||||
Bulma.box_ C.has_background_warning_light
|
||||
[ Bulma.table [] [ Bulma.modifier_table_header, HH.tbody_ $ map render_modifier_row $ attach_id 0 ms] ]
|
||||
Bulma.table [] [ Bulma.modifier_table_header, HH.tbody_ $ map render_modifier_row $ attach_id 0 ms]
|
||||
where
|
||||
render_modifier_row :: (Tuple Int RR.Modifier) -> HH.HTML w Action
|
||||
render_modifier_row (Tuple i m) = HH.tr_
|
||||
|
|
@ -1231,11 +1238,9 @@ display_modifiers ms =
|
|||
, HH.td_ [ Bulma.alert_btn "x" (SPF_remove_modifier i) ]
|
||||
]
|
||||
|
||||
display_dmarc_mail_addresses :: forall w. String -> (Int -> Action) -> Array DMARC.DMARCURI -> HH.HTML w Action
|
||||
display_dmarc_mail_addresses t f ms =
|
||||
Bulma.box_ C.has_background_warning_light
|
||||
[ Bulma.h3 t
|
||||
, Bulma.table [] [ Bulma.dmarc_dmarcuri_table_header, HH.tbody_ $ map render_dmarcuri_row $ attach_id 0 ms] ]
|
||||
display_dmarc_mail_addresses :: forall w. (Int -> Action) -> Array DMARC.DMARCURI -> HH.HTML w Action
|
||||
display_dmarc_mail_addresses f ms =
|
||||
Bulma.table [] [ Bulma.dmarc_dmarcuri_table_header, HH.tbody_ $ map render_dmarcuri_row $ attach_id 0 ms]
|
||||
where
|
||||
render_dmarcuri_row :: (Tuple Int DMARC.DMARCURI) -> HH.HTML w Action
|
||||
render_dmarcuri_row (Tuple i m) = HH.tr_
|
||||
|
|
|
|||
239
src/Bulma.purs
239
src/Bulma.purs
|
|
@ -105,14 +105,109 @@ dmarc_dmarcuri_table_header
|
|||
]
|
||||
]
|
||||
|
||||
name_header :: forall w i. HH.HTML w i
|
||||
name_header = HH.abbr
|
||||
[ HP.title "Name of the DNS entry, the fully-qualified-domain-name is <name>.<domain>." ]
|
||||
[ HH.text "Name" ]
|
||||
|
||||
ttl_header :: forall w i. HH.HTML w i
|
||||
ttl_header = HH.abbr
|
||||
[ HP.title "Time-to-Live, nb seconds before being considered invalid" ]
|
||||
[ HH.text "TTL" ]
|
||||
|
||||
target_header :: forall w i. HH.HTML w i
|
||||
target_header = HH.abbr
|
||||
[ HP.title "In the DNS jargon, the target means the most important value associated with the entry, for an A entry it would be an IPv4 address, for example" ]
|
||||
[ HH.text "Target" ]
|
||||
|
||||
token_header :: forall w i. HH.HTML w i
|
||||
token_header = HH.abbr
|
||||
[ HP.title "Tokens are used to update the entry, see the tab: \"Tokens? 🤨\"" ]
|
||||
[ HH.text "Token" ]
|
||||
|
||||
priority_header :: forall w i. HH.HTML w i
|
||||
priority_header = HH.abbr
|
||||
[ HP.title "A numeric value that indicates the preference of the server (lower values indicate higher priority)" ]
|
||||
[ HH.text "Priority" ]
|
||||
|
||||
weight_header :: forall w i. HH.HTML w i
|
||||
weight_header = HH.abbr
|
||||
[ HP.title "A relative weight used when multiple servers have the same priority, determining how often they should be used" ]
|
||||
[ HH.text "Weight" ]
|
||||
|
||||
srv_mechanisms_header :: forall w i. HH.HTML w i
|
||||
srv_mechanisms_header = HH.abbr
|
||||
[ HP.title "Mechanisms specify which mail servers are allowed to send mail for the domain and how to evaluate the sending mail server’s IP address" ]
|
||||
[ HH.text "Mechanisms" ]
|
||||
|
||||
srv_modifiers_header :: forall w i. HH.HTML w i
|
||||
srv_modifiers_header = HH.abbr
|
||||
[ HP.title "Modifiers provide additional instructions, such as explanations for SPF failures or redirecting SPF checks to another domain" ]
|
||||
[ HH.text "Modifiers" ]
|
||||
|
||||
srv_default_policy_header :: forall w i. HH.HTML w i
|
||||
srv_default_policy_header = HH.abbr
|
||||
[ HP.title "" ]
|
||||
[ HH.text "Default Policy" ]
|
||||
|
||||
protocol_header :: forall w i. HH.HTML w i
|
||||
protocol_header = HH.abbr
|
||||
[ HP.title "The related communication protocol, either TCP or UDP (want more? Just ask me)" ]
|
||||
[ HH.text "Protocol" ]
|
||||
|
||||
port_header :: forall w i. HH.HTML w i
|
||||
port_header = HH.abbr
|
||||
[ HP.title "Related connection port" ]
|
||||
[ HH.text "Port" ]
|
||||
|
||||
dkim_notes_header :: forall w i. HH.HTML w i
|
||||
dkim_notes_header = HH.abbr
|
||||
[ HP.title "Arbitrary string related to this cryptographic material" ]
|
||||
[ HH.text "Notes" ]
|
||||
|
||||
dmarc_policy_header :: forall w i. HH.HTML w i
|
||||
dmarc_policy_header = HH.abbr
|
||||
[ HP.title "How to handle email when SPF and DKIM aren't valid?" ]
|
||||
[ HH.text "Policy" ]
|
||||
|
||||
dmarc_subdom_policy_header :: forall w i. HH.HTML w i
|
||||
dmarc_subdom_policy_header = HH.abbr
|
||||
[ HP.title "How to handle email when SPF and DKIM aren't valid?" ]
|
||||
[ HH.text "Subdomain Policy" ]
|
||||
|
||||
dmarc_dkim_policy_header :: forall w i. HH.HTML w i
|
||||
dmarc_dkim_policy_header = HH.abbr
|
||||
[ HP.title "What should be considered acceptable to do with an email not conforming with DKIM" ]
|
||||
[ HH.text "DKIM Policy" ]
|
||||
|
||||
dmarc_spf_policy_header :: forall w i. HH.HTML w i
|
||||
dmarc_spf_policy_header = HH.abbr
|
||||
[ HP.title "What should be considered acceptable to do with an email not conforming with SPF" ]
|
||||
[ HH.text "SPF Policy" ]
|
||||
|
||||
dmarc_sample_rate_header :: forall w i. HH.HTML w i
|
||||
dmarc_sample_rate_header = HH.abbr
|
||||
[ HP.title "Percentage of messages subjected to the requested policy [0-100]" ]
|
||||
[ HH.text "Sample Rate" ]
|
||||
|
||||
dmarc_report_on_header :: forall w i. HH.HTML w i
|
||||
dmarc_report_on_header = HH.abbr
|
||||
[ HP.title "What error should be reported? DKIM, SPF, Both, Any or None?" ]
|
||||
[ HH.text "Report on" ]
|
||||
|
||||
dmarc_report_interval_header :: forall w i. HH.HTML w i
|
||||
dmarc_report_interval_header = HH.abbr
|
||||
[ HP.title "Minimal duration between two DMARC reports (in seconds)" ]
|
||||
[ HH.text "Report interval" ]
|
||||
|
||||
simple_table_header :: forall w i. HH.HTML w i
|
||||
simple_table_header
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Type" ]
|
||||
, HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
, HH.th_ [ HH.text "Target" ]
|
||||
, HH.th_ [ name_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
, HH.th_ [ target_header ]
|
||||
, HH.th_ [ HH.text "" ]
|
||||
, HH.th_ [ HH.text "Token" ]
|
||||
, HH.th_ [ token_header ]
|
||||
]
|
||||
]
|
||||
|
||||
|
|
@ -120,27 +215,27 @@ simple_table_header_ro :: forall w i. HH.HTML w i
|
|||
simple_table_header_ro
|
||||
= HH.thead_ [ HH.tr [ HP.classes C.has_background_warning_light ]
|
||||
[ HH.th [ HP.style "width: 50px;" ] [ HH.text "Type" ]
|
||||
, HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
, HH.th_ [ HH.text "Target" ]
|
||||
, HH.th_ [ name_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
, HH.th_ [ target_header ]
|
||||
, HH.th_ [ HH.text "" ]
|
||||
]
|
||||
]
|
||||
|
||||
mx_table_header :: forall w i. HH.HTML w i
|
||||
mx_table_header
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
, HH.th_ [ HH.text "Priority" ]
|
||||
, HH.th_ [ HH.text "Target" ]
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ name_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
, HH.th_ [ priority_header ]
|
||||
, HH.th_ [ target_header ]
|
||||
, HH.th_ [ HH.text "" ]
|
||||
]
|
||||
]
|
||||
|
||||
caa_table_header :: forall w i. HH.HTML w i
|
||||
caa_table_header
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ name_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
, HH.th_ [ HH.text "Flag" ]
|
||||
, HH.th_ [ HH.text "Tag" ]
|
||||
, HH.th_ [ HH.text "Value" ]
|
||||
|
|
@ -150,73 +245,112 @@ caa_table_header
|
|||
|
||||
srv_table_header :: forall w i. HH.HTML w i
|
||||
srv_table_header
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "Protocol" ]
|
||||
, HH.th_ [ HH.text "Target" ]
|
||||
, HH.th_ [ HH.text "Port" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
, HH.th_ [ HH.text "Priority" ]
|
||||
, HH.th_ [ HH.text "Weight" ]
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ name_header ]
|
||||
, HH.th_ [ protocol_header ]
|
||||
, HH.th_ [ target_header ]
|
||||
, HH.th_ [ port_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
, HH.th_ [ priority_header ]
|
||||
, HH.th_ [ weight_header ]
|
||||
, HH.th_ [ HH.text "" ]
|
||||
]
|
||||
]
|
||||
|
||||
spf_table_header :: forall w i. HH.HTML w i
|
||||
spf_table_header
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ name_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
-- , HH.th_ [ HH.text "Version" ] -- For now, version isn't displayed.
|
||||
, HH.th_ [ HH.text "Mechanisms" ]
|
||||
, HH.th_ [ HH.text "Modifiers" ]
|
||||
, HH.th_ [ HH.text "Default Policy" ]
|
||||
, HH.th_ [ srv_mechanisms_header ]
|
||||
, HH.th_ [ srv_modifiers_header ]
|
||||
, HH.th_ [ srv_default_policy_header ]
|
||||
, HH.th_ [ HH.text "" ]
|
||||
]
|
||||
]
|
||||
|
||||
dkim_table_header :: forall w i. HH.HTML w i
|
||||
dkim_table_header
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ name_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
-- , HH.th_ [ HH.text "Version" ] -- For now, version isn't displayed. Assume DKIM1.
|
||||
, HH.th_ [ HH.text "Hash algo" ]
|
||||
, HH.th_ [ HH.text "Signature algo" ]
|
||||
, HH.th_ [ HH.text "Public Key" ]
|
||||
, HH.th_ [ HH.text "Notes" ]
|
||||
, HH.th_ [ dkim_notes_header ]
|
||||
, HH.th_ [ HH.text "" ]
|
||||
]
|
||||
]
|
||||
|
||||
dmarc_table_header :: forall w i. HH.HTML w i
|
||||
dmarc_table_header
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ]
|
||||
, HH.th_ [ HH.text "TTL" ]
|
||||
= HH.thead_ [ HH.tr_ [ HH.th_ [ name_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
-- , HH.th_ [ HH.text "Version" ] -- For now, version isn't displayed. Assume DMARC1.
|
||||
, HH.th_ [ HH.text "Policy" ] -- p
|
||||
, HH.th_ [ HH.text "Subdomain Policy" ] -- sp
|
||||
, HH.th_ [ HH.text "DKIM policy" ] -- adkim
|
||||
, HH.th_ [ HH.text "SPF policy" ] -- aspf
|
||||
, HH.th_ [ HH.text "Sample rate" ] -- pct
|
||||
, HH.th_ [ HH.text "Report on" ] -- fo
|
||||
, HH.th_ [ HH.text "Report interval" ] -- ri
|
||||
, HH.th_ [ dmarc_policy_header ] -- p
|
||||
, HH.th_ [ dmarc_subdom_policy_header ] -- sp
|
||||
, HH.th_ [ dmarc_dkim_policy_header ] -- adkim
|
||||
, HH.th_ [ dmarc_spf_policy_header ] -- aspf
|
||||
, HH.th_ [ dmarc_sample_rate_header ] -- pct
|
||||
, HH.th_ [ dmarc_report_on_header ] -- fo
|
||||
, HH.th_ [ dmarc_report_interval_header ] -- ri
|
||||
-- TODO? rua & ruf
|
||||
-- , HH.th_ [ HH.text "Accepted report formats" ] -- For now, assume AFRF.
|
||||
, HH.th_ [ HH.text "" ]
|
||||
]
|
||||
]
|
||||
|
||||
name_soa_header :: forall w i. HH.HTML w i
|
||||
name_soa_header = HH.abbr
|
||||
[ HP.title "Your actual domain name (technical term: \"fully qualified domain name\")" ]
|
||||
[ HH.text "Name" ]
|
||||
|
||||
mname_soa_header :: forall w i. HH.HTML w i
|
||||
mname_soa_header = HH.abbr
|
||||
[ HP.title "Domain name of the primary authoritative DNS server for the zone (SOA \"MNAME\" field)" ]
|
||||
[ HH.text "Primary NS" ]
|
||||
|
||||
rname_soa_header :: forall w i. HH.HTML w i
|
||||
rname_soa_header = HH.abbr
|
||||
[ HP.title "The email address of the person responsible for managing the zone (the \"@\" is replaced by \".\" for some reason, this is the SOA \"RNAME\" field)" ]
|
||||
[ HH.text "Contact" ]
|
||||
|
||||
serial_soa_header :: forall w i. HH.HTML w i
|
||||
serial_soa_header = HH.abbr
|
||||
[ HP.title "A number that is incremented every time the zone is updated. Secondary DNS servers use this number to check for updates" ]
|
||||
[ HH.text "Serial" ]
|
||||
|
||||
refresh_soa_header :: forall w i. HH.HTML w i
|
||||
refresh_soa_header = HH.abbr
|
||||
[ HP.title "The interval (in seconds) at which secondary DNS servers should check the primary server for changes to the zone" ]
|
||||
[ HH.text "Refresh" ]
|
||||
|
||||
retry_soa_header :: forall w i. HH.HTML w i
|
||||
retry_soa_header = HH.abbr
|
||||
[ HP.title "The time in seconds that secondary servers should wait before retrying a failed attempt to contact the primary DNS server" ]
|
||||
[ HH.text "Retry" ]
|
||||
|
||||
expire_soa_header :: forall w i. HH.HTML w i
|
||||
expire_soa_header = HH.abbr
|
||||
[ HP.title "The time in seconds that secondary DNS servers will keep the zone data before discarding it if they cannot contact the primary server" ]
|
||||
[ HH.text "Expire" ]
|
||||
|
||||
minttl_soa_header :: forall w i. HH.HTML w i
|
||||
minttl_soa_header = HH.abbr
|
||||
[ HP.title "The minimum time (in seconds) that other DNS servers should cache negative responses (e.g., for non-existent domain names)" ]
|
||||
[ HH.text "Minimum TTL" ]
|
||||
|
||||
soa_table_header :: forall w i. HH.HTML w i
|
||||
soa_table_header
|
||||
= HH.thead_ [ HH.tr [ HP.classes C.has_background_warning_light ]
|
||||
[ HH.th_ [ HH.text "name"]
|
||||
, HH.th_ [ HH.text "ttl"]
|
||||
, HH.th_ [ HH.text "target"]
|
||||
, HH.th_ [ HH.text "mname"]
|
||||
, HH.th_ [ HH.text "rname"]
|
||||
, HH.th_ [ HH.text "serial"]
|
||||
, HH.th_ [ HH.text "refresh"]
|
||||
, HH.th_ [ HH.text "retry"]
|
||||
, HH.th_ [ HH.text "expire"]
|
||||
, HH.th_ [ HH.text "minttl"]
|
||||
[ HH.th_ [ name_soa_header ]
|
||||
, HH.th_ [ ttl_header ]
|
||||
, HH.th_ [ mname_soa_header ]
|
||||
, HH.th_ [ rname_soa_header ]
|
||||
, HH.th_ [ serial_soa_header ]
|
||||
, HH.th_ [ refresh_soa_header ]
|
||||
, HH.th_ [ retry_soa_header ]
|
||||
, HH.th_ [ expire_soa_header ]
|
||||
, HH.th_ [ minttl_soa_header ]
|
||||
]
|
||||
]
|
||||
|
||||
|
|
@ -683,3 +817,14 @@ btn_validation_ str = HH.button
|
|||
|
||||
btn_validation :: forall w i. HH.HTML w i
|
||||
btn_validation = btn_validation_ "Validate"
|
||||
|
||||
-- | Box with tags.
|
||||
box_with_tag :: forall w action.
|
||||
Array HH.ClassName -- css classes (like the color)
|
||||
-> HH.HTML w action -- tag (title for the box)
|
||||
-> Array (HH.HTML w action) -- box content
|
||||
-> HH.HTML w action
|
||||
box_with_tag colors tag xs
|
||||
= box_
|
||||
(C.no_padding_left <> C.no_padding_top <> colors)
|
||||
[tag, HH.div [HP.classes $ C.restore_padding_left <> C.restore_padding_top] xs]
|
||||
|
|
|
|||
|
|
@ -112,6 +112,8 @@ no_padding_left = [HH.ClassName "pl-0"] ::
|
|||
no_padding_top = [HH.ClassName "pt-0"] :: Array HH.ClassName
|
||||
normal = [HH.ClassName "is-normal"] :: Array HH.ClassName
|
||||
notification = [HH.ClassName "notification"] :: Array HH.ClassName
|
||||
restore_padding_left = [HH.ClassName "pl-4"] :: Array HH.ClassName
|
||||
restore_padding_top = [HH.ClassName "pt-4"] :: Array HH.ClassName
|
||||
section = [HH.ClassName "section"] :: Array HH.ClassName
|
||||
select = [HH.ClassName "select"] :: Array HH.ClassName
|
||||
subtitle = [HH.ClassName "subtitle"] :: Array HH.ClassName
|
||||
|
|
|
|||
Loading…
Reference in New Issue