|
|
|
--- tinyca2-0.7.5/lib/GUI.pm 2006-07-25 16:12:00.000000000 -0400
|
|
|
|
--- tinyca2-0.7.5/lib/GUI.pm 2006-07-25 16:12:00.000000000 -0400
|
|
|
|
@@ -978,7 +978,7 @@
|
|
|
|
$piter = $store->append($root);
|
|
|
|
$store->set($piter, 0 => $t);
|
|
|
|
|
|
|
|
- for my $l qw(CN EMAIL O OU C ST L) {
|
|
|
|
+ for my $l (qw(CN EMAIL O OU C ST L)) {
|
|
|
|
if(defined($parsed->{$l})) {
|
|
|
|
if($l eq "OU") {
|
|
|
|
foreach my $ou (@{$parsed->{'OU'}}) {
|
|
|
|
@@ -1003,7 +1003,7 @@
|
|
|
|
$piter = $store->append($root);
|
|
|
|
$store->set($piter, 0 => $t);
|
|
|
|
|
|
|
|
- for my $l qw(CN EMAIL O OU C ST L) {
|
|
|
|
+ for my $l (qw(CN EMAIL O OU C ST L)) {
|
|
|
|
if(defined($parsed->{'ISSUERDN'}->{$l})) {
|
|
|
|
if($l eq "OU") {
|
|
|
|
foreach my $ou (@{$parsed->{'ISSUERDN'}->{'OU'}}) {
|
|
|
|
@@ -1029,7 +1029,7 @@
|
|
|
|
$piter = $store->append($root);
|
|
|
|
$store->set($piter, 0 => $t);
|
|
|
|
|
|
|
|
- for my $l qw(STATUS NOTBEFORE NOTAFTER) {
|
|
|
|
+ for my $l (qw(STATUS NOTBEFORE NOTAFTER)) {
|
|
|
|
if(defined($parsed->{$l})) {
|
|
|
|
$citer = $store->append($piter);
|
|
|
|
$store->set($citer,
|
|
|
|
@@ -1045,7 +1045,7 @@
|
|
|
|
$store->set($piter, 0 => $t);
|
|
|
|
|
|
|
|
|
|
|
|
- for my $l qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE) {
|
|
|
|
+ for my $l (qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE)) {
|
|
|
|
if(defined($parsed->{$l})) {
|
|
|
|
$citer = $store->append($piter);
|
|
|
|
$store->set($citer,
|
|
|
|
@@ -1060,7 +1060,7 @@
|
|
|
|
$piter = $store->append($root);
|
|
|
|
$store->set($piter, 0 => $t);
|
|
|
|
|
|
|
|
- for my $l qw(FINGERPRINTMD5 FINGERPRINTSHA1) {
|
|
|
|
+ for my $l (qw(FINGERPRINTMD5 FINGERPRINTSHA1)) {
|
|
|
|
if(defined($parsed->{$l})) {
|
|
|
|
$citer = $store->append($piter);
|
|
|
|
$store->set($citer,
|