<?php
define('ADMIN_MODULE_NAME', 'clouds');

/*.require_module 'standard';.*/
/*.require_module 'pcre';.*/
/*.require_module 'bitrix_main_include_prolog_admin_before';.*/
require_once $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/prolog_admin_before.php';
/** @global CUser $USER */
global $USER;
/** @global CMain $APPLICATION */
global $APPLICATION;
/** @global CDatabse $DB */
global $DB;

if (!$USER->CanDoOperation('clouds_config'))
{
	$APPLICATION->AuthForm(GetMessage('ACCESS_DENIED'));
}

/*.require_module 'bitrix_clouds_include';.*/
if (!CModule::IncludeModule('clouds'))
{
	$APPLICATION->AuthForm(GetMessage('ACCESS_DENIED'));
}

IncludeModuleLangFile(__FILE__);

$io = CBXVirtualIo::GetInstance();
$sTableID = 'tbl_clouds_storage_list';
$oSort = new CAdminSorting($sTableID, 'ID', 'ASC');
$lAdmin = new CAdminList($sTableID, $oSort);
$bOnTheMove = isset($_GET['themove']);

$upload_dir = $_SERVER['DOCUMENT_ROOT'] . '/' . COption::GetOptionString('main', 'upload_dir', 'upload');
$bHasLocalStorage = file_exists($upload_dir) && (is_dir($upload_dir) || is_link($upload_dir)) && is_writable($upload_dir);

