1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: db.tuples locals site-watcher site-watcher.db
4 site-watcher.private kernel ;
7 : site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline
9 [ site-watcher-path delete-file ] ignore-errors
11 : with-sqlite-db ( quot -- )
12 site-watcher-path <sqlite-db> swap with-db ; inline
14 :: fake-sites ( -- seq )
18 watching-site ensure-table
20 "erg@factorcode.org" insert-account
21 "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop
22 "http://fark.com" insert-site drop
24 "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
25 f <site> select-tuples