Working on site-watcher

[factor.git] / extra / site-watcher / spider / spider.factor

diff --git a/extra/site-watcher/spider/spider.factor b/extra/site-watcher/spider/spider.factor
index 1b3a96a018408738efa2085c221bb10629f5136a..335f1f11f9154c48c26963f358a826d0c118e348 100644 (file)
--- a/extra/site-watcher/spider/spider.factor
+++ b/extra/site-watcher/spider/spider.factor
@@ -1,9 +1,9 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: site-watcher.db site-watcher.email
+USING: site-watcher.db site-watcher.email site-watcher.spider
 spider spider.report
 accessors kernel sequences
-xml.writer ;
+xml.writer concurrency.combinators ;
 IN: site-watcher.spider
 
 : <site-spider> ( spidering-site -- spider )
@@ -20,3 +20,6 @@ IN: site-watcher.spider
     [ <site-spider> run-spider spider-report xml>string ]
     [ site>> url>> "Spidered " prefix ] tri
     send-site-email ;
+
+: spider-sites ( -- )
+    f spidering-sites [ spider-and-email ] parallel-each ;
\ No newline at end of file