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

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 -- these repos are only mirrored on github, I don't want
-- all the proprietary features -- all the proprietary features
mirrors = githubMirrors :: [(String, String)]
[ ("ikiwiki", "please submit changes to http://ikiwiki.info/todo/ instead of using github pull requests") 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 * * *"