1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors furnace.actions furnace.auth
4 furnace.redirection html.forms site-watcher site-watcher.db
5 validators webapps.site-watcher.common urls ;
6 IN: webapps.site-watcher.watching
8 CONSTANT: site-list-url URL" $site-watcher-app/watch-list"
10 : <watch-list-action> ( -- action )
12 { site-watcher-app "site-list" } >>template
15 username watching-sites
19 "list watched sites" >>description ;
21 : <add-watched-site-action> ( -- action )
24 { { "url" [ v-url ] } } validate-params
27 username "url" value watch-site
28 site-list-url <redirect>
31 "add a watched site" >>description ;
33 : <remove-watched-site-action> ( -- action )
36 { { "url" [ v-url ] } } validate-params
39 username "url" value unwatch-site
40 site-list-url <redirect>
43 "remove a watched site" >>description ;
45 : <check-sites-action> ( -- action )
49 site-list-url <redirect>
52 "check watched sites" >>description ;