strict/warn

This commit is contained in:
Joe Cooper
2016-05-30 17:18:27 -07:00
parent b29520e350
commit 3ef8d17ed5

View File

@@ -1,5 +1,9 @@
#!/usr/local/bin/perl
# Check the whole BIND config and report problems
use strict;
use warnings;
# Globals
our (%access, %text, %config);
require './bind8-lib.pl';
&ReadParse();
@@ -8,8 +12,8 @@ $access{'defaults'} || &error($text{'ncheck_ecannot'});
&ui_print_header(undef, $text{'ncheck_title'}, "",
undef, undef, undef, undef, &restart_links());
$file = &make_chroot($config{'named_conf'});
@errs = &check_bind_config();
my $file = &make_chroot($config{'named_conf'});
my @errs = &check_bind_config();
if (@errs) {
# Show list of errors
print "<b>",&text('ncheck_errs', "<tt>$file</tt>"),"</b><p>\n";