File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Crypt/Perl/X509/InfoAccessBase.pm
Back
package Crypt::Perl::X509::InfoAccessBase; use strict; use warnings; use parent qw( Crypt::Perl::X509::Extension ); use Crypt::Perl::X509::GeneralName (); use Crypt::Perl::X (); use constant ASN1 => Crypt::Perl::X509::GeneralName::ASN1() . <<END; InfoAccess ::= SEQUENCE OF AccessDescription AccessDescription ::= SEQUENCE { accessMethod OBJECT IDENTIFIER, accessLocation ANY -- GeneralName } END use constant { asn1_macro => 'InfoAccess', CRITICAL => 0, }; sub new { my ($class, @accessDescrs) = @_; if (!@accessDescrs) { die Crypt::Perl::X::create('Generic', 'Need access descriptions!'); } return bless \@accessDescrs, $class; } sub _encode_params { my ($self) = @_; my $data = [ map { $self->can("OID_$_->[0]") or die( Crypt::Perl::X::create('Generic', "Unknown method: “$_->[0]”") ); { accessMethod => $self->can("OID_$_->[0]")->(), accessLocation => Crypt::Perl::X509::GeneralName->new( @{$_}[1,2] )->encode(), } } @$self, ]; return $data; } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.04 |
proxy
|
phpinfo
|
Settings