Author: rhafer Date: Wed Aug 13 16:19:58 2008 New Revision: 50034 URL: http://svn.opensuse.org/viewcvs/yast?rev=50034&view=rev Log: More defaults, when adding new databases Modified: trunk/ldap-server/src/LdapServer.pm Modified: trunk/ldap-server/src/LdapServer.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/LdapServer.pm?rev=50034&r1=50033&r2=50034&view=diff ============================================================================== --- trunk/ldap-server/src/LdapServer.pm (original) +++ trunk/ldap-server/src/LdapServer.pm Wed Aug 13 16:19:58 2008 @@ -1339,6 +1339,33 @@ # calculate new database index $index = (scalar(@{$self->ReadDatabaseList()} )) - 1; } + + # Set defaults for caching and checkpoint + if (! defined $db->{'entrycache'} ) + { + $db->{'entrycache'} = YaST::YCP::Integer(10000); + } + else + { + $db->{'entrycache'} = YaST::YCP::Integer($db->{'entrycache'}); + } + if (! defined $db->{'idlcache'} ) + { + $db->{'idlcache'} = YaST::YCP::Integer(30000); + } + else + { + $db->{'idlcache'} = YaST::YCP::Integer($db->{'idlcache'}); + } + if (! defined $db->{'checkpoint'} ) + { + $db->{'checkpoint'} = [ YaST::YCP::Integer(1024), YaST::YCP::Integer(5) ]; + } + else + { + $db->{'checkpoint'} = [ YaST::YCP::Integer($db->{'checkpoint'}->[0]), YaST::YCP::Integer($db->{'checkpoint'}->[1]) ]; + } + $rc = SCR->Write(".ldapserver.database.new.{$index}", $db); if(! $rc ) { my $err = SCR->Error(".ldapserver"); -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org