Your IP : 216.73.216.86
<?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';