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

Vocabulary

webapps.site-watcher.watching

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.watching

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