steffen: server/kolab/kolab kolab_bootstrap,1.38,1.39

cvs at intevation.de cvs at intevation.de
Wed Jun 30 12:42:53 CEST 2004


Author: steffen

Update of /kolabrepository/server/kolab/kolab
In directory doto:/tmp/cvs-serv3294/kolab/kolab

Modified Files:
	kolab_bootstrap 
Log Message:
new fb stuff

Index: kolab_bootstrap
===================================================================
RCS file: /kolabrepository/server/kolab/kolab/kolab_bootstrap,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- kolab_bootstrap	29 Jun 2004 10:19:28 -0000	1.38
+++ kolab_bootstrap	30 Jun 2004 10:42:50 -0000	1.39
@@ -263,9 +263,9 @@
       my $mesg = $ldap->search(base=> "$base_dn", scope=> 'exact', filter=> "(objectclass=*)");
       if ($mesg && $mesg->count != 1) {
 	print "no $base_dn object found, creating one\n";
-	my $hostname = (split(/\./,$fqdn))[0];
-	chomp $hostname;
-	$mesg = $ldap->add( $base_dn, attr=> [dc=> $hostname, 'objectclass'=> ['top', 'domain'] ]);
+	my $dccomp = (split(/\./,$domain))[0];
+	chomp $dccomp;
+	$mesg = $ldap->add( $base_dn, attr=> [dc=> $dccomp, 'objectclass'=> ['top', 'domain'] ]);
       } 
       $mesg && $mesg->code && warn "failed to write basedn entry : ", $mesg->error;
       my $ldapobject = newOrExistingLDAPEntry( $ldap, "k=kolab,$base_dn" );





More information about the commits mailing list