* few times and get that HD going :) Then answer the *
* Questions which follow. If you are unsure, just hit enter *
*************************************************************\n\n";
- make_gnutls_cert() or $failed = 1;
- if (!$failed) {
+ $failed = make_gnutls_cert();
+ if ($failed) {
+ print "\n\033[1;32mCertificate generation failed!\033[0m\n\n";
+ } else {
print "\nCertificate generation complete, copying to config directory... ";
system("mv key.pem $config{CONFIG_DIR}/key.pem");
system("mv cert.pem $config{CONFIG_DIR}/cert.pem");
print "Done.\n\n";
- } else {
- print "\n\033[1;32mCertificate generation failed!\033[0m\n\n";
}
}
else {
time_stamping_key
__END__
close(FH);
-system("certtool --generate-privkey --outfile key.pem") or return 1;
-system("certtool --generate-self-signed --load-privkey key.pem --outfile cert.pem --template certtool.template") or return 1;
+if ( (my $status = system("certtool --generate-privkey --outfile key.pem")) ne 0) { return 1; }
+if ( (my $status = system("certtool --generate-self-signed --load-privkey key.pem --outfile cert.pem --template certtool.template")) ne 0) { return 1; }
unlink("certtool.template");
+return 0;
}
1;