diff options
| author | Joey Hess <joeyh@joeyh.name> | 2014-12-22 15:05:05 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-22 15:05:05 -0400 |
| commit | 26a4c164e46bf0ddc13674b9dd21813f067814d9 (patch) | |
| tree | 18871fdfd49a30cb6431b2e26c33ff917b58ca22 /src | |
| parent | 81db68814c3f05b439cbe3e259679b3236b23688 (diff) | |
gitriddance
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/SiteSpecific/JoeySites.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs index ad1c661a..930937c3 100644 --- a/src/Propellor/Property/SiteSpecific/JoeySites.hs +++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs @@ -353,12 +353,20 @@ githubBackup = propertyList "github-backup box" in File.hasPrivContent f anyContext `onChange` File.ownerGroup f "joey" "joey" , Cron.niceJob "github-backup run" "30 4 * * *" "joey" - "/home/joey/lib/backup" $ intercalate "&&" + "/home/joey/lib/backup" $ intercalate "&&" $ [ "mkdir -p github" , "cd github" - , ". $HOME/.github-keys && github-backup joeyh" - ] + , ". $HOME/.github-keys" + , "github-backup joeyh" + ] ++ map gitriddance mirrors ] + where + gitriddance (r, msg) = "(cd " ++ r ++ " && gitriddance " ++ shellEscape msg ++ ")" + -- these repos are only mirrored on github, I don't want + -- all the proprietary features + mirrors = + [ ("ikiwiki", "please submit changes to http://ikiwiki.info/todo/ instead of using github pull requests") + ] rsyncNetBackup :: [Host] -> Property rsyncNetBackup hosts = Cron.niceJob "rsync.net copied in daily" "30 5 * * *" |