diff --git a/extra/site-watcher/site-watcher-tests.factor b/extra/site-watcher/site-watcher-tests.factor index d51fa02605..405b6cbb1e 100644 --- a/extra/site-watcher/site-watcher-tests.factor +++ b/extra/site-watcher/site-watcher-tests.factor @@ -1,6 +1,7 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: db.tuples locals site-watcher site-watcher.db ; +USING: db.tuples locals site-watcher site-watcher.db +site-watcher.private kernel ; IN: site-watcher.tests :: fake-sites ( -- seq ) @@ -10,8 +11,8 @@ IN: site-watcher.tests watching-site ensure-table "erg@factorcode.org" insert-account - "http://asdfasdfasdfasdfqwerqqq.com" insert-site - "http://fark.com" insert-site + "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop + "http://fark.com" insert-site drop "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site f select-tuples diff --git a/extra/site-watcher/site-watcher.factor b/extra/site-watcher/site-watcher.factor index c0c740f17e..aba2d12231 100644 --- a/extra/site-watcher/site-watcher.factor +++ b/extra/site-watcher/site-watcher.factor @@ -71,20 +71,20 @@ TUPLE: reporting-site email url up? changed? last-up? error last-error ; dup t >>up? insert-tuple ] unless ; -PRIVATE> +: insert-account ( email -- ) insert-tuple ; : select-account/site ( email url -- account site ) [ select-tuple account-id>> ] [ insert-site site-id>> ] bi* ; +PRIVATE> + : watch-site ( email url -- ) select-account/site insert-tuple ; : unwatch-site ( email url -- ) select-account/site delete-tuples ; -: insert-account ( email -- ) insert-tuple ; - : watch-sites ( -- alarm ) [ [