Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixup! route53: Add support for Amazon AWS Route 53

Browse source 
rename `load_sha1_support` to `load_sha_support`
This commit is contained in:
Richard Hansen 2024-12-19 23:26:35 -05:00
parent fae46498f2
commit 5cdb4ae91f
2 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ddclient.in
View file

@ -2123,8 +2123,8 @@ sub init_config {
# given? # given?
my @protos = map(opt('protocol', $_), keys(%config)); my @protos = map(opt('protocol', $_), keys(%config));
my @needs_sha1 = grep({ my $p = $_; grep($_ eq $p, @protos); } qw(freedns nfsn route53)); my @needs_sha = grep({ my $p = $_; grep($_ eq $p, @protos); } qw(freedns nfsn route53));
load_sha1_support(join(', ', @needs_sha1)) if @needs_sha1; load_sha_support(join(', ', @needs_sha)) if @needs_sha;
my @needs_json = grep({ my $p = $_; grep($_ eq $p, @protos); } my @needs_json = grep({ my $p = $_; grep($_ eq $p, @protos); }
qw(1984 cloudflare digitalocean directnic dnsexit2 gandi godaddy hetzner qw(1984 cloudflare digitalocean directnic dnsexit2 gandi godaddy hetzner
nfsn njalla porkbun yandex)); nfsn njalla porkbun yandex));
@ -2706,10 +2706,7 @@ sub check_value {
return $value; return $value;
} }
###################################################################### sub load_sha_support {
## load_sha1_support
######################################################################
sub load_sha1_support {
my ($protocol) = @_; my ($protocol) = @_;
eval { require Digest::SHA; } or fatal(<<"EOM"); eval { require Digest::SHA; } or fatal(<<"EOM");
Error loading the Perl module Digest::SHA needed for $protocol update. Error loading the Perl module Digest::SHA needed for $protocol update.

2
t/aws_signed_request.pl
View file

@ -2,7 +2,7 @@ use Test::More;
use ddclient::t; use ddclient::t;
SKIP: { eval { require Test::Warnings; } or skip($@, 1); } SKIP: { eval { require Test::Warnings; } or skip($@, 1); }
eval { require 'ddclient'; } or BAIL_OUT($@); eval { require 'ddclient'; } or BAIL_OUT($@);
ddclient::load_sha1_support("route53"); ddclient::load_sha_support("route53");
my $TARGET_REQUEST_HASH = "18edc7204269d65bfa6a075381b0496cdb38166dfc3654207e929c6178d1a1ba"; my $TARGET_REQUEST_HASH = "18edc7204269d65bfa6a075381b0496cdb38166dfc3654207e929c6178d1a1ba";