# ask user for existing CA certificate
print "CA certificate filename (or enter to create)\n";
$FILE = <STDIN>;
- chop $FILE;
+ chop $FILE if $FILE;
if ($FILE) {
copy_pemfile($FILE,"${CATOP}/private/$CAKEY", "PRIVATE");
copy_pemfile($FILE,"${CATOP}/$CACERT", "CERTIFICATE");
. " -infiles tmp.pem") if $RET == 0;
print "Signed certificate is in $NEWCERT\n" if $RET == 0;
} elsif ($WHAT eq '-verify' ) {
- my @files = @ARGV ? @ARGV : ( $NEWCVERT );
+ my @files = @ARGV ? @ARGV : ( $NEWCERT );
+ my $file;
foreach $file (@files) {
my $status = run("$VERIFY -CAfile ${CATOP}/$CACERT $file");
$RET = $status if $status != 0;