[name1]
   key1 = value1
   key2 = value2
   ...
[name2]
   key1 = value1
   key2 = value2
   ...

# and so on

##</code><code>##

[name1]
   key1 = value1
   key2 = value2
   ...
[name2]     
[name3]
   key1 = value1
   key2 = value2
   ...

##</code><code>##

sub smbconf_parse {

  my $smbconf = shift;
  my %smbconf;
  my $share = '';

  if (! open(SMB, $smbconf)) {
    warn "Couldn't read smbconf file $smbconf\n";
    warn "$!\n";
    return 0;
  }
  while (<SMB>) {
    s/^\s+//g;
    s/\s+$//g;
    next if (/^$/);
    next if (/^\#/);
    next if (/^\;/);
    if (/^\[(.*)\]/) {
      $share = $1;    ####### 
    } else {
      my ($key, $value) = (/^(.*) ?\= (\S.*)/);
      $key =~ s/\s+$//;
      if ($value =~ /^\"(.*)\"$/) {
	$smbconf{$share}{$key} = $1;
      } elsif ($value =~ /\,/) {
	my @value = split(/\,/, $value);
	$smbconf{$share}{$key} = [ @value ];
      } else {
	$smbconf{$share}{$key} = $value;
      }
    }
  }
  close SMB;
  return \%smbconf;
}

##</code><code>##

$smbconf{$share} = '';   # just to open the entry