steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Security

db4
Slava Pestov 2008-06-18 03:28:15 -05:00
parent db6b24614f
commit 5a133ceece
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/furnace/auth/features/deactivate-user/deactivate-user.factor
View File

@ -16,7 +16,9 @@ IN: furnace.auth.features.deactivate-user
] >>submit ; ] >>submit ;
: allow-deactivation ( realm -- realm ) : allow-deactivation ( realm -- realm )
<deactivate-user-action> "deactivate-user" add-responder ; <deactivate-user-action> <protected>
"delete your profile" >>description
"deactivate-user" add-responder ;
: allow-deactivation? ( -- ? ) : allow-deactivation? ( -- ? )
realm get responders>> "deactivate-user" swap key? ; realm get responders>> "deactivate-user" swap key? ;