bind8/disable_zonekey.cgi

   1 #!/usr/local/bin/perl
   2 # Remove the signing key records for a zone
   3
   4 require './bind8-lib.pl';
   5 &error_setup($text{'zonekey_err'});
   6 &ReadParse();
   7 $zone = &get_zone_name($in{'index'}, $in{'view'});
   8 $dom = $zone->{'name'};
   9 &can_edit_zone($zone) ||
  10         &error($text{'master_ecannot'});
  11 $desc = &ip6int_to_net(&arpa_to_ip($dom));
  12
  13 &lock_file(&make_chroot(&absolute_path($zone->{'file'})));
  14 $key = &get_dnssec_key($zone);
  15 if ($key) {
  16         @keyfiles = map { $k->{$_} } ('publicfile', 'privatefile');
  17         }
  18 foreach my $k (@keyfiles) {
  19         &lock_file($k);
  20         }
  21 &delete_dnssec_key($zone);
  22 foreach my $k (@keyfiles) {
  23         &unlock_file($k);
  24         }
  25 &unlock_file(&make_chroot(&absolute_path($zone->{'file'})));
  26
  27 &webmin_log("zonekeyoff", undef, $dom);
  28 &redirect("edit_master.cgi?index=$in{'index'}&view=$in{'view'}");
  29