diff options
author | Markus Sauermann <openssl@sauermann-consulting.de> | 2017-12-03 15:23:21 +0300 |
---|---|---|
committer | Markus Sauermann <openssl@sauermann-consulting.de> | 2017-12-03 16:01:39 +0300 |
commit | 1e2804f25c80136c33f3508adb54b24106b6b6f6 (patch) | |
tree | 185566ac11161f3592f917d0388c0753fe3fea76 /apps/CA.pl.in | |
parent | 822b5e2645a99bea15329bd66c9723c7e7119cdb (diff) |
Adjusted Argument Indices
CLA: trivial
Reviewed-by: Rich Salz <rsalz@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4835)
Diffstat (limited to 'apps/CA.pl.in')
-rw-r--r-- | apps/CA.pl.in | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/apps/CA.pl.in b/apps/CA.pl.in index 6306fa47d5..784c22f6e1 100644 --- a/apps/CA.pl.in +++ b/apps/CA.pl.in @@ -163,7 +163,7 @@ if ($WHAT eq '-newcert' ) { print "CA certificate is in ${CATOP}/$CACERT\n" if $RET == 0; } } elsif ($WHAT eq '-pkcs12' ) { - my $cname = $ARGV[1]; + my $cname = $ARGV[0]; $cname = "My Certificate" unless defined $cname; $RET = run("$PKCS12 -in $NEWCERT -inkey $NEWKEY" . " -certfile ${CATOP}/$CACERT" @@ -196,12 +196,12 @@ if ($WHAT eq '-newcert' ) { $RET = run("$CA -gencrl -out ${CATOP}/crl/$CACRL $EXTRA{ca}"); print "Generated CRL is in ${CATOP}/crl/$CACRL\n" if $RET == 0; } elsif ($WHAT eq '-revoke' ) { - my $cname = $ARGV[1]; + my $cname = $ARGV[0]; if (!defined $cname) { print "Certificate filename is required; reason optional.\n"; exit 1; } - my $reason = $ARGV[2]; + my $reason = $ARGV[1]; $reason = " -crl_reason $reason" if defined $reason && crl_reason_ok($reason); $RET = run("$CA -revoke \"$cname\"" . $reason . $EXTRA{ca}); |