$arID = $lAdmin->GroupAction();
$action = isset($_REQUEST['action']) && is_string($_REQUEST['action']) ? $_REQUEST['action'] : '';
if (is_array($arID))
{
	foreach ($arID as $ID)
	{
		if ($ID == '' || intval($ID) <= 0)
		{
			continue;
		}

		switch ($action)
		{
		case 'delete':
			$ob = new CCloudStorageBucket(intval($ID));
			if (!$ob->Delete())
			{
				$e = $APPLICATION->GetException();
				$lAdmin->AddUpdateError($e->GetString(), $ID);
			}
			break;
		case 'deactivate':
			$ob = new CCloudStorageBucket(intval($ID));
			if ($ob->ACTIVE === 'Y')
			{
				$ob->Update(['ACTIVE' => 'N']);
			}
			break;
		case 'activate':
			$ob = new CCloudStorageBucket(intval($ID));
			if ($ob->ACTIVE === 'N')
			{
				$ob->Update(['ACTIVE' => 'Y']);
			}
			break;
		case 'download':
			$ob = new CCloudStorageBucket(intval($ID));
			if ($ob->Init() && $ob->ACTIVE === 'Y')
			{
				if (isset($_SESSION['last_file_id']))
				{
					$last_file_id = intval($_SESSION['last_file_id']);
				}
				else
				{
					$last_file_id = 0;
				}

				if (isset($_SESSION['last_file_pos']))
				{
					$last_file_pos = doubleval($_SESSION['last_file_pos']);
				}
				else
				{
					$last_file_pos = 0;
				}

				$rsNextFile = $DB->Query('
					SELECT MIN(b_file.ID) ID, COUNT(1) CNT, SUM(b_file.FILE_SIZE) FILE_SIZE
					FROM b_file
					LEFT JOIN b_file_duplicate on b_file_duplicate.DUPLICATE_ID = b_file.ID
					WHERE b_file.ID > ' . intval($last_file_id) . "
					AND b_file.HANDLER_ID = '" . $DB->ForSQL($ob->ID) . "'
					AND b_file_duplicate.DUPLICATE_ID is null
				");

				$lAdmin->BeginPrologContent();
				if (
					is_array($ar = $rsNextFile->Fetch())
					&& (intval($ar['ID']) > 0)
				)
				{
					$bNextFile = true;
					$bFileMoved = false;
					$maxPartSize = 1024 * 1024; //1M

					$arFile = CFile::GetFileArray($ar['ID']);
					$filePath = preg_replace('#[\\\\/]+#', '/', '/' . $arFile['SUBDIR'] . '/' . $arFile['FILE_NAME']);
					$absPath = preg_replace('#[\\\\/]+#', '/', $_SERVER['DOCUMENT_ROOT'] . '/' . COption::GetOptionString('main', 'upload_dir', 'upload') . $filePath);
					$absPath = $io->GetPhysicalName($absPath);
					$absTempPath = $absPath . '~';

					if (!file_exists($absPath))
					{
						CheckDirPath($absTempPath);

						$fp = fopen($absTempPath, 'ab');
						$request = new \Bitrix\Main\Web\HttpClient([
							'redirect' => true,
						]);
						$request->setOutputStream($fp);
						if (is_resource($fp))
						{
							if ($arFile['FILE_SIZE'] > $maxPartSize)
							{
								$firstByte = $last_file_pos;
								$lastByte = min($arFile['FILE_SIZE'], $last_file_pos + $maxPartSize) - 1;
								$request->setHeader('Range', sprintf('bytes=%u-%u', $firstByte, $lastByte));
							}

							$result = $request->query(\Bitrix\Main\Web\Http\Method::GET, $ob->GetFileSRC($arFile));
							if ($result && ($request->getStatus() === 200 || $request->getStatus() === 206))
							{
								$request->getResult();
								fclose($fp);

								$bFileMoved = true;
								if ($arFile['FILE_SIZE'] > $maxPartSize)
								{
									$last_file_pos += $maxPartSize;
									$_SESSION['last_file_pos'] = $last_file_pos;
									$bNextFile = false;
								}
								else
								{
									$last_file_pos = $arFile['FILE_SIZE'];
								}

								if (
									$request->getHeaders()->has('Content-Range')
									&& preg_match('/(\\d+)-(\\d+)\\/(\\d+)$/', $request->getHeaders()->get('Content-Range'), $match)
								)
								{
									$FILE_SIZE = $match[3];
								}
								elseif (
									$request->getHeaders()->has('Content-Length')
									&& preg_match('/^(\\d+)$/', $request->getHeaders()->get('Content-Length'), $match)
									&& $match[1] > $maxPartSize
								)
								{
									$FILE_SIZE = 0; //Chunk download not supported
								}
								else
								{
									$FILE_SIZE = $arFile['FILE_SIZE'];
								}

								if ($last_file_pos > $FILE_SIZE)
								{
									$last_file_pos = $arFile['FILE_SIZE'];
									$bFileMoved = true;
									$bNextFile = true;
								}
							}
							else
							{
								//An error occured
								@unlink($absTempPath);
								$bFileMoved = false;
							}
						}
					}

					if ($bNextFile)
					{
						$_SESSION['last_file_id'] = $ar['ID'];
						$_SESSION['last_file_pos'] = 0.0;

						if ($bFileMoved)
						{
							rename($absTempPath, $absPath);
							$ob->DeleteFile($filePath);

							$filesToUpdate = [intval($arFile['ID'])];
							//Find duplicates of the file
							$duplicates = \Bitrix\Main\File\Internal\FileDuplicateTable::query()
								->addSelect('DUPLICATE_ID')
								->where('ORIGINAL_ID', $arFile['ID'])
								->fetchAll();
							foreach ($duplicates as $dupFile)
							{
								$filesToUpdate[] = intval($dupFile['DUPLICATE_ID']);
							}
							//Mark them as moved
							$updateResult = $DB->Query('
								UPDATE b_file
								SET HANDLER_ID = null
								WHERE ID in (' . implode(',', $filesToUpdate) . ')
							');
							$updateCount = $updateResult->AffectedRowsCount();
							//Clean cache
							foreach ($filesToUpdate as $updatedFileId)
							{
								CFile::CleanCache($updatedFileId);
							}
							$ob->DecFileCounter((float)$arFile['FILE_SIZE']);
							$ob->Update(['LAST_FILE_ID' => 0]);
						}
					}

					CAdminMessage::ShowMessage([
						'TYPE' => 'PROGRESS',
						'MESSAGE' => GetMessage('CLO_STORAGE_LIST_DOWNLOAD_IN_PROGRESS'),
						'DETAILS' => GetMessage('CLO_STORAGE_LIST_DOWNLOAD_PROGRESS', [
							'#remain#' => $ar['CNT'] - $bNextFile,
							'#bytes#' => CFile::FormatSize($ar['FILE_SIZE'] - $last_file_pos),
						]),
						'HTML' => true,
						'BUTTONS' => [
							[
								'VALUE' => GetMessage('CLO_STORAGE_LIST_STOP'),
								'ONCLICK' => 'window.location = \'/bitrix/admin/clouds_storage_list.php?lang=' . LANGUAGE_ID . '\'',
							],
						],
					]);

					$bOnTheMove = true;
					echo '<script>' . $lAdmin->ActionDoGroup($ID, 'download', 'themove=y') . '</script>';
				}
				else
				{
					unset($_SESSION['last_file_id']);
					unset($_SESSION['last_file_pos']);

					CAdminMessage::ShowMessage([
						'MESSAGE' => GetMessage('CLO_STORAGE_LIST_DOWNLOAD_DONE'),
						'TYPE' => 'OK',
						'HTML' => true,
					]);
					$bOnTheMove = false;
				}
				$lAdmin->EndPrologContent();
			}
			break;
		case 'move':
			$message = /*.(CAdminMessage).*/null;
			$ob = new CCloudStorageBucket(intval($ID));
			if ($ob->ACTIVE === 'Y' && $ob->READ_ONLY === 'N')
			{
				$_done = 0;
				$_size = 0.0;
				$_skip = 0;

				if (intval($ob->LAST_FILE_ID) > 0)
				{
					if (isset($_SESSION['arMoveStat_done']))
					{
						$_done = intval($_SESSION['arMoveStat_done']);
					}
					if (isset($_SESSION['arMoveStat_size']))
					{
						$_size = doubleval($_SESSION['arMoveStat_size']);
					}
					if (isset($_SESSION['arMoveStat_skip']))
					{
						$_skip = intval($_SESSION['arMoveStat_skip']);
					}
				}

				$files_per_step = 50;
				$rsNextFile = $DB->Query($DB->TopSQL('
					SELECT *
					FROM b_file
					WHERE ID > ' . intval($ob->LAST_FILE_ID) . "
					AND (HANDLER_ID IS NULL OR HANDLER_ID <> '" . $DB->ForSQL($ob->ID) . "')
					ORDER BY ID ASC
				", $files_per_step));

				$file_skip_reason = [];
				$counter = 0;
				$bWasMoved = false;
				$moveResult = CCloudStorage::FILE_SKIPPED;
				while (
					$moveResult == CCloudStorage::FILE_PARTLY_UPLOADED
					|| is_array($arFile = $rsNextFile->Fetch())
				)
				{
					//Check if file is a duplicate then skip it
					$original = \Bitrix\Main\File\Internal\FileDuplicateTable::query()
						->addSelect('DUPLICATE_ID')
						->where('DUPLICATE_ID', $arFile['ID'])
						->fetch();
					if ($original)
					{
						$ob->Update(['LAST_FILE_ID' => $arFile['ID']]);
						$counter++;
						continue;
					}

					CCloudStorage::FixFileContentType($arFile);
					$moveResult = CCloudStorage::MoveFile($arFile, $ob);
					$file_skip_reason[$arFile['ID']] = CCloudStorage::$file_skip_reason;
					if ($moveResult == CCloudStorage::FILE_MOVED)
					{
						$filesToUpdate = [intval($arFile['ID'])];
						//Find duplicates of the file
						$duplicates = \Bitrix\Main\File\Internal\FileDuplicateTable::query()
							->addSelect('DUPLICATE_ID')
							->where('ORIGINAL_ID', $arFile['ID'])
							->fetchAll();
						foreach ($duplicates as $dupFile)
						{
							$filesToUpdate[] = intval($dupFile['DUPLICATE_ID']);
						}
						//Mark them as moved
						$updateResult = $DB->Query("
							UPDATE b_file
							SET HANDLER_ID = '" . $DB->ForSQL($ob->ID) . "'
							WHERE ID in (" . implode(',', $filesToUpdate) . ")
							and (HANDLER_ID is null or HANDLER_ID <> '" . $DB->ForSQL($ob->ID) . "')
						");
						$updateCount = $updateResult->AffectedRowsCount();
						//Clean cache
						foreach ($filesToUpdate as $updatedFileId)
						{
							CFile::CleanCache($updatedFileId);
							$cache = new CPHPCache;
							$cache->CleanDir('clouds');
						}
						$_done += $updateCount;
						$_size += doubleval($arFile['FILE_SIZE']) * $updateCount;
						$bWasMoved = true;
						$ob->Update(['LAST_FILE_ID' => $arFile['ID']]);
						$counter++;
					}
					elseif ($moveResult == CCloudStorage::FILE_SKIPPED)
					{
						$e = $APPLICATION->GetException();
						if (is_object($e))
						{
							$message = new CAdminMessage(GetMessage('CLO_STORAGE_LIST_MOVE_FILE_ERROR'), $e);
							break;
						}
						else
						{
							$_skip += 1;
							$ob->Update(['LAST_FILE_ID' => $arFile['ID']]);
							$counter++;
						}
					}
					else//if($moveResult == CCloudStorage::FILE_PARTLY_UPLOADED)
					{
						$bWasMoved = true;
					}

					if ($bWasMoved)
					{
						usleep(300);
						break;
					}
				}

				$lAdmin->BeginPrologContent();
				if (is_object($message))
				{
					echo $message->Show();
				}
				elseif ($counter < $files_per_step && !$bWasMoved)
				{
					CAdminMessage::ShowMessage([
						'MESSAGE' => GetMessage('CLO_STORAGE_LIST_MOVE_DONE'),
						'DETAILS' => GetMessage('CLO_STORAGE_LIST_MOVE_PROGRESS', [
							'#bytes#' => CFile::FormatSize($_size),
							'#total#' => $_done + $_skip,
							'#moved#' => $_done,
							'#skiped#' => $_skip,
						]),
						'HTML' => true,
						'TYPE' => 'OK',
					]);
					$bOnTheMove = false;
					$ob->Update(['LAST_FILE_ID' => false]);
				}
				else
				{
					CAdminMessage::ShowMessage([
						'TYPE' => 'PROGRESS',
						'MESSAGE' => GetMessage('CLO_STORAGE_LIST_MOVE_IN_PROGRESS'),
						'DETAILS' => GetMessage('CLO_STORAGE_LIST_MOVE_PROGRESS', [
							'#bytes#' => CFile::FormatSize($_size + CCloudStorage::$part_count * CCloudStorage::$part_size),
							'#total#' => $_done + $_skip,
							'#moved#' => $_done,
							'#skiped#' => $_skip,
						]),
						'HTML' => true,
						'BUTTONS' => [
							[
								'VALUE' => GetMessage('CLO_STORAGE_LIST_STOP'),
								'ONCLICK' => 'window.location = \'/bitrix/admin/clouds_storage_list.php?lang=' . LANGUAGE_ID . '\'',
							],
						],
					]);
					$bOnTheMove = true;
					echo '<script>' . $lAdmin->ActionDoGroup($ID, 'move', 'themove=y') . '</script>';
				}
				//File skip reasons debug infirmation:
				echo "\n<!--\nFile skip reasons:\n" . print_r($file_skip_reason, true) . "-->\n";
				$lAdmin->EndPrologContent();

				$_SESSION['arMoveStat_done'] = $_done;
				$_SESSION['arMoveStat_size'] = $_size;
				$_SESSION['arMoveStat_skip'] = $_skip;
			}
			break;
		case 'estimate_duplicates':
			$ob = new CCloudStorageBucket(intval($ID), false);
			if ($ob->ACTIVE === 'Y' && $ob->READ_ONLY === 'N' && $ob->Init())
			{
				$pageSize = 1000;
				$hasFinished = null;
				$lastKey = (string)($_REQUEST['lastKey'] ?? '');

				$result = $ob->ListFiles('/', true, $pageSize, $lastKey);
				if (is_array($result))
				{
					\Bitrix\Clouds\FileHashTable::syncList($ob->ID, '/', $result, $lastKey);
					$hasFinished = (count($result['file']) < $pageSize);
					$lastKey = $result['last_key'];
					if ($hasFinished)
					{
						\Bitrix\Clouds\FileHashTable::syncEnd($ob->ID, '/', $lastKey);
					}

					$lAdmin->BeginPrologContent();
					$message = new CAdminMessage([
						'TYPE' => 'OK',
						'MESSAGE' => GetMessage('CLO_STORAGE_LIST_LISTING'),
						'DETAILS' => $lastKey,
					]);
					echo $message->Show();
					if (!$hasFinished)
					{
						echo '<script>ShowWaitWindow();' . $lAdmin->ActionDoGroup($ob->ID, 'estimate_duplicates', 'lastKey=' . urlencode($lastKey)) . '</script>';
					}
					else
					{
						echo '<script>ShowWaitWindow();' . $lAdmin->ActionDoGroup($ob->ID, 'fill_file_hash', 'lastKey=0') . '</script>';
					}
					$lAdmin->EndPrologContent();
				}
				else
				{
					$e = $APPLICATION->GetException();
					if (is_object($e))
					{
						$lAdmin->AddUpdateError($e->GetString(), $ID);
					}
					else
					{
						$lAdmin->AddUpdateError(GetMessage('CLO_STORAGE_LIST_UNKNOWN_ERROR', [
							'#CODE#' => 'D03',
						]), $ID);
					}
				}
			}
			break;
		case 'fill_file_hash':
			$ob = new CCloudStorageBucket(intval($ID), false);
			if ($ob->ACTIVE === 'Y' && $ob->READ_ONLY === 'N' && $ob->Init())
			{
				$pageSize = 10000;
				$lastKey = (int)$_REQUEST['lastKey'];

				$fileIds = \Bitrix\Clouds\FileHashTable::copyToFileHash($lastKey, $pageSize);
				$hasFinished = $fileIds['FILE_ID_CNT'] < $pageSize;
				if (!$hasFinished)
				{
					$lastKey = $fileIds['FILE_ID_MAX'];
				}

				$lAdmin->BeginPrologContent();
				if (!$hasFinished)
				{
					$message = new CAdminMessage([
						'TYPE' => 'OK',
						'MESSAGE' => GetMessage('CLO_STORAGE_LIST_COPY'),
						'DETAILS' => $lastKey,
					]);
					echo $message->Show();
					echo '<script>ShowWaitWindow();' . $lAdmin->ActionDoGroup($ob->ID, 'fill_file_hash', 'lastKey=' . urlencode($lastKey)) . '</script>';
				}
				else
				{
					$stat = \Bitrix\Clouds\FileHashTable::getDuplicatesStat($ob->ID);
					$message = new CAdminMessage([
						'TYPE' => 'OK',
						'MESSAGE' => GetMessage('CLO_STORAGE_LIST_DUPLICATES_RESULT'),
						'DETAILS' => GetMessage('CLO_STORAGE_LIST_DUPLICATES_INFO', [
							'#count#' => intval($stat['DUP_COUNT']),
							'#size#' => CFile::FormatSize($stat['DUP_SIZE']),
							'#list_link#' => 'clouds_duplicates_list.php?lang=' . LANGUAGE_ID . '&bucket=' . $ob->ID,
						]),
						'HTML' => true,
					]);
					echo $message->Show();
					echo '<script>CloseWaitWindow();</script>';
				}
				$lAdmin->EndPrologContent();
			}
			break;
		default:
			break;
		}
	}
}

$arHeaders = [
	[
		'id' => 'SORT',
		'content' => GetMessage('CLO_STORAGE_LIST_SORT'),
		'align' => 'right',
		'default' => true,
	],
	[
		'id' => 'ID',
		'content' => GetMessage('CLO_STORAGE_LIST_ID'),
		'align' => 'right',
		'default' => true,
	],
	[
		'id' => 'ACTIVE',
		'content' => GetMessage('CLO_STORAGE_LIST_ACTIVE'),
		'align' => 'center',
		'default' => true,
	],
	[
		'id' => 'FILE_COUNT',
		'content' => GetMessage('CLO_STORAGE_LIST_FILE_COUNT'),
		'align' => 'right',
		'default' => true,
	],
	[
		'id' => 'FILE_SIZE',
		'content' => GetMessage('CLO_STORAGE_LIST_FILE_SIZE'),
		'align' => 'right',
		'default' => true,
	],
	[
		'id' => 'READ_ONLY',
		'content' => GetMessage('CLO_STORAGE_LIST_MODE'),
		'align' => 'center',
		'default' => true,
	],
	[
		'id' => 'SERVICE',
		'content' => GetMessage('CLO_STORAGE_LIST_SERVICE'),
		'default' => true,
	],
	[
		'id' => 'BUCKET',
		'content' => GetMessage('CLO_STORAGE_LIST_BUCKET'),
		'align' => 'center',
		'default' => true,
	],
];
$lAdmin->AddHeaders($arHeaders);

$rsData = CCloudStorageBucket::GetList(['SORT' => 'DESC', 'ID' => 'ASC']);
$rsData = new CAdminResult($rsData, $sTableID);
while (is_array($arRes = $rsData->Fetch()))
{
	$row = $lAdmin->AddRow($arRes['ID'], $arRes);

	$row->AddViewField('ID', '<a href="clouds_storage_edit.php?lang=' . LANGUAGE_ID . '&ID=' . $arRes['ID'] . '">' . $arRes['ID'] . '</a>');
	$row->AddViewField('FILE_COUNT', '<a href="clouds_file_list.php?lang=' . LANGUAGE_ID . '&bucket=' . $arRes['ID'] . '&path=%2F">' . intval($arRes['FILE_COUNT']) . '</a>');

	if ($arRes['ACTIVE'] === 'Y')
	{
		$html = '<div class="lamp-green"></div>';
	}
	else
	{
		$html = '<div class="lamp-red"></div>';
	}

	$row->AddViewField('ACTIVE', $html);
	$row->AddViewField('READ_ONLY', $arRes['READ_ONLY'] === 'Y' ? GetMessage('CLO_STORAGE_LIST_READ_ONLY') : GetMessage('CLO_STORAGE_LIST_READ_WRITE'));
	$row->AddViewField('SERVICE', CCloudStorage::GetServiceDescription($arRes['SERVICE_ID']));
	$row->AddViewField('FILE_SIZE', CFile::FormatSize($arRes['FILE_SIZE']));

	$arActions = [
		[
			'ICON' => 'edit',
			'DEFAULT' => true,
			'TEXT' => GetMessage('CLO_STORAGE_LIST_EDIT'),
			'ACTION' => $lAdmin->ActionRedirect('clouds_storage_edit.php?lang=' . LANGUAGE_ID . '&ID=' . $arRes['ID'])
		]
	];
	$arActions[] = ['SEPARATOR' => 'Y'];

	if ($arRes['ACTIVE'] === 'Y')
	{
		if ($arRes['READ_ONLY'] !== 'Y')
		{
			if (intval($arRes['LAST_FILE_ID']) > 0)
			{
				$arActions[] = [
					'TEXT' => GetMessage('CLO_STORAGE_LIST_CONT_MOVE_FILES'),
					'ACTION' => $lAdmin->ActionDoGroup($arRes['ID'], 'move')
				];
			}
			else
			{
				$arActions[] = [
					'TEXT' => GetMessage('CLO_STORAGE_LIST_START_MOVE_FILES'),
					'ACTION' => $lAdmin->ActionDoGroup($arRes['ID'], 'move')
				];
			}
		}

		if ($bHasLocalStorage)
		{
			$arActions[] = [
				'TEXT' => GetMessage('CLO_STORAGE_LIST_MOVE_LOCAL'),
				'ACTION' => "if(confirm('" . GetMessage('CLO_STORAGE_LIST_MOVE_LOCAL_CONF') . "')) " . $lAdmin->ActionDoGroup($arRes['ID'], 'download')
			];
		}

		$arActions[] = [
			'TEXT' => GetMessage('CLO_STORAGE_ESTIMATE_DUPLICATES'),
			'ACTION' => $lAdmin->ActionDoGroup($arRes['ID'], 'estimate_duplicates')
		];

		$arActions[] = [
			'TEXT' => GetMessage('CLO_STORAGE_LIST_DEACTIVATE'),
			'ACTION' => "if(confirm('" . GetMessage('CLO_STORAGE_LIST_DEACTIVATE_CONF') . "')) " . $lAdmin->ActionDoGroup($arRes['ID'], 'deactivate')
		];
	}
	else
	{
		$arActions[] = [
			'TEXT' => GetMessage('CLO_STORAGE_LIST_ACTIVATE'),
			'ACTION' => $lAdmin->ActionDoGroup($arRes['ID'], 'activate')
		];
	}

	if (intval($arRes['FILE_COUNT']) > 0)
	{
		$arActions[] = [
			'ICON' => 'delete',
			'TEXT' => GetMessage('CLO_STORAGE_LIST_DELETE'),
			'ACTION' => "alert('" . GetMessage('CLO_STORAGE_LIST_CANNOT_DELETE', [
				'#error_msg#' => GetMessage('CLO_STORAGE_LIST_NOT_EMPTY')
			]) . "')"
		];
	}
	else
	{
		$arActions[] = [
			'ICON' => 'delete',
			'TEXT' => GetMessage('CLO_STORAGE_LIST_DELETE'),
			'ACTION' => "if(confirm('" . GetMessage('CLO_STORAGE_LIST_DELETE_CONF') . "')) " . $lAdmin->ActionDoGroup($arRes['ID'], 'delete')
		];
	}

	if (!empty($arActions) && !$bOnTheMove)
	{
		$row->AddActions($arActions);
	}
}

$arFooter = [
	[
		'title' => GetMessage('MAIN_ADMIN_LIST_SELECTED'),
		'value' => $rsData->SelectedRowsCount(),
	],
	[
		'counter' => true,
		'title' => GetMessage('MAIN_ADMIN_LIST_CHECKED'),
		'value' => 0,
	],
];

$lAdmin->AddFooter($arFooter);

$aContext = [
	[
		'TEXT' => GetMessage('CLO_STORAGE_LIST_ADD'),
		'LINK' => '/bitrix/admin/clouds_storage_edit.php?lang=' . LANGUAGE_ID,
		'TITLE' => GetMessage('CLO_STORAGE_LIST_ADD_TITLE'),
		'ICON' => 'btn_new',
	],
];

$lAdmin->AddAdminContextMenu($aContext, /*$bShowExcel=*/false);

$lAdmin->CheckListMode();

$APPLICATION->SetTitle(GetMessage('CLO_STORAGE_LIST_TITLE'));

require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/prolog_admin_after.php';

$lAdmin->DisplayList();

require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/epilog_admin.php';