blob: 10c4547e376ebd2aa5d2f9e01a284eb80892d1f5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
:
# $Id$
eval 'exec perl -w -S $0 ${1+"$@"}'
if 0;
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;
}
while (<F>) {
chomp;
s{^.+URI:}{};
$a = $. + 1
if (/X509v3 Authority Information Access:/);
$s = $. + 1
if (/X509v3 Subject Information Access:/);
$c = $. + 1
if (/X509v3 CRL Distribution Points:/);
$aia = $_
if ($a && $. == $a);
$sia = $_
if ($s && $. == $s);
$crl = $_
if ($c && $. == $c);
}
close(F);
print("$aia $crl $sia $file\n");
}
|
