cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-18 14:44:46 -04:00
parent b2d6393bf4
commit 498fe2cd25
Failed to extract signature
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Propellor/Property/Dns.hs
View File

@ -133,8 +133,8 @@ rValue (TXT s) = [q] ++ filter (/= q) s ++ [q]
-- --
-- * Always be larger than the passed SerialNumber -- * Always be larger than the passed SerialNumber
-- * Always be larger than the serial number in the Zone record. -- * Always be larger than the serial number in the Zone record.
nextSerial :: Zone -> SerialNumber -> Zone nextSerialNumber :: Zone -> SerialNumber -> Zone
nextSerial (Zone soa l) oldserial = Zone soa' l nextSerialNumber (Zone soa l) oldserial = Zone soa' l
where where
soa' = soa { sSerial = succ $ max (sSerial soa) oldserial } soa' = soa { sSerial = succ $ max (sSerial soa) oldserial }
@ -152,7 +152,7 @@ nextSerial (Zone soa l) oldserial = Zone soa' l
writeZoneFile :: Zone -> FilePath -> IO () writeZoneFile :: Zone -> FilePath -> IO ()
writeZoneFile z f = do writeZoneFile z f = do
oldserial <- nextZoneFileSerialNumber f oldserial <- nextZoneFileSerialNumber f
let z'@(Zone soa' _) = nextSerial z oldserial let z'@(Zone soa' _) = nextSerialNumber z oldserial
writeFile f (genZoneFile z') writeFile f (genZoneFile z')
writeFile (zoneSerialFile f) (show $ sSerial soa') writeFile (zoneSerialFile f) (show $ sSerial soa')

2
config-joey.hs
View File

@ -225,7 +225,7 @@ cleanCloudAtCost = propertyList "cloudatcost cleanup"
] ]
] ]
myDnsSecondary :: [Dns.Zone] myDnsSecondary :: [Dns.NamedConf]
myDnsSecondary = myDnsSecondary =
[ Dns.secondary "kitenet.net" master [ Dns.secondary "kitenet.net" master
, Dns.secondary "joeyh.name" master , Dns.secondary "joeyh.name" master