diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/uri.pl | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/scripts/uri.pl b/scripts/uri.pl index 10c4547e..d4bd0c3c 100644 --- a/scripts/uri.pl +++ b/scripts/uri.pl @@ -6,22 +6,16 @@ eval 'exec perl -w -S $0 ${1+"$@"}' while (@ARGV) { my $file = shift(@ARGV); my ($aia, $sia, $crl, $a, $s, $c) = qw(- - -); - if ($file =~ /\.cer$/) { - open(F, "-|", qw(openssl x509 -noout -inform DER -text -in), $file) - or die("Couldn't run openssl x509 on $file: $!\n"); - } elsif ($file =~ /\.crl$/) { - open(F, "-|", qw(openssl crl -noout -inform DER -text -in), $file) - or die("Couldn't run openssl x509 on $file: $!\n"); - } else { - next; - } + next unless ($file =~ /\.cer$/); + open(F, "-|", qw(openssl x509 -noout -inform DER -text -in), $file) + or die("Couldn't run openssl x509 on $file: $!\n"); while (<F>) { chomp; s{^.+URI:}{}; $a = $. + 1 - if (/X509v3 Authority Information Access:/); + if (/Authority Information Access:/); $s = $. + 1 - if (/X509v3 Subject Information Access:/); + if (/Subject Information Access:/); $c = $. + 1 if (/X509v3 CRL Distribution Points:/); $aia = $_ |