diff options
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/build-app.lisp b/build-app.lisp index 7da683b..c481352 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -84,8 +84,10 @@ Topics: wiki, access, invites")) (group (:header "Access" :hidden t) (flag :long-name "login" :description "Attempt to login to your contributor account. ARGS are interpreted as USERNAME PASSWORD.") - (flag :long-name "revoke" - :description "Revoke your own access token.")) + (flag :long-name "logout" + :description "Revoke your own access token.") + (flag :long-name "change-password" + :description "Change your password. ARGS are interpreted as CURRENTPW NEWPW NEWPWAGAIN")) (group (:header "Invites" :hidden t) (flag :long-name "invite" :description "Request an invite token to send to a friend.") @@ -128,10 +130,14 @@ than the users." (destructuring-bind (user pass) arguments (cli::login user pass))) + ((getopt :long-name "change-password") + (destructuring-bind (current new repeated) arguments + (cli::change-pw current new repeated))) + ((getopt :long-name "invite") (cli::request-invite-code)) - ((getopt :long-name "revoke") + ((getopt :long-name "logout") (cli::revoke-access)) ((getopt :long-name "add") |