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

propellor spin

This commit is contained in:
Joey Hess 2014-12-23 14:22:50 -04:00
parent b8be8c244e
commit a48f5916e1
Failed to extract signature
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -358,12 +358,16 @@ githubBackup = propertyList "github-backup box"
, "cd github" , "cd github"
, ". $HOME/.github-keys" , ". $HOME/.github-keys"
, "github-backup joeyh" , "github-backup joeyh"
]
, Cron.niceJob "gitriddance" "30 4 * * *" "joey"
"/home/joey/lib/backup" $ intercalate "&&" $
[ "cd github"
, ". $HOME/.github-keys"
] ++ map gitriddance githubMirrors ] ++ 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
githubMirrors :: [(String, String)] githubMirrors :: [(String, String)]