Author: rhafer
Date: Wed Oct 1 14:06:31 2008
New Revision: 51737
URL: http://svn.opensuse.org/viewcvs/yast?rev=51737&view=rev
Log:
revive commandline support (bnc#429486)
Modified:
trunk/ldap-server/src/LdapServer.pm
trunk/ldap-server/src/ldap-server.ycp
Modified: trunk/ldap-server/src/LdapServer.pm
URL: http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/LdapServer.pm?rev=51737&r1=51736&r2=51737&view=diff
==============================================================================
--- trunk/ldap-server/src/LdapServer.pm (original)
+++ trunk/ldap-server/src/LdapServer.pm Wed Oct 1 14:06:31 2008
@@ -656,6 +656,11 @@
Progress->Finish();
return 1;
}
+ if ( ! $wasEnabled && $serviceEnabled )
+ {
+ Service->Enable("ldap");
+ Service->Start("ldap");
+ }
my $progressItems = [ _("Writing Sysconfig files"),
_("Applying changes to Configuration Database"),
_("Applying changes to /etc/openldap/ldap.conf"),
@@ -1419,6 +1424,13 @@
return 1;
}
+##
+ # Read the list of configured Databases.
+ #
+ # @return A list of hashes. Each hash represents a database and has the keys
+ # 'type' (e.g. "hdb" or "bdb"), 'suffix' (the base DN of the database) and
+ # 'index' (the index number used by back-config to order databases correctly)
+ #
BEGIN { $TYPEINFO {ReadDatabaseList} = ["function", [ "list", [ "map" , "string", "string"] ] ]; }
sub ReadDatabaseList
{
Modified: trunk/ldap-server/src/ldap-server.ycp
URL: http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/ldap-server.ycp?rev=51737&r1=51736&r2=51737&view=diff
==============================================================================
--- trunk/ldap-server/src/ldap-server.ycp (original)
+++ trunk/ldap-server/src/ldap-server.ycp Wed Oct 1 14:06:31 2008
@@ -34,22 +34,23 @@
["enable", "disable" ] );
if( command == nil ) return false;
-// LdapServer::WriteServiceEnabled( command == "enable" );
+ LdapServer::WriteServiceEnabled( command == "enable" );
return true;
}
define boolean getDatabaseListHandler (map options) {
-// map edb = LdapServer::ReadDatabase();
-//
-// string s = "";
-// foreach( string suffix, any value, edb,
-// {
-// s = s + suffix + "<br>";
-// });
-//
-// CommandLine::Print (RichText::Rich2Plain("<br>"+s));
+ list