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

gitriddance

This commit is contained in:
Joey Hess 2014-12-22 15:05:05 -04:00
parent 81db68814c
commit 26a4c164e4
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -353,12 +353,20 @@ githubBackup = propertyList "github-backup box"
in File.hasPrivContent f anyContext in File.hasPrivContent f anyContext
`onChange` File.ownerGroup f "joey" "joey" `onChange` File.ownerGroup f "joey" "joey"
, Cron.niceJob "github-backup run" "30 4 * * *" "joey" , Cron.niceJob "github-backup run" "30 4 * * *" "joey"
"/home/joey/lib/backup" $ intercalate "&&" "/home/joey/lib/backup" $ intercalate "&&" $
[ "mkdir -p github" [ "mkdir -p github"
, "cd 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 :: [Host] -> Property
rsyncNetBackup hosts = Cron.niceJob "rsync.net copied in daily" "30 5 * * *" rsyncNetBackup hosts = Cron.niceJob "rsync.net copied in daily" "30 5 * * *"