31 |
my ($data_description, $data_mapping); |
my ($data_description, $data_mapping); |
32 |
|
|
33 |
sub new { |
sub new { |
34 |
my ($pkg, $filename) = @_; |
my ($class, $filename) = @_; |
35 |
my $libconf = $pkg->Libconf::new($filename, 'samba', ''); |
# my $libconf = Libconf::new('Libconf', $filename, 'samba', ''); |
36 |
|
my $libconf = Libconf::new('Libconf', $filename, 'samba', ''); |
37 |
$libconf->setUniq(); |
$libconf->setUniq(); |
38 |
tie my %wrapper, 'Libconf::Glueconf::Samba::Wrapper', $libconf, $data_description, $data_mapping ; |
tie my %wrapper, 'Libconf::Glueconf::Samba::Wrapper', $libconf, $data_description, $data_mapping ; |
39 |
\%wrapper; |
bless \%wrapper, $class; |
40 |
} |
} |
41 |
|
|
42 |
sub readConf { |
sub readConf { |
572 |
$data_mapping = { |
$data_mapping = { |
573 |
BOOLEAN => sub { |
BOOLEAN => sub { |
574 |
my ($value) = @_; |
my ($value) = @_; |
575 |
|
print " -map -- - $value \n"; |
576 |
$value eq 'true' and return 1; |
$value eq 'true' and return 1; |
577 |
$value eq 'false' and return 0; |
$value eq 'false' and return 0; |
578 |
|
$value eq 'yes' and return 1; |
579 |
|
$value eq 'no' and return 0; |
580 |
$value ? 'true' : 'false'; |
$value ? 'true' : 'false'; |
581 |
}, |
}, |
582 |
}; |
}; |