<spider-list-action> ( -- action )

Vocabulary

webapps.site-watcher.spidering

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions furnace.auth html.forms
sequences site-watcher.db webapps.site-watcher.common ;

IN: webapps.site-watcher.spidering

: <spider-list-action> ( -- action )
    <page-action> { site-watcher-app "spider-list" } >>template 
    [
        username spidering-sites [ site>> ] map
        "sites" set-value
    ] >>init <protected> "list spidered sites" >>description ;