Commit 1e2804f2 authored by Markus Sauermann's avatar Markus Sauermann
Browse files

Adjusted Argument Indices 


CLA: trivial

Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
Reviewed-by: default avatarRichard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4835)
parent 822b5e26

apps/CA.pl.in

+3 −3
Original line number Diff line number Diff line
@@ -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});