From fa32a27e4b93b9c0b754a0be8749cfe98713de29 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Fri, 10 Dec 2004 13:46:28 +0000 Subject: add hostname and domainname test --- common/Wizcommon.pm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'common') diff --git a/common/Wizcommon.pm b/common/Wizcommon.pm index 68f3d50e..edbbbf3f 100644 --- a/common/Wizcommon.pm +++ b/common/Wizcommon.pm @@ -27,7 +27,7 @@ use MDK::Common; use MDK::Wizard::IFCFG; our @ISA = qw(Exporter); -our @EXPORT = qw(check_started run_command_and_log); +our @EXPORT = qw(check_started run_command_and_log test_host_domain); my $net; @@ -51,6 +51,18 @@ sub check_started { } } +sub test_host_domain { + my ($SHORTHOSTNAME, $DOMAINNAME) = @_; + if ($SHORTHOSTNAME =~ /localhost/) { + return 0, N("You need to readjust your hostname. 'localhost' is not a correct hostname for a DNS server. Hostname must be a FQDN: Fully Qualified Domain Name") + } + if (member($DOMAINNAME, qw(localdomain (none))) && -z $DOMAINNAME) { + 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.") + } + return 1; +} + + my $timeout; sub gtktext_get_log { -- cgit v1.2.1