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 validators webapps.site-watcher.common
5 site-watcher.db site-watcher.spider kernel urls sequences ;
6 IN: webapps.site-watcher.spidering
8 CONSTANT: site-list-url URL" $site-watcher-app/spider-list"
10 : <spider-list-action> ( -- action )
12 { site-watcher-app "spider-list" } >>template
15 username spidering-sites [ site>> ] map
19 "list spidered sites" >>description ;
21 : <add-spidered-site-action> ( -- action )
24 { { "url" [ v-url ] } } validate-params
27 username "url" value add-spidered-site
28 site-list-url <redirect>
31 "add a spidered site" >>description ;
33 : <remove-spidered-site-action> ( -- action )
36 { { "url" [ v-url ] } } validate-params
39 username "url" value remove-spidered-site
40 site-list-url <redirect>
43 "remove a spidered site" >>description ;
45 : <spider-sites-action> ( -- action )
49 site-list-url <redirect>
52 "spider sites" >>description ;