diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2018-04-01 22:24:17 +0200 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2018-05-04 15:11:25 +0200 |
| commit | 2793b4be94890f4b64f37c695495ff9e4ba0d5d2 (patch) | |
| tree | 50a026814f2f8aa6c341cfe919912e202dec8461 /src | |
| parent | b70f2f6edf5a8f2ca5cfbea3ec6af805a818788a (diff) | |
Unbound: handle SRV record
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Unbound.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/Propellor/Property/Unbound.hs b/src/Propellor/Property/Unbound.hs index 470aad7e..e6b6ca88 100644 --- a/src/Propellor/Property/Unbound.hs +++ b/src/Propellor/Property/Unbound.hs @@ -120,7 +120,15 @@ genRecord dom (PTR revip) = Just $ genPTR dom revip genRecord _ (CNAME _) = Nothing genRecord _ (NS _) = Nothing genRecord _ (TXT _) = Nothing -genRecord _ (SRV _ _ _ _) = Nothing +genRecord dom (SRV priority weight port target) = Just $ unwords + [ dValue dom + , "IN" + , "SRV" + , val priority + , val weight + , val port + , dValue target + ] genRecord _ (SSHFP _ _ _) = Nothing genRecord _ (INCLUDE _) = Nothing |