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

propellor spin

This commit is contained in:
Joey Hess 2014-06-01 14:37:44 -04:00
parent 3df3fd1746
commit d65a07c701
Failed to extract signature
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
config-joey.hs
View File

@ -168,12 +168,14 @@ hosts = -- (o) `
& Hostname.sane & Hostname.sane
& Postfix.satellite & Postfix.satellite
-- Joey gets pocasts here.
& Apt.installed ["git-annex"]
& alias "podcatcher.kitenet.net" & alias "podcatcher.kitenet.net"
& Apt.installed ["git-annex"]
& JoeySites.githubBackup & JoeySites.githubBackup
& alias "eubackup.kitenet.net"
& Apt.installed ["obnam", "sshfs", "rsync"]
& Docker.docked hosts "voltagex" & Docker.docked hosts "voltagex"
--' __|II| ,. --' __|II| ,.

6
src/Propellor/Property/Obnam.hs
View File

@ -38,8 +38,12 @@ data NumClients = OnlyClient | MultipleClients
-- --
-- How awesome is that? -- How awesome is that?
backup :: FilePath -> Cron.CronTimes -> [ObnamParam] -> NumClients -> Property backup :: FilePath -> Cron.CronTimes -> [ObnamParam] -> NumClients -> Property
backup dir crontimes params numclients = cronjob `describe` desc backup dir crontimes params numclients = backup' dir crontimes params numclients
`requires` restored dir params `requires` restored dir params
-- | Does a backup, but does not automatically restore.
backup' :: FilePath -> Cron.CronTimes -> [ObnamParam] -> NumClients -> Property
backup' dir crontimes params numclients = cronjob `describe` desc
where where
desc = dir ++ " backed up by obnam" desc = dir ++ " backed up by obnam"
cronjob = Cron.niceJob ("obnam_backup" ++ dir) crontimes "root" "/" $ cronjob = Cron.niceJob ("obnam_backup" ++ dir) crontimes "root" "/" $