bind8/conf_ncheck.cgi

   1 #!/usr/local/bin/perl
   2 # Check the whole BIND config and report problems
   3
   4 require './bind8-lib.pl';
   5 &ReadParse();
   6 $access{'defaults'} || &error($text{'ncheck_ecannot'});
   7
   8 &ui_print_header(undef, $text{'ncheck_title'}, "",
   9                  undef, undef, undef, undef, &restart_links());
  10
  11 $file = &make_chroot($config{'named_conf'});
  12 @errs = &check_bind_config();
  13 if (@errs) {
  14         # Show list of errors
  15         print "<b>",&text('ncheck_errs', "<tt>$file</tt>"),"</b><p>\n";
  16         print "<ul>\n";
  17         foreach my $e (@errs) {
  18                 print "<li>".&html_escape($e)."\n";
  19                 }
  20         print "</ul>\n";
  21         }
  22 else {
  23         # All OK!
  24         print "<b>",&text('ncheck_allok', "<tt>$file</tt>"),"</b><p>\n";
  25         }
  26
  27 &ui_print_footer("", $text{'index_return'});
  28