summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--common/Wizcommon.pm14
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 {