Changeset 41

Timestamp:

04/25/09 04:47:06 (15 years ago)

Author:

nanardon

Message:

• start synchronisation work

Location:

LATMOS-Accounts

Files:

• bin/la-sync (added)
• lib/LATMOS/Accounts.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Bases.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Synchro.pm (added)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -75 +75 @@
 }
 
+sub config_sync_base {
+    my ($self, $from) = @_;
+    return split(/ /, $self->val($from, 'push', ''));
+} 
+
 1;
 
@@ -116 +121 @@
 =head1 AUTHOR
 
-Thauvin Olivier, E<lt>olivier.thauvin.ipsl.fr@localdomainE<gt>
+Thauvin Olivier, E<lt>olivier.thauvin@latmosipsl.frE<gt>
 
 =head1 COPYRIGHT AND LICENSE

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

@@ -39 +39 @@
     eval "require LATMOS::Accounts::Bases::$pclass;";
     if ($@) { return } # error message ?
-    return "LATMOS::Accounts::Bases::$pclass"->new(%options);
+    my $base = "LATMOS::Accounts::Bases::$pclass"->new(%options);
+    $base->{_type} = lc($pclass);
+    $base
+}
+
+sub type {
+    $_[0]->{_type};
 }
 
@@ -76 +82 @@
     my $pclass = $self->_load_obj_class($otype) or return;
     $pclass->_get_field_name($c_fields);
+}
+
+=head2 list_supported_objects(@otype)
+
+Return a list of supported object
+
+@type is an additionnal list of objects to check
+
+=cut
+
+sub list_supported_objects {
+    my ($self, @otype) = @_;
+    return grep { $self->is_supported_object($_) }
+        (qw(user group), @otype);
+}
+
+=head2 is_supported_object($otype)
+
+Return true is object type $otype is supported
+
+=cut
+
+sub is_supported_object {
+    my ($self, $otype) = @_;
+    return $self->_load_obj_class($otype) ? 1 : 0;
 }