michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-01 02:54:26 -07:00
parent 3887899f3e
commit 8412a08be0
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
bind8/enable_zonekey.cgi
View File

@@ -1,17 +1,20 @@
#!/usr/local/bin/perl
# Create a signing key for a zone, add it, and sign the zone
use strict;
use warnings;
our (%access, %text, %in);
require './bind8-lib.pl';
&error_setup($text{'zonekey_err'});
&ReadParse();
$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
$dom = $zone->{'name'};
my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
my $dom = $zone->{'name'};
&can_edit_zone($zone) ||
&error($text{'master_ecannot'});
$desc = &ip6int_to_net(&arpa_to_ip($dom));
my $desc = &ip6int_to_net(&arpa_to_ip($dom));
# Validate inputs and compute size
($ok, $size) = &compute_dnssec_key_size($in{'alg'}, $in{'size_def'},
my ($ok, $size) = &compute_dnssec_key_size($in{'alg'}, $in{'size_def'},
$in{'size'});
&error($size) if (!$ok);
@@ -21,7 +24,7 @@ $desc = &ip6int_to_net(&arpa_to_ip($dom));
# Create the key
&lock_file(&make_chroot(&absolute_path($zone->{'file'})));
print &text('zonekey_creating', $dom),"<br>\n";
$err = &create_dnssec_key($zone, $in{'alg'}, $size, $in{'single'});
my $err = &create_dnssec_key($zone, $in{'alg'}, $size, $in{'single'});
if ($err) {
print &text('zonekey_ecreate', $err),"<p>\n";
}