Changeset 24

Timestamp:

04/22/09 12:20:47 (15 years ago)

Author:

nanardon

Message:

• add config example

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts.pm (modified) (4 diffs)
• sample (added)
• sample/latmos-account.ini (added)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -12 +12 @@
     my ($class, $config) = @_;
 
+    $config ||= '/etc/latmos-account.ini';
+
     my $self = Config::IniFiles->new(
         -file => $config
@@ -24 +26 @@
     $self->{_bases}{$section} and return $self->{_bases}{$section};
     $self->load_base($section) ? $self->{_bases}{$section} : undef;
+}
+
+sub default_base {
+    my ($self) = @_;
+    my $default = $self->dafault_base_name or return;
+    $self->base($default);
 }
 
@@ -42 +50 @@
 }
 
+sub default_base_name {
+    my ($self) = @_;
+    $self->val('_default_', 'base', ($self->list_bases)[0]);
+}
+
 sub list_bases {
     my ($self) = @_;
     grep {
-        $self->val($_, 'type') !~ /^(synchro)$/
+        !m/^_.*_$/
     } $self->Sections
 }
@@ -61 +74 @@
 
 1;
+
 __END__
 # Below is stub documentation for your module. You'd better edit it!