Changeset 50 for LATMOS-Accounts/lib/LATMOS/Accounts.pm

Timestamp:

04/25/09 23:55:25 (15 years ago)

Author:

nanardon

Message:

• add L::A::create_synchro()

File:

• LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -6 +6 @@
 use base qw(Config::IniFiles);
 use LATMOS::Accounts::Bases;
+use LATMOS::Accounts::Synchro;
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -80 +81 @@
 } 
 
+sub create_synchro {
+    my ($self, $from, $to, %options) = @_;
+
+    my $labfrom = $from ? $self->base($from) : $self->default_base;
+
+    my @labto = map { $self->base($_) }
+        @{ $to || []}
+        ? @{ $to }
+        : ($self->config_sync_base($from
+                ? $from
+                : $self->default_base_name));
+
+    my $sync = LATMOS::Accounts::Synchro->new(
+        $labfrom, [ @labto ],
+        state_file => $self->val('_default_', 'state_file'),
+    );
+}
+
+
 1;