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

propellor spin

This commit is contained in:
Joey Hess 2014-04-14 14:53:19 -04:00
parent 8009591be3
commit ebe1bd3f1b
Failed to extract signature
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Propellor/Property/SiteSpecific/JoeySites.hs
View File

@ -9,6 +9,7 @@ import qualified Propellor.Property.File as File
import qualified Propellor.Property.Gpg as Gpg import qualified Propellor.Property.Gpg as Gpg
import qualified Propellor.Property.Ssh as Ssh import qualified Propellor.Property.Ssh as Ssh
import qualified Propellor.Property.Git as Git import qualified Propellor.Property.Git as Git
import qualified Propellor.Property.Cron as Cron
import qualified Propellor.Property.Service as Service import qualified Propellor.Property.Service as Service
import qualified Propellor.Property.User as User import qualified Propellor.Property.User as User
import qualified Propellor.Property.Obnam as Obnam import qualified Propellor.Property.Obnam as Obnam
@ -189,6 +190,7 @@ annexRsyncServer = combineProperties "rsync server for git-annex autobuilders"
, File.ownerGroup d "joey" "joey" , File.ownerGroup d "joey" "joey"
] ]
-- Twitter, you kill us.
twitRss :: Property twitRss :: Property
twitRss = combineProperties "twitter rss" twitRss = combineProperties "twitter rss"
[ Git.cloned "joey" "git://git.kitenet.net/twitrss.git" dir Nothing [ Git.cloned "joey" "git://git.kitenet.net/twitrss.git" dir Nothing
@ -203,6 +205,11 @@ twitRss = combineProperties "twitter rss"
, "libghc-http-conduit-dev" , "libghc-http-conduit-dev"
, "libghc-tagsoup-dev" , "libghc-tagsoup-dev"
] ]
, feed "http://twitter.com/search/realtime?q=git-annex" "git-annex-twitter.rss"
, feed "http://twitter.com/search/realtime?q=olduse+OR+git-annex+OR+debhelper+OR+etckeeper+OR+ikiwiki+-ashley_ikiwiki" "twittergrep.rss"
] ]
where where
dir = "/srv/web/tmp.kitenet.net/twitrss" dir = "/srv/web/tmp.kitenet.net/twitrss"
crontime = "15 * * * *"
feed url file = Cron.job "twitter rss cron job" crontime "joey" dir $
"./twitRss " ++ shellEscape url ++ " > ../" ++ shellEscape file