{
    # process all information-bay directories

    use esmith::AccountsDB;
    my $adb = esmith::AccountsDB->open_ro();

    my $result = "";

    foreach my $ibay ($adb->ibays)
    {
	my %properties = $ibay->props;
	my $key = $ibay->key;
	$result .= "\n";
	$result .= "[$key]\n";
	$result .= "comment = $properties{'Name'}\n";

	#---------------------------------------
	# If no public access, have the share go directly to the files
	# subdirectory (for easier drive mappings)
	# Otherwise, have the share mapping show all three subfolders
	#---------------------------------------

	if ($properties{'PublicAccess'} eq 'none')
	{
	    $result .= "path = /home/e-smith/files/ibays/$key/files\n";
	}
	else
	{
	    $result .= "path = /home/e-smith/files/ibays/$key\n";
	}

	$result .= "read only = no\n";
	$result .= "writable = yes\n";
	$result .= "printable = no\n";

	# Make the defaults really stupid
	my $fmode = "0000";

	if ($properties{'UserAccess'})
	{
	    #----------------------------------------
	    # e-smith 4.0
	    #----------------------------------------

	    if ($properties{'UserAccess'} eq 'wr-admin-rd-group')
	    {
		$fmode = "0640";
	    }
	    elsif ($properties{'UserAccess'} eq 'wr-group-rd-group')
	    {
		$fmode = "0660";
	    }
	    elsif ($properties{'UserAccess'} eq 'wr-group-rd-everyone')
	    {
		$fmode = "0664";
	    }
	    $result .= "inherit permissions = yes\n";
	}
	else
	{
	    #----------------------------------------
	    # e-smith 3.0
	    #----------------------------------------

	    my $dmode;
	    if ($properties{'WriteAccess'} eq 'admin')
	    {
		$fmode = "0640";
		$dmode = "0750";
	    }
	    else
	    {
		$fmode = "0660";
		$dmode = "0770";
	    }
	    $result .= "directory mode = $dmode\n";
	}
	$result .= "create mode = $fmode\n";
    }

    return $result;
}
