summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ldap_wizard/Ldap.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index 385d7fb0..f8152266 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -26,6 +26,7 @@ use Net::LDAP::Util qw(ldap_error_text);
my $wiz = new MDK::Wizard::Wizcommon;
my $wiz_domain_name = $wiz->{net}->network_get("DOMAINNAME");
my $wiz_host_name = $wiz->{net}->network_get("HOSTNAME");
+my $DOMAINNAME = chomp_(`domainname`);
my $o = {
name => N("Ldap wizard"),
@@ -56,7 +57,7 @@ my $o = {
needed_rpm => [ 'openldap-servers', 'openldap-clients', 'nss_ldap' ],
defaultimage => "$ENV{__WIZ_HOME__}ldap_wizard/images/ldap.png",
init => sub {
- test_host_domain($wiz_host_name, $wiz_domain_name);
+ test_host_domain($wiz_host_name, $DOMAINNAME);
}
};