1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: site-watcher.db site-watcher.email site-watcher.spider
5 accessors kernel sequences
6 xml.writer concurrency.combinators ;
7 IN: site-watcher.spider
9 : <site-spider> ( spidering-site -- spider )
18 : spider-and-email ( spidering-site -- )
20 [ <site-spider> run-spider spider-report xml>string ]
21 [ site>> url>> "Spidered " prefix ] tri
25 f spidering-sites [ spider-and-email ] parallel-each ;