Changeset 16 for LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

03/03/09 19:51:40 (15 years ago)

Author:

nanardon

Message:

• add create object to UNIX base

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (1 diff)
• Bases/Unix.pm (modified) (6 diffs)

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

@@ -91 +91 @@
 }
 
+=head2 create_object($type, $id, %data)
+
+Create and return an object of type $type with unique id
+$id having %data.
+
+This method should be provided by the data base handler.
+
+=cut
+
+sub create_object {
+    my ($self, $otype, $id, %data) = @_;
+    return;
+}
+
+=head2 create_c_object($type, $id, %data)
+
+Create and return an object of type $type with unique id
+$id having %data using canonical fields
+
+=cut
+
+sub create_c_object {
+    my ($self, $otype, $id, %cdata) = @_;
+
+    my %data;
+    foreach my $cfield (keys %cdata) {
+        my $field = $self->base->get_field_name($self->type, $cfield) or next;
+        $data{$field} = $cdata{$cfield};
+    }
+    keys %data or return 1; # TODO: return an error ?
+    $self->create_object($otype, $id, %data);
+}
+
 =head2 load
 

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

@@ -83 +83 @@
 }
 
-
 my @password_fields = qw(account password uid gid gecos home shell);
 my @shadow_fields =   qw(account spassword last_changed before_ch after_ch exp_warn exp_disable disable res);
@@ -196 +195 @@
             $self->{users}{$_}{home},
             $self->{users}{$_}{shell},
-        ]} keys %{$self->{users}}
+        ]} sort { $self->{users}{$a}{uid} <=> $self->{users}{$b}{uid} } keys %{$self->{users}}
     ) or return;
 
@@ -206 +205 @@
             $self->{groups}{$_}{gid},
             join(',', keys %{$self->{groups}{$_}{users} || {}}), 
-        ]} keys %{$self->{groups}}
+        ]} sort {  $self->{groups}{$a}{gid} <=> $self->{groups}{$b}{gid} } keys %{$self->{groups}}
     ) or return;
 
@@ -223 +222 @@
             $self->{users}{$_}{disable},
             $self->{users}{$_}{res},
-        ]} keys %{$self->{users}}
+        ]} sort { $self->{users}{$a}{uid} <=> $self->{users}{$b}{uid} } keys %{$self->{users}}
     ) or return;
 
@@ -234 +233 @@
             $self->{groups}{$_}{unknown},
             join(',', keys %{$self->{groups}{$_}{susers} || {}}), 
-        ]} keys %{$self->{groups}}
+        ]} sort {  $self->{groups}{$a}{gid} <=> $self->{groups}{$b}{gid} } keys %{$self->{groups}}
     ) or return;
 
@@ -240 +239 @@
 
     1
+}
+
+sub create_object {
+    my ($self, $otype, $id, %data) = @_;
+
+    my $internal_obj = {
+        user => 'users',
+        group => 'groups',
+    }->{$otype};
+
+    if ($self->{$internal_obj}{$id}) { return };
+    $self->{$internal_obj}{$id} = { account => $id };
+    my $obj = $self->get_object($otype, $id) or return;
+    $obj->set_fields(%data);
+    $obj
 }