Столкнулся с проблемой следующего характера — при настройке стандартного резервного копирования в облаке Битрикс и установке -> удалять в случае если кол-во копий больше N, если копия не ушла в облако по каким то причинам, она остается на сервере, что в свою очередь захломляет пространство. Чтобы обойти этот момент — написал простой агент, который можно вешать раз в день, он будет в свою очередь удалять лишние копии, выбирает конечно же самые старые.

function removeBackup()
{
    define('DOCUMENT_ROOT', rtrim(str_replace('\\','/',$_SERVER['DOCUMENT_ROOT']),'/'));
    define("BX_ROOT", "/bitrix");
    $arFiles = array();
    $arTmpFiles = array();
    if (is_dir($p = DOCUMENT_ROOT.BX_ROOT.'/backup'))
    {
        if ($dir = opendir($p))
        {
            while(($item = readdir($dir)) !== false)
            {
                $f = $p.'/'.$item;
                if (!is_file($f))
                    continue;
                $arTmpFiles[] = array(
                    'NAME' => $item,
                    'SIZE' => filesize($f),
                    'DATE' => filemtime($f),
                    'BUCKET_ID' => 0,
                    'PLACE' => GetMessage("MAIN_DUMP_LOCAL")
                );
            }
            closedir($dir);
        }
    }
    $arParts = array();
    $arSize = array();
    $arDates = array();$arDates['test'] = 'test';
    $i=0;
    foreach($arTmpFiles as $k=>$ar)
    {
        if (preg_match('#^(.*\.(enc|tar|gz|sql))(\.[0-9]+)?$#',$ar['NAME'],$regs))
        {
            $i++;
            $BUCKET_ID = intval($ar['BUCKET_ID']);
            $arParts[$BUCKET_ID.$regs[1]]++;
            $arSize[$BUCKET_ID.$regs[1]] += $ar['SIZE'];
            if (!$regs[3])
            {
                if ($by == 'size')
                    $key = $arSize[$BUCKET_ID.$regs[1]];
                elseif ($by == 'timestamp')
                    $key = $ar['DATE'];
                elseif ($by == 'location')
                    $key = $ar['PLACE'];
                else // name
                    $key = $regs[1];
                $key .= '_'.$i;
                $arFiles[$key] = $ar;
                $arDates[$key] = $ar['DATE'];
            }
        }
    }

    $state = 2; // количество копий которое должно остаться
    asort($arDates); // Отсортировали по дате в порядке возрастанаия вверху самые старые

    if (count($arFiles) > $state)
    {
        foreach ($arDates as $dumpKey => $date)
        {
            $founded = $arFiles[$dumpKey];
            if (!empty($founded['NAME']))
            {
                foreach ($arParts as $key => $val)
                {
                    if (strstr($key, $founded['NAME']) !== false)
                    {
                        $partsCount = $val;
                        break;
                    }
                }
                $backPath = DOCUMENT_ROOT.BX_ROOT.'/backup/';
                for ($i = 1; $i < $partsCount; $i++)
                {
                    $filePath = $backPath.$founded['NAME'].'.'.$i;
                    if (file_exists($filePath))
                    {
                        unlink($filePath);
                    }
                }
                unlink($backPath.$founded['NAME']);
            }
        }
    }

    return 'removeBackup();';
}

 

Возникла задача сохранения файла из внешнего источника в задаче КП Битрикса, но оказалось все не совсем просто, в связи с тем что использует он модуль disk, а не только стандартный класс CFile, чтобы решить данную проблему пришлось покопать исходники.

$fileInfo = \CFile::GetFileArray(1);
$folder = \Bitrix\Disk\Folder::getById(1);
$data = array(
    'NAME' => $fileID.'_'.$fileInfo['ORIGINAL_NAME'],
    'STORAGE_ID' => 1,
    'FILE_ID' => $fileInfo['ID'],
    'CREATED_BY' => 1,
    'SIZE' => $fileInfo['FILE_SIZE'],
    'PARENT' => $folder,
    'PARENT_ID' => 1
);
$error = new \Bitrix\Disk\Internals\Error\ErrorCollection;
$res = \Bitrix\Disk\File::add($data, $error);
$fileDiskID = $res->getId();

 

Список всех папок на диске для сохранения можно получить так же —

\Bitrix\Disk\Internals\FolderTable::getList();

здесь есть для PARENT_ID и STORAGE_ID

Добавляем файл к задаче

if ($fileID)
{
    $newFiles[] = \Bitrix\Disk\Uf\FileUserType::NEW_FILE_PREFIX.$fileID;
}

if (count($newFiles))
{
    $USER_FIELD_MANAGER->Update("TASKS_TASK", $taskID, array(
        'UF_TASK_WEBDAV_FILES' => $newFiles,
    ));
}