The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

FELIPE / Net-ACME-0.17 / lib / Net / ACME / Authorization / Pending.pm 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

              
package Net::ACME::Authorization::Pending;
=encoding utf-8
=head1 NAME
Net::ACME::Authorization::Pending - pending ACME authorization
=head1 SYNOPSIS
    use Net::ACME::Authorization::Pending ();
    my $authz_p = Net::ACME::Authorization::Pending->new(
        uri => 'http://url/to/poll/for/authz',
        challenges => \@challenge_objects,
        combinations => [
            [ 2 ],
            [ 1 ],
            [ 0 ],
        ],
    );
    for my $cmb ( $authz_p->combinations() ) {
        #An example of only doing “http-01”:
        next if @$cmb > 1;
        next if $cmb->[0]->type() ne 'http-01';
        #Prepare for the challenge …
        #Assume we instantiated Net::ACME above …
        $acme->do_challenge($cmb->[0]);
        while (1) {
            if ($authz_p->is_time_to_poll()) {
                my $poll = $authz_p->poll();
                last if $poll->status() eq 'valid';
                if ($poll->status() eq 'invalid') {
                    my $completed_challenge = ($poll->challenges())[0];
                    print $completed_challenge->error()->detail() . $/;
                    die "Failed authorization!$/";
                }
            }
            sleep 1;
        }
        last;
    }
=cut
#NOTE: For now, this assumes a domain name.
#Might be useful moving forward to separate out other types
#of authz as per ACME spec expansion. (As of April 2016 only
#domain names are handled.)
use strict;
use warnings;
use parent qw( Net::ACME::RetryAfter );
use Call::Context ();
use Net::ACME::Authorization ();
use Net::ACME::Challenge     ();
use Net::ACME::Error         ();
use Net::ACME::X             ();
my $PENDING_CLASS = 'Net::ACME::Challenge::Pending';
sub new {
    my ( $class, %opts ) = @_;
    my $self = {
        _uri => $opts{'uri'} || die('Need “uri”!'),
        _challenges   => $opts{'challenges'},
        _combinations => $opts{'combinations'},
    };
    if ( !@{ $opts{'challenges'} } ) {
        die Net::ACME::X::create( 'Empty', { name => 'challenges' } );
    }
    for my $c ( 0 .. $#{ $opts{'challenges'} } ) {
        my $challenge = $opts{'challenges'}[$c];
        if ( !$challenge->isa($PENDING_CLASS) ) {
            die "Challenge $c ($challenge) is not an instance of “$PENDING_CLASS”!";
        }
    }
    bless $self, $class;
    return $self;
}
sub combinations {
    my ($self) = @_;
    Call::Context::must_be_list();
    return map {
        [ map { $self->{'_challenges'}[$_] } @$_ ]
    } @{ $self->{'_combinations'} };
}
sub _handle_non_202_poll {
    my ( $self, $resp ) = @_;
    $resp->die_because_unexpected() if $resp->status() != 200;
    my $payload = $resp->content_struct();
    my @challenge_objs;
    for my $c ( @{ $payload->{'challenges'} } ) {
        #We only care here about challenges that have been resolved.
        next if $c->{'status'} eq 'pending';
        my $err = $c->{'error'};
        $err &&= Net::ACME::Error->new(%$err);
        push @challenge_objs, Net::ACME::Challenge->new(
            status => $c->{'status'},
            error  => $err,
        );
    }
    return Net::ACME::Authorization->new(
        status     => $payload->{'status'},
        challenges => \@challenge_objs,
    );
}
1;