← Back
Editing: disable_zonekey.cgi
#!/usr/bin/perl # Remove the signing key records for a zone use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; ## no critic &error_setup($text{'zonekey_err'}); &ReadParse(); my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'}); my $dom = $zone->{'name'}; &can_edit_zone($zone) || &error($text{'master_ecannot'}); my $desc = &ip6int_to_net(&arpa_to_ip($dom)); &lock_file(&make_chroot(&absolute_path($zone->{'file'}))); my $key = &get_dnssec_key($zone); my @keyfiles; if ($key) { @keyfiles = map { $key->{$_} } ('publicfile', 'privatefile'); } foreach my $k (@keyfiles) { &lock_file($k); } &delete_dnssec_key($zone, $in{'keep'}); foreach my $k (@keyfiles) { &unlock_file($k); } &unlock_file(&make_chroot(&absolute_path($zone->{'file'}))); &webmin_log("zonekeyoff", undef, $dom); &redirect("edit_master.cgi?zone=$in{'zone'}&view=$in{'view'}");
Save File
Cancel