diff options
Diffstat (limited to 'dns_wizard/Bind.pm')
| -rw-r--r-- | dns_wizard/Bind.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/dns_wizard/Bind.pm b/dns_wizard/Bind.pm index 9d5a3ad1..b06be23a 100644 --- a/dns_wizard/Bind.pm +++ b/dns_wizard/Bind.pm @@ -53,7 +53,7 @@ my $TEXTINFO = "dns Wizard"; my $REP_SAVE = "/tmp/bck"; my $ZONE_DIR = $NAMED_DIR . "/zone"; my $DATE = `date +%d-%m-20%y`; -#my $ft = "/var/named/master_srv"; +my $ft = "/etc/sysconfig/wizard_dns"; my $o = { @@ -109,12 +109,13 @@ $o->{pages} = { $o->{var}{wiz_level} ||= 1; }, post => sub { -# -f $ft or return 'error_notmaster'; if ($o->{var}{wiz_level} == 2) { return 'slave' } - elsif ($o->{var}{wiz_level} == 3) { + elsif ($o->{var}{wiz_level} == 1) { + return 'ipforward' } + elsif ($o->{var}{wiz_level} == 3 && -f $ft or return 'error_notmaster') { return 'addhost' } - elsif ($o->{var}{wiz_level} == 4) { + elsif ($o->{var}{wiz_level} == 4 && -f $ft or return 'error_notmaster') { return 'removehost' } }, data => [ @@ -689,7 +690,7 @@ sub do_it_master { return if $::testing; my $in = 'interactive'->vnew('su', 'dns'); my $w = $in->wait_message(N("Master DNS server"), N("Configuring your system as Master DNS server ...")); -# system("touch $ft"); + system("touch $ft"); do_it(); crea_iprev($IPSERVER, $DOMAINNAME); crea_ipnorm($IPSERVER, $DOMAINNAME); @@ -703,6 +704,7 @@ sub do_it_slave { return if $::testing; my $in = 'interactive'->vnew('su', 'dns'); my $w = $in->wait_message(N("Slave DNS server"), N("Configuring your system as Slave DNS server ...")); + if (-f $ft) { unlink $ft } do_it(); rm_rf(glob("$NAMED_DIR/bak*")); crea_named_slave($IPSERVER, $DOMAINNAME, $o->{var}{IPMASTER}); |