keychains/makeroots

   1 #!/usr/bin/perl
   2 #
   3 #
   4 #
   5 use strict;
   6
   7 my $dbname = "X509Anchors";
   8
   9 my $count = 0;
  10 my $created;
  11 for my $file (@ARGV) {
  12         my @cmd = ("certtool", "i", $file, "k=$dbname", "d");
  13         do { push @cmd, "c"; $created = 1; } unless $created;
  14         print "$file ";
  15         die if system @cmd;
  16         $count++;
  17 }
  18
  19 print "$count certificates placed into $dbname\n";
  20 exit 0;