summaryrefslogtreecommitdiffstats
path: root/dns_wizard/Bind.pm
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2004-08-05 02:56:28 +0000
committerAntoine Ginies <aginies@mandriva.com>2004-08-05 02:56:28 +0000
commit864b927cc508c1dc7d1fdc130c75e07b81a195a0 (patch)
treeb1672d2832bde3caf0f7721a256a8963fe74bf81 /dns_wizard/Bind.pm
parent5d9a2612451a6d4049424419b80c6125a986881d (diff)
downloaddrakwizard-864b927cc508c1dc7d1fdc130c75e07b81a195a0.tar
drakwizard-864b927cc508c1dc7d1fdc130c75e07b81a195a0.tar.gz
drakwizard-864b927cc508c1dc7d1fdc130c75e07b81a195a0.tar.bz2
drakwizard-864b927cc508c1dc7d1fdc130c75e07b81a195a0.tar.xz
drakwizard-864b927cc508c1dc7d1fdc130c75e07b81a195a0.zip
fix pb of removing nodes (thx chandra bug report)
Diffstat (limited to 'dns_wizard/Bind.pm')
-rw-r--r--dns_wizard/Bind.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/dns_wizard/Bind.pm b/dns_wizard/Bind.pm
index f876c8e8..b77e9887 100644
--- a/dns_wizard/Bind.pm
+++ b/dns_wizard/Bind.pm
@@ -73,9 +73,9 @@ my $o = {
if ($SHORTHOSTNAME =~ /localhost/) {
return 0, N("You need to readjust your hostname.")
}
- if (($DOMAINNAME eq "" || $DOMAINNAME eq "(none)") or ($HOSTNAME eq "localhost")) {
+ if (member($DOMAINNAME, qw(localdomain (none)))) {
return 0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not equal to localdomain or none. Launch drakconnect to adjust it.")
- }
+ }
1
},
};
@@ -113,10 +113,10 @@ $o->{pages} = {
return 'slave' }
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 && -f $ft or return 'error_notmaster') {
- return 'removehost' }
+ elsif ($o->{var}{wiz_level} == 3) {
+ if (-f $ft) { return 'addhost' } else { return 'error_notmaster' } }
+ elsif ($o->{var}{wiz_level} == 4) {
+ if (-f $ft) { return 'removehost' } else { return 'error_notmaster' } }
},
data => [
{ label => N("What do you want to do:"), val => \$o->{var}{wiz_level}, list => [ keys %level ], format => sub { $level{$_[0]} } },