add an account-name field to site-watcher

diff --git a/extra/site-watcher/db/db.factor b/extra/site-watcher/db/db.factor
index 6a861ef747a15d0a893c7235c4690bfb2ee6bd30..7b784885572da6da78d1266243b9d06ec31a3133 100644 (file)
--- a/extra/site-watcher/db/db.factor
+++ b/extra/site-watcher/db/db.factor
@@ -5,14 +5,15 @@ io.directories io.files.temp kernel io.streams.string calendar
 debugger combinators.smart sequences ;
 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
-        swap >>email ;
+        swap >>account-name ;
 
 account "ACCOUNT" {
     { "account-id" "ACCOUNT_ID" +db-assigned-id+ }
+    { "account-name" "ACCOUNT_NAME" VARCHAR }
     { "email" "EMAIL" VARCHAR }
 } define-persistent
 
@@ -74,7 +75,7 @@ TUPLE: reporting-site email url up? changed? last-up? error last-error ;
         dup t >>up? insert-tuple
     ] unless ;
 
-: insert-account ( email -- ) <account> insert-tuple ;
+: insert-account ( account-name -- ) <account> insert-tuple ;
 
 : find-sites ( -- seq ) f <site> select-tuples ;
 

diff --git a/extra/site-watcher/site-watcher-tests.factor b/extra/site-watcher/site-watcher-tests.factor
index a19c954c25a4f9338b9d1b1ad8a0450304f8d49c..385edf41ad30ee43d4cda070dfe1e295dfd451e2 100644 (file)
--- a/extra/site-watcher/site-watcher-tests.factor
+++ b/extra/site-watcher/site-watcher-tests.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 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
 
 : site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline

diff --git a/extra/site-watcher/site-watcher.factor b/extra/site-watcher/site-watcher.factor
index f47c38c50f984d20ebe64e61037fb9913d6bb069..163c47022d515aa872e22a7d29bc576da64eb131 100644 (file)
--- a/extra/site-watcher/site-watcher.factor
+++ b/extra/site-watcher/site-watcher.factor
@@ -3,7 +3,7 @@
 USING: accessors alarms arrays calendar combinators
 combinators.smart continuations debugger http.client
 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
 
 SYMBOL: site-watcher-from