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

propellor spin

This commit is contained in:
Joey Hess 2014-12-22 17:16:52 -04:00
parent 26a4c164e4
commit b8be8c244e
Failed to extract signature
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -358,15 +358,24 @@ githubBackup = propertyList "github-backup box"
, "cd github" , "cd github"
, ". $HOME/.github-keys" , ". $HOME/.github-keys"
, "github-backup joeyh" , "github-backup joeyh"
] ++ map gitriddance mirrors ] ++ map gitriddance githubMirrors
] ]
where where
gitriddance (r, msg) = "(cd " ++ r ++ " && gitriddance " ++ shellEscape msg ++ ")" gitriddance (r, msg) = "(cd " ++ r ++ " && gitriddance " ++ shellEscape msg ++ ")"
-- these repos are only mirrored on github, I don't want
-- all the proprietary features
mirrors = -- these repos are only mirrored on github, I don't want
[ ("ikiwiki", "please submit changes to http://ikiwiki.info/todo/ instead of using github pull requests") -- all the proprietary features
githubMirrors :: [(String, String)]
githubMirrors =
[ ("ikiwiki", plzuseurl "http://ikiwiki.info/todo/")
, ("git-annex", plzuseurl "http://git-annex.branchable.com/todo/")
, ("myrepos", plzuseurl "http://myrepos.branchable.com/todo/")
, ("propellor", plzuseurl "http://propellor.branchable.com/todo/")
, ("etckeeper", plzuseurl "http://etckeeper.branchable.com/todo/")
] ]
where
plzuseurl u = "please submit changes to " ++ u ++ " instead of using github pull requests"
rsyncNetBackup :: [Host] -> Property rsyncNetBackup :: [Host] -> Property
rsyncNetBackup hosts = Cron.niceJob "rsync.net copied in daily" "30 5 * * *" rsyncNetBackup hosts = Cron.niceJob "rsync.net copied in daily" "30 5 * * *"