]> git.proxmox.com Git - proxmox-acme.git/blob - src/PVE/ACME/Challenge.pm
0137cf22274fe85dc98b7a8592dbfbe8437a9e70
[proxmox-acme.git] / src / PVE / ACME / Challenge.pm
1 package PVE::ACME::Challenge;
2
3 use strict;
4 use warnings;
5
6 use PVE::JSONSchema qw(get_standard_option);
7
8 use base qw(PVE::SectionConfig);
9
10 my $defaultData = {
11 additionalProperties => 0,
12 propertyList => {
13 id => {
14 description => "ACME Plugin ID name",
15 type => 'string',
16 },
17 type => {
18 description => "ACME challenge type.",
19 type => 'string',
20 },
21 disable => {
22 description => "Flag to disable the config.",
23 type => 'boolean',
24 optional => 1,
25 },
26 nodes => get_standard_option('pve-node-list', { optional => 1 }),
27 },
28 };
29
30 sub private {
31 return $defaultData;
32 }
33
34 sub parse_config {
35 my ($class, $filename, $raw) = @_;
36
37 my $cfg = $class->SUPER::parse_config($filename, $raw);
38 my $ids = $cfg->{ids};
39
40 # make sure we have a standalone plugin definition as fallback!
41 if (!$ids->{standalone} || $ids->{standalone}->{type} ne 'standalone') {
42 $ids->{standalone} = {
43 type => 'standalone',
44 };
45 }
46
47 return $cfg;
48 }
49
50 sub supported_challenge_types {
51 return {};
52 }
53
54 sub extract_challenge {
55 my ($self, $challenges, $c_type) = @_;
56
57 die "no challenges defined\n" if !$challenges;
58 die "no challenge type is defined \n" if !$c_type;
59
60 my $tmp_challenges = [ grep {$_->{type} eq $c_type} @$challenges ];
61 die "no $c_type challenge defined in authorization\n"
62 if ! scalar $tmp_challenges;
63
64 my $challenge = $tmp_challenges->[0];
65
66 return $challenge;
67 }
68
69 sub get_subplugins {
70 return [];
71 }
72
73 # acme => PVE::ACME instance
74 # auth => authorization object returned by ACME server
75 # $data => {
76 # plugin => plugin config data
77 # alias => optional domain alias
78 # }
79 # needs to set $data->{url} to URL of the challenge which has been set up
80 # can set other $data keys needed by teardown sub
81 sub setup {
82 my ($self, $acme, $auth, $data) = @_;
83
84 die "implement me\n";
85 }
86
87 # see setup
88 sub teardown {
89 my ($self, $acme, $auth, $data) = @_;
90
91 die "implement me\n";
92 }
93
94 1;