]> gitweb.factorcode.org Git - factor.git/commitdiff
Security
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Wed, 18 Jun 2008 08:28:15 +0000 (03:28 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Wed, 18 Jun 2008 08:28:15 +0000 (03:28 -0500)
extra/furnace/auth/features/deactivate-user/deactivate-user.factor

index 49fa00353b18ac38fb319607d7a57a1ce6568741..cf6a56c2d4ca327a40d904ee2bd35549ff1b1df5 100644 (file)
@@ -16,7 +16,9 @@ IN: furnace.auth.features.deactivate-user
         ] >>submit ;
     
 : 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? ( -- ? )
     realm get responders>> "deactivate-user" swap key? ;