<add-spidered-site-action> ( -- action )

Vocabulary

webapps.site-watcher.spidering

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions furnace.auth
furnace.redirection html.forms site-watcher.db validators ;

IN: webapps.site-watcher.spidering

: <add-spidered-site-action> ( -- action )
    <action>
    [ { { "url" [ v-url ] } } validate-params ] >>validate [
        username "url" value add-spidered-site
        site-list-url <redirect>
    ] >>submit <protected> "add a spidered site" >>description ;