Changeset 24 for LATMOS-Accounts
- Timestamp:
- 04/22/09 12:20:47 (15 years ago)
- Location:
- LATMOS-Accounts
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts.pm
r23 r24 12 12 my ($class, $config) = @_; 13 13 14 $config ||= '/etc/latmos-account.ini'; 15 14 16 my $self = Config::IniFiles->new( 15 17 -file => $config … … 24 26 $self->{_bases}{$section} and return $self->{_bases}{$section}; 25 27 $self->load_base($section) ? $self->{_bases}{$section} : undef; 28 } 29 30 sub default_base { 31 my ($self) = @_; 32 my $default = $self->dafault_base_name or return; 33 $self->base($default); 26 34 } 27 35 … … 42 50 } 43 51 52 sub default_base_name { 53 my ($self) = @_; 54 $self->val('_default_', 'base', ($self->list_bases)[0]); 55 } 56 44 57 sub list_bases { 45 58 my ($self) = @_; 46 59 grep { 47 $self->val($_, 'type') !~ /^(synchro)$/60 !m/^_.*_$/ 48 61 } $self->Sections 49 62 } … … 61 74 62 75 1; 76 63 77 __END__ 64 78 # Below is stub documentation for your module. You'd better edit it!
Note: See TracChangeset
for help on using the changeset viewer.