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

call init-db and run-site-watcher from webapps.site-watcher

db4
Doug Coleman 2009-03-19 16:48:46 -05:00
parent e41a7bb6d6
commit ece2eabc39
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/webapps/site-watcher/site-watcher.factor
View File

@ -122,10 +122,12 @@ CONSTANT: site-list-url URL" $site-watcher-app/"
site-watcher-db <alloy> site-watcher-db <alloy>
main-responder set-global main-responder set-global
: start-site-watcher ( -- )
<site-watcher-server> start-server ;
: init-db ( -- ) : init-db ( -- )
site-watcher-db [ site-watcher-db [
{ site account watching-site } [ ensure-table ] each { site account watching-site } [ ensure-table ] each
] with-db ; ] with-db ;
: start-site-watcher ( -- )
init-db
site-watcher-db run-site-watcher
<site-watcher-server> start-server ;