summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2014-12-22 15:05:05 -0400
committerJoey Hess2014-12-22 15:05:05 -0400
commit26a4c164e46bf0ddc13674b9dd21813f067814d9 (patch)
tree18871fdfd49a30cb6431b2e26c33ff917b58ca22 /src/Propellor
parent81db68814c3f05b439cbe3e259679b3236b23688 (diff)
gitriddance
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/SiteSpecific/JoeySites.hs14
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 * * *"