mirror of
https://github.com/webmin/webmin.git
synced 2026-05-04 22:30:33 +01:00
strict/warn
This commit is contained in:
@@ -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";
|
||||
|
||||
Reference in New Issue
Block a user