Changeset 50 for LATMOS-Accounts

Timestamp:

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

Author:

nanardon

Message:

• add L::A::create_synchro()

Location:

LATMOS-Accounts

Files:

• bin/la-sync (modified) (1 diff)
• lib/LATMOS/Accounts.pm (modified) (2 diffs)

LATMOS-Accounts/bin/la-sync

@@ -46 +46 @@
 my $LA = LATMOS::Accounts->new($config);
 
-# TODO LATMOS::Accounts::Synchro creation can be done by LATMOS::Account
-my $labfrom = $from ? $LA->base($from) : $LA->default_base;
-
-my @labto = map { $LA->base($_) }
-    @to
-        ? @to
-        : ($LA->config_sync_base($from
-                ? $from
-                : $LA->default_base_name
-        )
-);
-
-my $sync = LATMOS::Accounts::Synchro->new($labfrom, [ @labto ]);
+my $sync = $LA->create_synchro($from, [ @to ]);
 $sync->load_dest and return;
 $sync->process or warn "Sync has failed\n";

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;