[apple/security.git] / keychains / makeroots

#!/usr/bin/perl
#
#
#
use strict;

my $dbname = "X509Anchors";

my $count = 0;
my $created;
for my $file (@ARGV) {
	my @cmd = ("certtool", "i", $file, "k=$dbname", "d");
	do { push @cmd, "c"; $created = 1; } unless $created;
	print "$file ";
	die if system @cmd;
	$count++;
}

print "$count certificates placed into $dbname\n";
exit 0;
Commit	Line	Data
29654253 A	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;