From 26a4c164e46bf0ddc13674b9dd21813f067814d9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Dec 2014 15:05:05 -0400 Subject: gitriddance --- src/Propellor/Property/SiteSpecific/JoeySites.hs | 14 +++++++++++--- 1 file 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 * * *" -- cgit v1.2.3