1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel assocs namespaces accessors db db.tuples urls
4 http.server.dispatchers
8 furnace.auth.providers ;
9 IN: furnace.auth.features.deactivate-user
11 : <deactivate-user-action> ( -- action )
18 URL" $realm" end-aside
21 : allow-deactivation ( realm -- realm )
22 <deactivate-user-action> <protected>
23 "delete your profile" >>description
24 "deactivate-user" add-responder ;
26 : allow-deactivation? ( -- ? )
27 realm get responders>> "deactivate-user" swap key? ;