aboutsummaryrefslogtreecommitdiffstats
path: root/client
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2021-02-12 22:06:43 +0100
committerGuilhem Moulin <guilhem@fripost.org>2021-02-12 22:14:13 +0100
commitb54d248515357297d84a01cf45a42a6787c21240 (patch)
tree4840d821b28ad325a0fe3a071b129898396ac921 /client
parent8c70ba081e9892217510b6b01f0402482161ef84 (diff)
Replace Types::Serialiser::true with JSON::true.
This removes the dependency on Types::Serialiser.
Diffstat (limited to 'client')
-rwxr-xr-xclient9
1 files changed, 4 insertions, 5 deletions
diff --git a/client b/client
index c5788dd..c1066c1 100755
--- a/client
+++ b/client
@@ -52,7 +52,6 @@ use MIME::Base64 qw/encode_base64 encode_base64url/;
use Date::Parse ();
use LWP::UserAgent ();
-use Types::Serialiser ();
use JSON ();
use Config::Tiny ();
@@ -226,7 +225,7 @@ sub acme_resource($%) {
# Set the key ID (registration URI)
sub set_kid(;$) {
my $die = shift // 1;
- my $r = acme_resource('newAccount', onlyReturnExisting => Types::Serialiser::true );
+ my $r = acme_resource('newAccount', onlyReturnExisting => JSON::true );
if ($r->is_success()) {
$KID = $r->header('Location');
} elsif ($die) {
@@ -242,9 +241,9 @@ if ($COMMAND eq 'account') {
my $flags = shift @ARGV;
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;
+ $h{onlyReturnExisting} = JSON::true unless $flags & 0x01;
+ $h{termsOfServiceAgreed} = JSON::true if $flags & 0x02;
+ $h{status} = "deactivated" if $flags & 0x04;
print STDERR "Requesting new registration ".(@ARGV ? ("for ".join(', ', @ARGV)) : "")."\n"
if $flags & 0x01;