/[libconf]/libconf/perl-Libconf/Glueconf/Samba.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/Glueconf/Samba.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by dams, Tue Aug 5 22:21:07 2003 UTC revision 1.5 by dams, Sun Aug 17 14:20:11 2003 UTC
# Line 31  my @keywords_list = (); Line 31  my @keywords_list = ();
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 {
# Line 571  $data_description = { Line 572  $data_description = {
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                  };                  };

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26