Someone

sub set
{
  my ($shares, $workgroup, $desc, $wins, $winsserver, $system_shares) = @_;
  my ($smb_conf_file);
  my (@sections, $export);
  my (@combined_shares);

  $smb_conf_file = &get_distro_smb_file;

  push (@combined_shares, $shares);
  push (@combined_shares, $system_shares);

  &set_shares ($smb_conf_file, @combined_shares);
  #&set_shares ($smb_conf_file, $shares);
  #&set_system_shares ($smb_conf_file, $system_shares);

  &Utils::Replace::set_ini ($smb_conf_file, "global", "workgroup", $workgroup);
  &Utils::Replace::set_ini ($smb_conf_file, "global", "server string", $desc);
  &Utils::Replace::set_ini_bool ($smb_conf_file, "global", "wins support", $wins);
  &Utils::Replace::set_ini ($smb_conf_file, "global", "wins server", ($wins) ? "" : $winsserver);
}