<update-notify-action> ( -- action )

Vocabulary

webapps.site-watcher

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.site-watcher

: <update-notify-action> ( -- action )
    <page-action>
    [ username f <account> select-tuple from-object ] >>init
    { site-watcher-app "update-notify" } >>template [
        {
            { "email" [ [ v-email ] v-optional ] }
            { "twitter" [ [ v-one-word ] v-optional ] }
            { "sms" [ [ v-one-line ] v-optional ] }
        } validate-params
    ] >>validate [
        username f <account> select-tuple "email" value >>email
        "twitter" value >>twitter "sms" value >>sms update-tuple
        f <redirect>
    ] >>submit
    <protected> "update notification details" >>description ;