On October 14, 2019 1:08 pm, Wolfgang Link wrote:
> ---
> src/PVE/ACME/ACME_sh.pm | 23 +++++++++++++++++++++++
> 1 file changed, 23 insertions(+)
>
> diff --git a/src/PVE/ACME/ACME_sh.pm b/src/PVE/ACME/ACME_sh.pm
> index 40be772..e60fd93 100644
> --- a/src/PVE/ACME/ACME_sh.pm
> +++ b/src/PVE/ACME/ACME_sh.pm
> @@ -5,6 +5,9 @@ use warnings;
>
> use HTTP::Daemon;
> use HTTP::Response;
still not used ;)
> +use Digest::SHA qw(sha256);
> +
> +use PVE::ACME;
missing PVE::Tools
>
> use base qw(PVE::ACME::Challenge);
>
> @@ -59,4 +62,24 @@ sub validating_url {
>
> }
>
> +my $outfunc = sub {
> + my $line = shift;
> + print "$line\n";
> +};
> +
> +sub setup {
> + my ($class, $auth, $acme, $alias) = @_;
> +
> + my $dns_challenge = PVE::ACME::extract_challenge($auth->{'challenges'},
> "dns-01");
> + my $url = $dns_challenge->{'url'};
> + my $domain = $auth->{'identifier'}->{'value'};
> + my $key_auth = $acme->key_authorization($dns_challenge->{'token'});
> + my $digest = PVE::ACME::encode(sha256($key_auth));
> + my $cmd = &$compose_cmd('pve-setup', $digest, $domain, $alias);
see comment in #6, alias should already be handled here..
> +
> + PVE::Tools::run_command($cmd, outfunc => $outfunc);
> +
> + return ($url, $digest, $domain);
> +}
> +
> 1;
> --
> 2.20.1
>
>
> _______________________________________________
> pve-devel mailing list
> pve-devel@pve.proxmox.com
> https://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
>
>
_______________________________________________
pve-devel mailing list
pve-devel@pve.proxmox.com
https://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
