Current File : //usr/share/webmin/bind8/save_dnssectools.cgi

#!/usr/bin/perl
# save dnssec-tools related options
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%access, %text, %in, %config);
our $module_config_file;

require './bind8-lib.pl';

&ReadParse();
&error_setup($text{'dt_conf_err'});
$access{'defaults'} || &error($text{'dt_conf_ecannot'});

my $conf = get_dnssectools_config();
my %nv;

$in{'dt_email'} =~ /(\b[A-Za-z0-9._%+-]+@[A-Za-z0-9-]+\.[A-Za-z0-9-.]*\b)/ || 
	&error($text{'dt_conf_eemail'});
$nv{'admin-email'} = $1;

$in{'dt_alg'} =~ /(\b[A-Za-z0-9]+\b)/ || 
	&error($text{'dt_conf_ealg'});
$nv{'algorithm'} = $1;

$in{'dt_ksklen'} =~ /(\b[0-9]+\b)/ || 
	&error($text{'dt_conf_eksklen'});
$nv{'ksklength'} = $1;

$in{'dt_zsklen'} =~ /(\b[0-9]+\b)/ || 
	&error($text{'dt_conf_ezsklen'});
$nv{'zsklength'} = $1;

$in{'dt_nsec3'} =~ /(\b(yes|no)\b)/i || 
	&error($text{'dt_conf_ensec3'});
$nv{'usensec3'} = $1;

$in{'dt_endtime'} =~ /(\+?[0-9]+)/ || 
	&error($text{'dt_conf_eendtime'});
$nv{'endtime'} = $1;

$in{'dt_ksklife'} =~ /(\b[0-9]+\b)/  || 
	&error($text{'dt_conf_eksklife'});
$nv{'ksklife'} = $1;

$in{'dt_zsklife'} =~ /(\b[0-9]+\b)/  || 
	&error($text{'dt_conf_ezsklife'});
$nv{'zsklife'} = $1;

&save_dnssectools_directive($conf, \%nv);


&lock_file($module_config_file);
$config{'dnssec_period'} = $in{'period'};
&save_module_config();
&unlock_file($module_config_file);

&webmin_log("dnssectools");
&redirect("");