Signed-off-by: Wolfgang Link <w.l...@proxmox.com> --- src/PVE/ACME.pm | 15 +++++++++++++++ src/PVE/ACME/StandAlone.pm | 2 ++ 2 files changed, 17 insertions(+)
diff --git a/src/PVE/ACME.pm b/src/PVE/ACME.pm index c10dca2..7c0794a 100644 --- a/src/PVE/ACME.pm +++ b/src/PVE/ACME.pm @@ -573,4 +573,19 @@ sub do { return $res; } +sub extract_challenge ($$) { + my ($challenges, $c_type) = @_; + + die "no challenges defined\n" if !$challenges; + die "no challenge type is defined \n" if !$c_type; + + my $tmp_challenges = [ grep {$_->{type} eq $c_type} @$challenges ]; + die "no $c_type challenge defined in authorization\n" + if ! scalar $tmp_challenges; + + my $challenge = $tmp_challenges->[0]; + + return $challenge; +} + 1; diff --git a/src/PVE/ACME/StandAlone.pm b/src/PVE/ACME/StandAlone.pm index 8fc8dc9..38db3f8 100644 --- a/src/PVE/ACME/StandAlone.pm +++ b/src/PVE/ACME/StandAlone.pm @@ -6,6 +6,8 @@ use warnings; use HTTP::Daemon; use HTTP::Response; +use PVE::ACME; + use base qw(PVE::ACME::Challenge); sub supported_challenge_types { -- 2.20.1 _______________________________________________ pve-devel mailing list pve-devel@pve.proxmox.com https://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel