-/*
- * Generated by bindkeys.pl 1.7 2011/01/04 23:47:13 tbox Exp
- * From bind.keys 1.7 2011/01/03 23:45:07 each Exp
- */
#define TRUSTED_KEYS "\
# The bind.keys file is used to override the built-in DNSSEC trust anchors\n\
# which are included as part of BIND 9. As of the current release, the only\n\
use strict;
use warnings;
-my $rev = '$Id: bindkeys.pl,v 1.7 2011/01/04 23:47:13 tbox Exp $';
-$rev =~ s/\$//g;
-$rev =~ s/,v//g;
-$rev =~ s/Id: //;
-
-my $keys = "";
-
my $lines;
while (<>) {
chomp;
if (/\/\* .Id:.* \*\//) {
- $keys = $_;
next;
}
s/\"/\\\"/g;
$lines .= $_ . "\n";
}
-$keys =~ s/\$//g;
-$keys =~ s/\/\* Id: //;
-$keys =~ s/\*\/.*//;
-$keys =~ s/,v//;
-
-print "/*\n * Generated by $rev \n * From $keys\n */\n";
-
my $mkey = '#define MANAGED_KEYS "\\' . "\n" . $lines . "\"\n";
$lines =~ s/managed-keys/trusted-keys/;
-/* $Id: bind.keys,v 1.7 2011/01/03 23:45:07 each Exp $ */
# The bind.keys file is used to override the built-in DNSSEC trust anchors
# which are included as part of BIND 9. As of the current release, the only
# trust anchors it contains are those for the DNS root zone ("."), and for