index b1f6758e889b00fca424a3b8a80ff67063da0dcd..70d3bff70d5ff16501bdb9ed69baa455d324ebfa 100644 (file)
my $file1;
my $file2;
open(file1, "> $ldap_config");
-print STDERR Dumper(PerlIO::get_layers(file1, output => 1));
+#print STDERR Dumper(PerlIO::get_layers(file1, output => 1));
print file1 "# This file was automatically generated by gosa-si-client. Do not change.\n";
print file1 "URI";
foreach $element (@ldap_uris) {
}
# Write shell based config
- my $cfg_name= dirname($ldap_config)."/ldap-shell.conf";
+ my $cfg_name= "/etc/ldap/ldap-shell.conf";
# Get first LDAP server
my $ldap_server= $ldap_uris[0];