From b5eb1fe51f655fb4e1c869ce9e8ddfb4944475dd Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Fri, 10 Dec 2004 13:49:11 +0000 Subject: use test_host_domain --- dns_wizard/Bind.pm | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'dns_wizard') diff --git a/dns_wizard/Bind.pm b/dns_wizard/Bind.pm index e4c41dc1..4ad6ce2d 100644 --- a/dns_wizard/Bind.pm +++ b/dns_wizard/Bind.pm @@ -55,7 +55,7 @@ my $REP_SAVE = "/tmp/bck"; my $ZONE_DIR = $NAMED_DIR . "/zone"; my $DATE = `date +%d-%m-20%y`; -my $o = { +my $o = { name => 'DNS Configuration Wizard', var => { IPOFFORWARDER => '', @@ -66,17 +66,11 @@ my $o = { CLIENTNAME => '', CLIENTIP => $CLIENTIP, }, - needed_rpm => [ 'bind' ], defaultimage => "/usr/share/wizards//dns_wizard/images/DNS.png", init => sub { - if ($SHORTHOSTNAME =~ /localhost/) { - return 0, N("You need to readjust your hostname.") - } - 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. Hostname must be a FQDN: Fully Qualified Domain Name. Launch drakconnect to adjust it.") - } - 1 + test_host_domain($SHORTHOSTNAME, $DOMAINNAME); }, + needed_rpm => [ 'bind' ], }; my %level = ( -- cgit v1.2.1