diff options
| -rw-r--r-- | ldap_wizard/Ldap.pm | 3 |
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); } }; |