Changeset 2232 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

03/08/19 08:51:26 (5 years ago)

Author:

nanardon

Message:

Add test over queryformat

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Dummy/User.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Dummy/User.pm

@@ -17 +17 @@
         username => {},
         homeDirectory => { iname => 'home' },
+        shell => {},
+        gecos => {},
+        uidNumber => {},
+        gidNumber => {},
     }
 }
@@ -26 +30 @@
 sub new {
     my ($class, $base, $id) = @_;
-    bless { _id => $id }, $class;
+    bless { _id => $id, base => $base }, $class;
+}
+
+sub id {
+    shift->{_id};
 }
 
 sub _create {
-    my ($class, $id);
+    my ($class, $base, $id, %data) = @_;
+
+    my $obj = __PACKAGE__->new($base, $id);
+    $obj->set_field(%data, username => $id);
+
     return 1;
+}
+
+sub get_field {
+    my ($self, $attr) = @_;
+
+    $self->{base}{objects}{user}{$self->id}{$attr}
+}
+
+sub set_field {
+    my ($self, %data) = @_;
+
+    my $attrs = $self->_get_attr_schema;
+
+    foreach (keys %data) {
+        my $attr = $attrs->{$_}{iname} || $_;
+        $self->{base}{objects}{user}{$self->id}{$attr} = $data{$_};
+    }
+
+    return 1,
 }