Changeset 137

Timestamp:

05/19/09 01:05:41 (15 years ago)

Author:

nanardon

Message:

• manage default value

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Bases.pm (modified) (3 diffs)
• lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)
• sample/latmos-account.ini (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -49 +49 @@
     my ($self, $section) = @_;
     my $type = $self->val($section, 'type') or return;
-    my %params = map { $_ => ($self->val($section, $_)) } $self->Parameters($section);
+    my %params = (
+        map { $_ => ($self->val($section, $_)) } $self->Parameters($section),
+        defattr => { map { $_ => ($self->val('_defattr_', $_)) } $self->Parameters('_defattr_') },
+    );
     my $base = LATMOS::Accounts::Bases->new($type, %params, label => $section);
     $base->load or return;

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

@@ -42 +42 @@
     $base->{_type} = lc($pclass);
     $base->{_label} = $options{label};
+    $base->{defattr} = $options{defattr};
     $base
 }
@@ -177 +178 @@
     my ($self, $otype, $id, %cdata) = @_;
 
+    # populating default value
+    foreach my $def (%{ $self->{defattr} || {}}) {
+        if ($def =~ /^$otype\.(.*)$/) {
+            $cdata{$1} = $self->{defattr}{$def} if(!$cdata{$1});
+        }
+    }
+    if ($otype eq 'user') {
+        $cdata{uidNumber} ||= $self->find_next_numeric_id('user', 'uidNumber',
+            $self->{defattr}{'user.min_uid'}, $self->{defattr}{'user.max_uid'});
+    } elsif ($otype eq 'group') {
+        $cdata{gidNumber} ||= $self->find_next_numeric_id('group', 'gidNumber',
+            $self->{defattr}{'group.min_gid'}, $self->{defattr}{'group.max_gid'});
+    }
     my %data;
     foreach my $cfield (keys %cdata) {
@@ -320 +334 @@
 }
 
+sub find_next_numeric_id {
+    my ($self, $otype, $field, $min, $max) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    $pclass->find_next_numeric_id($self, $field, $min, $max);
+}
+
 1;
 

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

@@ -265 +265 @@
 }
 
+sub find_next_numeric_id {
+    my ($class, $base, $field, $min, $max) = @_;
+    $base->get_field_name($class->type, $field) or return;
+    $min ||= 
+        $field eq 'uidNumber' ? 500 :
+        $field eq 'gidNumber' ? 500 :
+        1;
+    $max ||= 65635;
+    my %existsid;
+    foreach ($base->list_objects($class->type)) {
+        my $obj = $base->get_object($class->type, $_) or next;
+        my $id = $obj->get_c_field($field) or next;
+        $existsid{$id} = 1;
+    }
+    for(my $i = $min; $i <= $max; $i++) {
+        $existsid{$i} or return $i;
+    }
+    return;
+}
+
 1;
 

LATMOS-Accounts/sample/latmos-account.ini

@@ -5 +5 @@
 # The master base, if unset the first one
 base = latmosc
+# Default synchro to apply
+sync = name
+
+[_defattr_]
+# default attribute/value to set
+# OBJECT.ATTR = value
+# user.min_uid is min uid for automatic assigment
+# user.max_uid is max uid for automatic assigment
+# group.min_gid is min gid for automatic assigment
+# group.max_gid is max gid for automatic assigment
 
 # An accounts base:
@@ -17 +27 @@
 [unix]
 type=unix
+
+# A synchronisation definition
+[sync:name]
+# source
+from = base1
+# destination, can be multiple
+to = unix
+#to = others