From a687104bd0eb22ffebd93eba661d535c623a1751 Mon Sep 17 00:00:00 2001
From: Vicent Guardiola <vguardiola@mandriva.com>
Date: Tue, 21 Sep 2004 08:39:00 +0000
Subject: Check hostname and domainname Add service ldap stop when delete conf

---
 ldap_wizard/Ldap.pm | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

(limited to 'ldap_wizard')

diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index c1f2fb3f..a641c965 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# version 1.34
+# version 1.35
 # GPL like
 # vguardiola@mandrakesoft.com
 
@@ -24,6 +24,10 @@ use Net::LDAP::Util qw(ldap_error_text);
 #  die "You are not root Exiting\n";
 #}
 
+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 $o = {
          name => N("Ldap wizard"),
          var => {
@@ -51,7 +55,16 @@ my $o = {
                  prenom => '',
                 },
 		needed_rpm => [ 'openldap-servers','openldap-clients','nss_ldap' ],
-	defaultimage => "$ENV{__WIZ_HOME__}ldap_wizard/images/ldap.png",
+		defaultimage => "$ENV{__WIZ_HOME__}ldap_wizard/images/ldap.png",
+		init => sub {
+        	   if ($wiz_host_name =~ /localhost/) {
+             		return 0, N("You need to readjust your hostname.")
+           		}
+                   if (member($wiz_domain_name, qw(localdomain (none)))) {
+	          return 0, N("You need to readjust your domainname. For a LDAP 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.")
+	           }
+        	 1
+         },
         };
 
 
@@ -374,9 +387,9 @@ description: OU Hosts
 objectClass: top
 objectClass: organizationalUnit
 
-dn: ou=Users,$o->{var}{suffix}
-ou: Users
-description: OU Users
+dn: ou=People,$o->{var}{suffix}
+ou: People
+description: OU People
 objectClass: top
 objectClass: organizationalUnit
 
@@ -424,6 +437,7 @@ sub do_it_user_add {
 }
 				     
 sub sav_conf {
+  services::stop('ldap');
   my $cmd = "slapcat -l /root/ldap-sav.ldiff";
   system($cmd) == 0 or !$::testing and err_dialog(N("Error!"), N("%s Failed", $cmd));
   system("cp /etc/openldap/slapd.conf /root/slapd.save");
-- 
cgit v1.2.1