Changeset 13 for LATMOS-Accounts

Timestamp:

03/02/09 22:02:23 (15 years ago)

Author:

nanardon

Message:

• add set/get functions to unix objects

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Unix.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Bases/Unix/Group.pm (added)
• lib/LATMOS/Accounts/Bases/Unix/User.pm (added)
• t/11_bases_unix.t (modified) (3 diffs)

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

@@ -54 +54 @@
 }
 
+sub _canonicals_fields {
+    my ($self, $type) = @_;
+    $type = lc($type);
+    {
+        user => {
+            uidNumber       => 'uid',
+            gidNumber       => 'gid',
+            gecos           => 'gecos',
+            homeDirectory   => 'home',
+            loginShell      => 'shell',
+            userPassword    => ($self->{use_shadow} ? 'spassword' : 'password'),
+        },
+        group => {
+            gidNumber       => 'gid',
+            memberUID       => 'user_list',
+        },
+    }->{$type}
+}
+
+sub list_canonicals_fields {
+    my ($self, $type) = @_;
+    keys %{ $self->_canonicals_fields($type) || {} }
+}
+
+sub get_field_name {
+    my ($self, $type, $cfield) = @_;
+    ($self->_canonicals_fields($type) || {})->{$cfield}
+}
+
+
 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);

LATMOS-Accounts/t/11_bases_unix.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests =>  8;
+use Test::More tests => 14;
 use File::Temp;
 
@@ -7 +7 @@
 use_ok('LATMOS::Accounts::Bases::Objects');
 use_ok('LATMOS::Accounts::Bases::Unix');
+use_ok('LATMOS::Accounts::Bases::Unix::User');
+use_ok('LATMOS::Accounts::Bases::Unix::Group');
 
 my $dir = File::Temp::tempdir;
@@ -23 +25 @@
 isa_ok($unixb, 'LATMOS::Accounts::Bases');
 isa_ok($unixb, 'LATMOS::Accounts::Bases::Unix');
+ok($unixb->load,   "Can load unix base");
 
-ok($unixb->load,   "Can load unix base");
+is( $unixb->get_field_name('user', 'homeDirectory'), "home", "can call get_fields_name");
+
+ok(my $user =  $unixb->get_object('user', 'root'),  "Can get root user");
+ok(my $group = $unixb->get_object('group', 'root'), "Can get root group");
+
+is($user->get_c_field('homeDirectory'), '/root', 'Can get home directory');
+
 ok($unixb->commit, "Can save unix base");