diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2004-08-05 02:56:28 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2004-08-05 02:56:28 +0000 |
| commit | 864b927cc508c1dc7d1fdc130c75e07b81a195a0 (patch) | |
| tree | b1672d2832bde3caf0f7721a256a8963fe74bf81 /dns_wizard/Bind.pm | |
| parent | 5d9a2612451a6d4049424419b80c6125a986881d (diff) | |
| download | drakwizard-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.pm | 12 |
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]} } }, |