lacme: new option 'account --deactivate'

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

1 files changed, 1 insertions, 0 deletions

diff --git a/client b/client
index b567516..2eebbf0 100755
--- a/client
+++ b/client
@@ -244,6 +244,7 @@ if ($COMMAND eq 'account') {
     my %h = ( contact => \@ARGV ) if @ARGV;
     $h{onlyReturnExisting}   = Types::Serialiser::true unless $flags & 0x01;
     $h{termsOfServiceAgreed} = Types::Serialiser::true if     $flags & 0x02;
+    $h{status}               = "deactivated"           if     $flags & 0x04;
 
     print STDERR "Requesting new registration ".(@ARGV ? ("for ".join(', ', @ARGV)) : "")."\n"
         if $flags & 0x01;