summaryrefslogtreecommitdiff
path: root/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2014-04-14 14:53:19 -0400
committerJoey Hess2014-04-14 14:53:19 -0400
commitebe1bd3f1b9daed7df6b8aa9f3f3172a2a336b55 (patch)
tree5e32b43eec7b399a1baff75c76efd3bba1511dab /Propellor/Property
parent8009591be33e4c589557b1abd5259964b6bd81c4 (diff)
propellor spin
Diffstat (limited to 'Propellor/Property')
-rw-r--r--Propellor/Property/SiteSpecific/JoeySites.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/Propellor/Property/SiteSpecific/JoeySites.hs b/Propellor/Property/SiteSpecific/JoeySites.hs
index c6050e7e..d52ddbb3 100644
--- a/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -9,6 +9,7 @@ import qualified Propellor.Property.File as File
import qualified Propellor.Property.Gpg as Gpg
import qualified Propellor.Property.Ssh as Ssh
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.User as User
import qualified Propellor.Property.Obnam as Obnam
@@ -189,6 +190,7 @@ annexRsyncServer = combineProperties "rsync server for git-annex autobuilders"
, File.ownerGroup d "joey" "joey"
]
+-- Twitter, you kill us.
twitRss :: Property
twitRss = combineProperties "twitter rss"
[ Git.cloned "joey" "git://git.kitenet.net/twitrss.git" dir Nothing
@@ -203,6 +205,11 @@ twitRss = combineProperties "twitter rss"
, "libghc-http-conduit-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
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