bind8/restart.cgi

   1 #!/usr/local/bin/perl
   2 # restart.cgi
   3 # Restart the running named
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 $access{'ro'} && &error($text{'restart_ecannot'});
   8 $access{'apply'} == 1 || $access{'apply'} == 3 ||
   9         &error($text{'restart_ecannot'});
  10 &error_setup($text{'restart_err'});
  11 $err = &restart_bind();
  12 &error($err) if ($err);
  13
  14 if ($access{'remote'}) {
  15         # Restart all slaves too
  16         &error_setup();
  17         @slaveerrs = &restart_on_slaves();
  18         if (@slaveerrs) {
  19                 &error(&text('restart_errslave',
  20                      "<p>".join("<br>", map { "$_->[0]->{'host'} : $_->[1]" }
  21                                             @slaveerrs)));
  22                 }
  23         }
  24
  25 &webmin_log("apply");
  26 &redirect($in{'return'} ? $ENV{'HTTP_REFERER'} : "");
  27