diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 15:23:55 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 15:23:55 -0600 |
| commit | 50de25d9728ed7da8147142e659857bbfbc754d1 (patch) | |
| tree | 4a6a2cef2fdfb3a2843b85b0eeb717bf2caf5281 /build-app.lisp | |
| parent | fc55695743a15e8e3945b2e5718763378a5ae362 (diff) | |
edits update local cache. revoke renamed logout
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") |