steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix db query

db4
Doug Coleman 2009-03-18 22:00:08 -05:00
parent 518b5c46ca
commit b15ccea9bf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/site-watcher/db/db.factor
View File

@ -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<sequence ] map
"update site set changed = 'f';" sql-command ;
@ -89,4 +89,4 @@ PRIVATE>
: watching-sites ( username -- sites )
f <watching-site> select-tuples
[ site-id>> site new swap >>site-id select-tuple ] map ;
[ site-id>> site new swap >>site-id select-tuple ] map ;