Mailinglist Archive: yast-commit (953 mails)

< Previous Next >
[yast-commit] r49796 - /trunk/ldap-server/src/YaPI/LdapServer.pm
  • From: rhafer@xxxxxxxxxxxxxxxx
  • Date: Wed, 06 Aug 2008 16:25:55 -0000
  • Message-id: <20080806162555.588EA2A016@xxxxxxxxxxxxxxxx>
Author: rhafer
Date: Wed Aug 6 18:25:55 2008
New Revision: 49796

URL: http://svn.opensuse.org/viewcvs/yast?rev=49796&view=rev
Log:
Init() function for YaPI, needs to be called before any other YaPI Call

Modified:
trunk/ldap-server/src/YaPI/LdapServer.pm

Modified: trunk/ldap-server/src/YaPI/LdapServer.pm
URL:
http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/YaPI/LdapServer.pm?rev=49796&r1=49795&r2=49796&view=diff
==============================================================================
--- trunk/ldap-server/src/YaPI/LdapServer.pm (original)
+++ trunk/ldap-server/src/YaPI/LdapServer.pm Wed Aug 6 18:25:55 2008
@@ -10,6 +10,11 @@

use YaPI::LdapServer

+$bool = Init()
+
+ Initializes the API, needs to be called first, before any
+ other API call.
+
\@dbList = ReadDatabaseList()

Returns a list of configured databases.
@@ -146,6 +151,28 @@
our %TYPEINFO;

=item *
+C<\$bool = Init()>
+
+Initializes the API, needs to be called first, before any
+other API call.
+
+=cut
+
+BEGIN { $TYPEINFO{Init} = ["function", "boolean"]; }
+sub Init()
+{
+ my $self = shift;
+ my $rc = SCR->Execute('.ldapserver.init' );
+ if ( ! $rc )
+ {
+ my $err = SCR->Error(".ldapserver");
+ $err->{'code'} = "INIT_FAILED";
+ return $self->SetError(%{$err});
+ }
+ return 1;
+}
+
+=item *
C<\@dbList = ReadDatabaseList()>

Returns a List of databases. Each element of the list is a hash reference

--
To unsubscribe, e-mail: yast-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx

< Previous Next >
This Thread
  • No further messages