From 50de25d9728ed7da8147142e659857bbfbc754d1 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 28 Feb 2022 15:23:55 -0600 Subject: edits update local cache. revoke renamed logout --- build-app.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'build-app.lisp') 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") -- cgit v1.2.3