lacme: new option 'account --deactivate'

For client-initiated account deactivation.  See RFC 8555 sec. 7.3.6.

1 files changed, 2 insertions, 1 deletions

diff --git a/lacme b/lacme
index 1c5761c..d5e8933 100755
--- a/lacme
+++ b/lacme
@@ -63,7 +63,7 @@ sub usage(;$$) {
     }
     exit $rv;
 }
-usage(1) unless GetOptions(\%OPTS, qw/config=s config-certs=s@ socket=s register tos-agreed min-days=i quiet|q debug help|h/);
+usage(1) unless GetOptions(\%OPTS, qw/config=s config-certs=s@ socket=s register tos-agreed deactivate min-days=i quiet|q debug help|h/);
 usage(0) if $OPTS{help};
 
 $COMMAND = shift(@ARGV) // usage(1, "Missing command");
@@ -625,6 +625,7 @@ if ($COMMAND eq 'account') {
     my $flags = 0;
     $flags |= 1 if $OPTS{'register'};
     $flags |= 2 if $OPTS{'tos-agreed'};
+    $flags |= 4 if $OPTS{'deactivate'};
     exit acme_client({out => \*STDOUT}, $flags, @ARGV);
 }