bind8/restart_zone.cgi

   1 #!/usr/local/bin/perl
   2 # restart_zone.cgi
   3 # Apply changes to one zone only using the ndc command
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 $access{'ro'} && &error($text{'restart_ecannot'});
   8 $access{'apply'} || &error($text{'restart_ecannot'});
   9 $zone = &get_zone_name($in{'index'}, $in{'view'});
  10 &can_edit_zone($zone) || &error($text{'restart_ecannot'});
  11 $err = &restart_zone($zone->{'name'}, $zone->{'view'});
  12 &error($err) if ($err);
  13 &webmin_log("apply", $zone->{'name'});
  14
  15 $tv = $zone->{'type'};
  16 if ($in{'return'}) {
  17         &redirect($ENV{'HTTP_REFERER'});
  18         }
  19 else {
  20         &redirect(($tv eq "master" ? "edit_master.cgi" :
  21                   $tv eq "forward" ? "edit_forward.cgi" : "edit_slave.cgi").
  22                   "?index=$in{'index'}&view=$in{'view'}");
  23         }
  24