tests/nist-pkits/build-chain

   1 eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
   2   & eval 'exec perl -wST "$0" $argv:q'
   3     if 0;
   4
   5 use strict;
   6
   7 my $certdir = $ARGV[0];
   8 my $certfile = $ARGV[1];
   9 my $aki;
  10 my $info;
  11 my $list;
  12
  13 if (! -f "$certdir/certinfo.txt") {
  14     system("for i in $certdir/*.crt; do echo -n \$i:; certtool --inder -i < \$i|grep 'Subject Key Id' -A 1|tail -1; done > $certdir/certinfo.txt");
  15 }
  16
  17 do {
  18     print "Parsing $certdir/$certfile...\n";
  19
  20     $info = `certtool --inder -i < $certdir/$certfile`;
  21
  22     print "$info";
  23
  24     if ($info =~ m,Authority Key Identifier.*:\n[\t]*([a-z0-9]+),m) {
  25         $aki = $1;
  26     } else {
  27         die "Could not find AKI";
  28     }
  29
  30     print "Finding AKI $aki...\n";
  31
  32     $list = `cat $certdir/certinfo.txt | grep $aki`;
  33     if ($list =~m,.*/(.*):.*,) {
  34         $list = $1;
  35     } else {
  36         die "Could not find issuer";
  37     }
  38     $certfile = $list;
  39 } while (1);