From 59ad8bc1fd723486cd72960b28d43967aba92de4 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 18 Mar 2009 21:56:17 -0500 Subject: [PATCH 1/2] webapps.site-watcher: add furnace to using list --- extra/webapps/site-watcher/site-watcher.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/webapps/site-watcher/site-watcher.factor b/extra/webapps/site-watcher/site-watcher.factor index 50ca50ad11..af07ccebbb 100644 --- a/extra/webapps/site-watcher/site-watcher.factor +++ b/extra/webapps/site-watcher/site-watcher.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors assocs db.sqlite furnace.actions furnace.alloy +USING: accessors assocs db.sqlite furnace furnace.actions furnace.alloy furnace.auth furnace.auth.features.deactivate-user furnace.auth.features.edit-profile furnace.auth.features.recover-password From b15ccea9bf5450af4d592c798b535a392e9c0e73 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 18 Mar 2009 22:00:08 -0500 Subject: [PATCH 2/2] fix db query --- extra/site-watcher/db/db.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/site-watcher/db/db.factor b/extra/site-watcher/db/db.factor index fa8a586ae1..0c62c7f791 100644 --- a/extra/site-watcher/db/db.factor +++ b/extra/site-watcher/db/db.factor @@ -65,7 +65,7 @@ TUPLE: reporting-site email url up? changed? last-up? error last-error ; update-tuple ; : sites-to-report ( -- seq ) - "select account.email, site.url, site.up, site.changed, site.last_up, site.error, site.last_error from account, site, watching_site where account.account_id = watching_site.account_id and site.site_id = watching_site.site_id and site.changed = '1'" sql-query + "select account.email, site.url, site.up, site.changed, site.last_up, site.error, site.last_error from account, site, watching_site where account.account_name = watching_site.account_name and site.site_id = watching_site.site_id and site.changed = '1'" sql-query [ [ reporting-site boa ] input : watching-sites ( username -- sites ) f select-tuples - [ site-id>> site new swap >>site-id select-tuple ] map ; \ No newline at end of file + [ site-id>> site new swap >>site-id select-tuple ] map ;