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

propellor spin

This commit is contained in:
Joey Hess 2014-06-06 22:46:31 -04:00
parent fc9fdfe135
commit 6fc6d54f8a
Failed to extract signature
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
config-joey.hs
View File

@ -195,6 +195,7 @@ hosts = -- (o) `
& alias "eubackup.kitenet.net" & alias "eubackup.kitenet.net"
& Apt.installed ["obnam", "sshfs", "rsync"] & Apt.installed ["obnam", "sshfs", "rsync"]
& JoeySites.githubBackup & JoeySites.githubBackup
& JoeySites.obnamRepos ["wren", "pell"]
& alias "podcatcher.kitenet.net" & alias "podcatcher.kitenet.net"
& Apt.installed ["git-annex"] & Apt.installed ["git-annex"]

11
src/Propellor/Property/SiteSpecific/JoeySites.hs
View File

@ -338,3 +338,14 @@ githubBackup = propertyList "github-backup box"
in File.hasPrivContent f in File.hasPrivContent f
`onChange` File.ownerGroup f "joey" "joey" `onChange` File.ownerGroup f "joey" "joey"
] ]
obnamRepos :: [String] -> Property
obnamRepos rs = propertyList ("obnam repos for " ++ unwords rs)
(mkbase : map mkrepo rs)
where
mkbase = mkdir "/home/joey/lib"
`before` mkdir "/home/joey/backup"
mkrepo r = mkdir ("/home/joey/lib/nackup/" ++ r ++ ".obnam")
mkdir d = File.dirExists d
`before` File.ownerGroup "joey" "joey" d