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

add an account-name field to site-watcher

db4
Doug Coleman 2009-03-18 18:18:57 -05:00
parent 87997cc0d2
commit 33914c62cb
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,14 +5,15 @@ io.directories io.files.temp kernel io.streams.string calendar
debugger combinators.smart sequences ; debugger combinators.smart sequences ;
IN: site-watcher.db IN: site-watcher.db
TUPLE: account account-id email ; TUPLE: account account-id account-name email ;
: <account> ( email -- account ) : <account> ( account-name -- account )
account new account new
swap >>email ; swap >>account-name ;
account "ACCOUNT" { account "ACCOUNT" {
{ "account-id" "ACCOUNT_ID" +db-assigned-id+ } { "account-id" "ACCOUNT_ID" +db-assigned-id+ }
{ "account-name" "ACCOUNT_NAME" VARCHAR }
{ "email" "EMAIL" VARCHAR } { "email" "EMAIL" VARCHAR }
} define-persistent } define-persistent
@ -74,7 +75,7 @@ TUPLE: reporting-site email url up? changed? last-up? error last-error ;
dup t >>up? insert-tuple dup t >>up? insert-tuple
] unless ; ] unless ;
: insert-account ( email -- ) <account> insert-tuple ; : insert-account ( account-name -- ) <account> insert-tuple ;
: find-sites ( -- seq ) f <site> select-tuples ; : find-sites ( -- seq ) f <site> select-tuples ;

3
extra/site-watcher/site-watcher-tests.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! 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 ; site-watcher.private kernel db io.directories io.files.temp
continuations ;
IN: site-watcher.tests IN: site-watcher.tests
: site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline : site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline

2
extra/site-watcher/site-watcher.factor
View File

@ -3,7 +3,7 @@
USING: accessors alarms arrays calendar combinators USING: accessors alarms arrays calendar combinators
combinators.smart continuations debugger http.client combinators.smart continuations debugger http.client
init io.streams.string kernel locals math math.parser init io.streams.string kernel locals math math.parser
namespaces sequences site-watcher.db smtp ; namespaces sequences site-watcher.db site-watcher.db.private smtp ;
IN: site-watcher IN: site-watcher
SYMBOL: site-watcher-from SYMBOL: site-watcher-from