|
Lines 978-984
Link Here
|
| 978 |
$piter = $store->append($root); |
978 |
$piter = $store->append($root); |
| 979 |
$store->set($piter, 0 => $t); |
979 |
$store->set($piter, 0 => $t); |
| 980 |
|
980 |
|
| 981 |
for my $l qw(CN EMAIL O OU C ST L) { |
981 |
for my $l (qw(CN EMAIL O OU C ST L)) { |
| 982 |
if(defined($parsed->{$l})) { |
982 |
if(defined($parsed->{$l})) { |
| 983 |
if($l eq "OU") { |
983 |
if($l eq "OU") { |
| 984 |
foreach my $ou (@{$parsed->{'OU'}}) { |
984 |
foreach my $ou (@{$parsed->{'OU'}}) { |
|
Lines 1003-1009
Link Here
|
| 1003 |
$piter = $store->append($root); |
1003 |
$piter = $store->append($root); |
| 1004 |
$store->set($piter, 0 => $t); |
1004 |
$store->set($piter, 0 => $t); |
| 1005 |
|
1005 |
|
| 1006 |
for my $l qw(CN EMAIL O OU C ST L) { |
1006 |
for my $l (qw(CN EMAIL O OU C ST L)) { |
| 1007 |
if(defined($parsed->{'ISSUERDN'}->{$l})) { |
1007 |
if(defined($parsed->{'ISSUERDN'}->{$l})) { |
| 1008 |
if($l eq "OU") { |
1008 |
if($l eq "OU") { |
| 1009 |
foreach my $ou (@{$parsed->{'ISSUERDN'}->{'OU'}}) { |
1009 |
foreach my $ou (@{$parsed->{'ISSUERDN'}->{'OU'}}) { |
|
Lines 1029-1035
Link Here
|
| 1029 |
$piter = $store->append($root); |
1029 |
$piter = $store->append($root); |
| 1030 |
$store->set($piter, 0 => $t); |
1030 |
$store->set($piter, 0 => $t); |
| 1031 |
|
1031 |
|
| 1032 |
for my $l qw(STATUS NOTBEFORE NOTAFTER) { |
1032 |
for my $l (qw(STATUS NOTBEFORE NOTAFTER)) { |
| 1033 |
if(defined($parsed->{$l})) { |
1033 |
if(defined($parsed->{$l})) { |
| 1034 |
$citer = $store->append($piter); |
1034 |
$citer = $store->append($piter); |
| 1035 |
$store->set($citer, |
1035 |
$store->set($citer, |
|
Lines 1045-1051
Link Here
|
| 1045 |
$store->set($piter, 0 => $t); |
1045 |
$store->set($piter, 0 => $t); |
| 1046 |
|
1046 |
|
| 1047 |
|
1047 |
|
| 1048 |
for my $l qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE) { |
1048 |
for my $l (qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE)) { |
| 1049 |
if(defined($parsed->{$l})) { |
1049 |
if(defined($parsed->{$l})) { |
| 1050 |
$citer = $store->append($piter); |
1050 |
$citer = $store->append($piter); |
| 1051 |
$store->set($citer, |
1051 |
$store->set($citer, |
|
Lines 1060-1066
Link Here
|
| 1060 |
$piter = $store->append($root); |
1060 |
$piter = $store->append($root); |
| 1061 |
$store->set($piter, 0 => $t); |
1061 |
$store->set($piter, 0 => $t); |
| 1062 |
|
1062 |
|
| 1063 |
for my $l qw(FINGERPRINTMD5 FINGERPRINTSHA1) { |
1063 |
for my $l (qw(FINGERPRINTMD5 FINGERPRINTSHA1)) { |
| 1064 |
if(defined($parsed->{$l})) { |
1064 |
if(defined($parsed->{$l})) { |
| 1065 |
$citer = $store->append($piter); |
1065 |
$citer = $store->append($piter); |
| 1066 |
$store->set($citer, |
1066 |
$store->set($citer, |
