init-user-profile ( responder -- )

Vocabulary

furnace.auth

Inputs

responder

an object

Outputs

None

Definition

IN: furnace.auth

GENERIC: init-user-profile ( responder -- )

Methods

USING: accessors furnace.auth http.server.dispatchers ;

M: dispatcher init-user-profile default>> init-user-profile ;


USING: accessors furnace.auth http.server.filters ;

M: filter-responder init-user-profile
    responder>> init-user-profile ;


USING: furnace.auth kernel ;

M: object init-user-profile drop ;


USING: db.tuples furnace.auth html.forms kernel site-watcher.db
webapps.site-watcher.common ;

M: site-watcher-app init-user-profile
    drop "username" value "email" value <account> insert-tuple ;