Changeset 13 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

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

Author:

nanardon

Message:

• add set/get functions to unix objects

Location:

LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Unix.pm (modified) (1 diff)
• Unix/Group.pm (added)
• Unix/User.pm (added)

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);