CExtranetWizardServices::SetFilePermission

static function SetFilePermission($path, $permissions)
{
	$originalPath = $path;

	CMain::InitPathVars($site, $path);
	$documentRoot = CSite::GetSiteDocRoot($site);

	$path = rtrim($path, "/");

	if ($path == '')
		$path = "/";

	if( ($position = mb_strrpos($path, "/")) !== false)
	{
		$pathFile = mb_substr($path, $position + 1);
		$pathDir = mb_substr($path, 0, $position);
	}
	else
		return false;

	if ($pathFile == "" && $pathDir == "")
		$pathFile = "/";

	$PERM = Array();
	if(file_exists($documentRoot.$pathDir."/.access.php"))
		@include($documentRoot.$pathDir."/.access.php");

	if (!isset($PERM[$pathFile]) || !is_array($PERM[$pathFile]))
		$arPermisson = $permissions;
	else
		$arPermisson = $permissions + $PERM[$pathFile];

	return $GLOBALS["APPLICATION"]->SetFileAccessPermission($originalPath, $arPermisson);
}