Author: rhafer Date: Fri Aug 22 11:55:40 2008 New Revision: 50321 URL: http://svn.opensuse.org/viewcvs/yast?rev=50321&view=rev Log: Hand over ACLs to LdapServer.pm Modified: trunk/ldap-server/src/LdapServer.pm trunk/ldap-server/src/tree_structure.ycp Modified: trunk/ldap-server/src/LdapServer.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/LdapServer.pm?rev=50321&r1=50320&r2=50321&view=diff ============================================================================== --- trunk/ldap-server/src/LdapServer.pm (original) +++ trunk/ldap-server/src/LdapServer.pm Fri Aug 22 11:55:40 2008 @@ -1167,6 +1167,15 @@ return $rc; } +BEGIN { $TYPEINFO {ChangeDatabaseAcl} = ["function", "boolean" , "integer", ["list", [ "map", "string", "any" ] ] ]; } +sub ChangeDatabaseAcl +{ + my ($self, $dbIndex, $acllist ) = @_; + y2milestone("ChangeDatabaseAcl: ".Data::Dumper->Dump([$acllist]) ); + my $rc = SCR->Write(".ldapserver.database.{".$dbIndex."}.acl", $acllist ); + return $rc; +} + BEGIN { $TYPEINFO {ReadOverlayList} = ["function", [ "list", [ "map" , "string", "string"] ], "integer" ]; } sub ReadOverlayList { Modified: trunk/ldap-server/src/tree_structure.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/tree_structure.ycp?rev=50321&r1=50320&r2=50321&view=diff ============================================================================== --- trunk/ldap-server/src/tree_structure.ycp (original) +++ trunk/ldap-server/src/tree_structure.ycp Fri Aug 22 11:55:40 2008 @@ -771,8 +771,7 @@ string treeItem = current_tree_item; integer index = (integer)widget_map[current_tree_item,"index"]:nil; list<map> changedAcls = LdapDatabase::DbAclWrite( index ); - y2milestone("Changed ACLs: %1", changedAcls ); - return true; + return LdapServer::ChangeDatabaseAcl( index, (list