Changeset 32 for LATMOS-Accounts/lib/LATMOS

Timestamp:

04/23/09 03:09:45 (15 years ago)

Author:

nanardon

Message:

• add list_objects function, ensure load return 1 on success

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix.pm (modified) (4 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix.pm

@@ -142 +142 @@
     # using shadow ? then reading shadow file
     if ($self->{use_shadow}) {
+
     $self->_load_unix_file(
         $self->{shadow},
@@ -170 +171 @@
 
     } # use shadow ?
+
+    1;
 }
 
@@ -241 +244 @@
 }
 
-sub create_object {
-    my ($self, $otype, $id, %data) = @_;
+sub list_objects {
+    my ($self, $otype) = @_;
 
     # objects are store into sub ref:
@@ -249 +252 @@
         group => 'groups',
     }->{$otype};
+    return sort keys %{$self->{$internal_obj} || {} }
+}
+
+sub create_object {
+    my ($self, $otype, $id, %data) = @_;
+
+    # objects are store into sub ref:
+    my $internal_obj = {
+        user => 'users',
+        group => 'groups',
+    }->{$otype};
 
     if ($self->{$internal_obj}{$id}) { return };