diff options
| -rw-r--r-- | common/Wizcommon.pm | 14 |
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 { |