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

Timestamp:

05/10/09 02:12:52 (15 years ago)

Author:

nanardon

Message:

• list setup synchronisation

File:

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

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -60 +60 @@
 }
 
+sub default_synchro_name {
+    my ($self) = @_;
+    $self->val('_default_', 'sync');
+}
+
 sub list_bases {
     my ($self) = @_;
@@ -66 +71 @@
         !m/^sync:/
     } $self->Sections
+}
+
+sub list_synchro {
+    my ($self) = @_;
+    grep { $_ } map { /^sync:(.*)$/; $1 } $self->Sections
 }
 
@@ -77 +87 @@
     }
     1;
+}
+
+sub default_synchro {
+    my ($self) = @_;
+    my $syncname = $self->default_synchro_name or return;
+    $self->sync_from_name($syncname);
 }
 
@@ -108 +124 @@
         state_file => $self->val('_default_', 'state_file'),
         %options,
+        name => $name,
     );
 }