| line |
true |
false |
branch |
|
61
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set_ca_attributes", $ca_name) |
|
88
|
0 |
0 |
unless $self->brik_help_run_undef_arg("ca_init", $ca_name) |
|
89
|
0 |
0 |
unless $self->brik_help_run_undef_arg("ca_init", $ca_directory) |
|
91
|
0 |
0 |
unless $self->set_ca_attributes($ca_name) |
|
94
|
0 |
0 |
if (-d $ca_directory) { } |
|
98
|
0 |
0 |
unless mkdir $ca_directory |
|
100
|
0 |
0 |
unless mkdir $ca_directory . "/certs" |
|
102
|
0 |
0 |
unless mkdir $ca_directory . "/csrs" |
|
105
|
0 |
0 |
unless my $ft = "Metabrik::File::Text"->new_from_brik_init($self) |
|
106
|
0 |
0 |
unless $ft->write("", $ca_directory . "/index.txt") |
|
107
|
0 |
0 |
unless $ft->write("01", $ca_directory . "/serial") |
|
172
|
0 |
0 |
unless my $ft = "Metabrik::File::Text"->new_from_brik_init($self) |
|
174
|
0 |
0 |
unless $ft->write($content, $ca_conf) |
|
182
|
0 |
0 |
unless $self->system($cmd) |
|
184
|
0 |
0 |
unless my $hash = $self->cert_hash($ca_cert) |
|
186
|
0 |
0 |
unless my $sf = "Metabrik::System::File"->new_from_brik_init($self) |
|
187
|
0 |
0 |
unless $sf->link($ca_cert, $ca_directory . "/" . $hash . ".0") |
|
197
|
0 |
0 |
unless $self->brik_help_run_undef_arg("ca_show", $ca_name) |
|
199
|
0 |
0 |
unless $self->set_ca_attributes($ca_name) |
|
211
|
0 |
0 |
unless $self->brik_help_run_undef_arg("csr_new", $base_file) |
|
218
|
0 |
0 |
if (-f $csr_cert) |
|
225
|
0 |
0 |
unless ($use_passphrase) |
|
230
|
0 |
0 |
if ($?) |
|
242
|
0 |
0 |
unless $self->brik_help_run_undef_arg("ca_sign_csr", $csr_cert) |
|
243
|
0 |
0 |
unless $self->brik_help_run_file_not_found("ca_sign_csr", $csr_cert) |
|
244
|
0 |
0 |
unless $self->brik_help_run_undef_arg("ca_sign_csr", $ca_name) |
|
246
|
0 |
0 |
unless $self->set_ca_attributes($ca_name) |
|
251
|
0 |
0 |
unless my $sf = "Metabrik::System::File"->new_from_brik_init($self) |
|
252
|
0 |
0 |
unless my $base_file = $sf->basefile($csr_cert) |
|
259
|
0 |
0 |
if ($?) |
|
273
|
0 |
0 |
unless $self->brik_help_run_undef_arg("cert_hash", $cert_file) |
|
274
|
0 |
0 |
unless $self->brik_help_run_file_not_found("cert_hash", $cert_file) |
|
277
|
0 |
0 |
unless my $lines = $self->capture($cmd) |
|
279
|
0 |
0 |
if (@$lines == 0) |
|
291
|
0 |
0 |
unless $self->brik_help_run_undef_arg("cert_verify", $cert_file) |
|
292
|
0 |
0 |
unless $self->brik_help_run_file_not_found("cert_verify", $cert_file) |
|
293
|
0 |
0 |
unless $self->brik_help_run_undef_arg("cert_verify", $ca_name) |
|
295
|
0 |
0 |
unless $self->set_ca_attributes($ca_name) |
|
309
|
0 |
0 |
unless $self->brik_help_run_undef_arg("cert_show", $cert_file) |
|
310
|
0 |
0 |
unless $self->brik_help_run_file_not_found("cert_show", $cert_file) |
|
320
|
0 |
0 |
unless $self->brik_help_run_undef_arg("parse_certificate_string", $string) |
|
323
|
0 |
0 |
unless (length $string) |
|
334
|
0 |
0 |
if (defined $pubkeyalg and $pubkeyalg eq 'RSA') { } |
|
348
|
0 |
0 |
if ($decoded->error) |