diff --git a/bin/named/bindkeys.pl b/bin/named/bindkeys.pl index 3ab3ec9818..bd5b5c99b5 100755 --- a/bin/named/bindkeys.pl +++ b/bin/named/bindkeys.pl @@ -14,19 +14,37 @@ # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR # PERFORMANCE OF THIS SOFTWARE. -# $Id: bindkeys.pl,v 1.3 2009/09/01 07:14:25 each Exp $ +# $Id: bindkeys.pl,v 1.4 2010/06/20 07:18:30 marka Exp $ use strict; use warnings; +my $rev = '$Id: bindkeys.pl,v 1.4 2010/06/20 07:18:30 marka Exp $'; +$rev =~ s/\$//g; +$rev =~ s/,v//g; +$rev =~ s/Id: //; + +my $keys = ""; + my $lines; while (<>) { chomp; + if (/\/\* .Id:.* \*\//) { + $keys = $_; + next; + } s/\"/\\\"/g; s/$/\\n\\/; $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/;