diff options
| author | Rob Austein <sra@hactrn.net> | 2006-08-22 22:28:52 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2006-08-22 22:28:52 +0000 |
| commit | d9f750ac29af074e92ebd24ac0d56680381d30b2 (patch) | |
| tree | bd6a7279133c938b32b3ec89d9afde3f62aca729 /scripts | |
| parent | 23df5f10929f55dda14f948f27e726d68c16ecac (diff) | |
# on 2006/08/10 06:54:08, sra did:
*** empty log message ***
svn path=/scripts/uri.pl; revision=198
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 = $_ |