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

AKKORNEL / Config-Apple-Profile-v0.87.1-TRIAL / lib / Config / Apple / Profile / Payload / Certificate / Root.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
141
142
—
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164

              
# This is the code for Config::Apple::Profile::Payload::Certificate::Root.
# For Copyright, please see the bottom of the file.
package Config::Apple::Profile::Payload::Certificate::Root;
use 5.10.1;
use strict;
use warnings FATAL => 'all';
use base qw(Config::Apple::Profile::Payload::Certificate);
our $VERSION = '0.87.1';
use Readonly;
use Config::Apple::Profile::Targets qw(:all);
use Config::Apple::Profile::Payload::Certificate;
use Config::Apple::Profile::Payload::Types qw($ProfileNumber $ProfileString);
=encoding utf8
=head1 NAME
Config::Apple::Profile::Payload::Certificate::Root - Certificate payload with
a DER-format certificate.
=head1 SYNOPSIS
    use Config::Apple::Profile;
    use Config::Apple::Profile::Payload::Certificate::Root;
     
    my $cert = new Config::Apple::Profile::Payload::Certificate::Root;
    $cert->payload->{PayloadIdentifier} = 'local.acme.CAcert';
    $cert->payload->{PayloadDisplayName} = 'AcmeCorp internal CA';
    $cert->payload->{PayloadDescription} = 'The certificate authority used for internal web sites.';
    $cert->payload->{PayloadOrganization} = 'Acme, Inc.';
    $cert->payload->{PayloadCertificateFileName} = 'acme.crt'; 
    $cert->payload->{PayloadContent} = '.............'; # Long binary data here
     
    my $profile = new Config::Apple::Profile::Profile;
    push @{$profile->content}, $cert;
     
    print $profile->export;
     
=head1 DESCRIPTION
This class implements the root type of Certificate payload.
This payload contains a single certificate, in a PKCS#1 container,
DER-encoded.  For reference, pretty much any certificate you get, when you are
just getting a certificate, will be in a PKCS#1 container.  DER encoding is a
binary encoding, it's not the "BEGIN CERTIFICATE" type of encoding (that's PEM).
This payload is used to hold B<only one> certificate.  If you have multiple
certificates, use multiple payloads.
B<NOTE:>  This type is exactly the same as the C<pkcs1> type of Certificate
payload.
=head1 INSTANCE METHODS
The following instance methods are provided, or overridden, by this class.
=head2 validate_key($key, $value)
Performs additional validation for a certain payload key in this class:
=over 4
=item * C<PayloadContent>
This must be a DER-format certificate that OpenSSL can recognize.
All other payload keys will be checked as usual by the parent class.
=back
See also the documentation in L<Config::Apple::Profile::Payload::Common>.
=cut
sub validate_key {
    my ($self, $key, $value) = @_;
    # First, let the parent do validation
    my $parent_validation = $self->SUPER::validate_key($key, $value);
    return $parent_validation if !defined($parent_validation);
     
    # Next, if we are setting payload content, and we can check it, do so!
    if ($key eq 'PayloadContent') {
        return $self->SUPER::validate_cert($value, 'DER');
    }
     
    # For all other keys, return what the parent validated
    else {
        return $parent_validation;
    }
}
=head1 PAYLOAD KEYS
All of the payload keys defined in 
L<Config::Apple::Profile::Payload::Common::Certificate> are used by this
payload.
This payload has the following additional keys:
=head2 C<PayloadType>
This is fixed to the string C<com.apple.security.root>.
=head2 C<PayloadVersion>
This is fixed to the value C<1>.
=cut
Readonly our %payloadKeys => (
    # Bring in the certificate keys...
    %Config::Apple::Profile::Payload::Certificate::payloadKeys,
     
    # Since we can't go any deeper, define the type and version!
    'PayloadType' => {
        type => $ProfileString,
        targets => {
            $TargetIOS => '5.0',
            $TargetMACOSX => '10.7', 
        },
        value => 'com.apple.security.root',
    },
    'PayloadVersion' => {
        type => $ProfileNumber,
        targets => {
            $TargetIOS => '5.0',
            $TargetMACOSX => '10.7', 
        },
        value => 1,
    },
);  # End of %payloadKeys
=head1 ACKNOWLEDGEMENTS
Refer to L<Config::Apple::Profile> for acknowledgements.
=head1 AUTHOR
A. Karl Kornel, C<< <karl at kornel.us> >>
=head1 COPYRIGHT AND LICENSE
Copyright © 2014 A. Karl Kornel.
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See L<http://dev.perl.org/licenses/> for more information.
=cut
1;