ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

report bind.keys and bindkeys.pl versions in output

Browse Source
This commit is contained in:
Mark Andrews
2010-06-20 07:18:30 +00:00
parent 56b9fb463c
commit ea7760e72a
1 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
bin/named/bindkeys.pl
View File

@@ -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/;