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

slightly bettar

db4
Doug Coleman 2009-03-18 18:06:00 -05:00
parent 391d972b66
commit 87997cc0d2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,6 +44,10 @@ watching-site "WATCHING_SITE" {
{ "site-id" "SITE_ID" INTEGER +user-assigned-id+ }
} define-persistent
TUPLE: reporting-site email url up? changed? last-up? error last-error ;
<PRIVATE
: set-notify-site-watchers ( site new-up? -- site )
[ over up?>> = [ t >>changed? ] unless ] keep >>up? ;
@ -60,8 +64,6 @@ watching-site "WATCHING_SITE" {
now >>last-error
update-tuple ;
TUPLE: reporting-site email url up? changed? last-up? error last-error ;
: 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
[ [ reporting-site boa ] input<sequence ] map
@ -80,6 +82,8 @@ TUPLE: reporting-site email url up? changed? last-up? error last-error ;
[ <account> select-tuple account-id>> ]
[ insert-site site-id>> ] bi* ;
PRIVATE>
: watch-site ( email url -- )
select-account/site <watching-site> insert-tuple ;