add hostname and domainname test

1 files changed, 13 insertions, 1 deletions

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 {