CanDoOperation("clouds_browse"))
$APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));
/*.require_module 'bitrix_clouds_include';.*/
if(!CModule::IncludeModule('clouds'))
$APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));
IncludeModuleLangFile(__FILE__);
$bucket_id = 0;
$arBuckets = array();
foreach(CCloudStorageBucket::GetAllBuckets() as $arBucket)
{
if($arBucket["ACTIVE"] == "Y")
{
$bucket_id = $arBucket["ID"];
$arBuckets[$bucket_id] = $arBucket["BUCKET"];
}
}
$message = /*.(CAdminMessage).*/null;
$sTableID = "tbl_clouds_file_search";
$lAdmin = new CAdminList($sTableID);
$lAdmin->InitFilter(array("bucket", "path"));
$path = isset($_GET["path"])? $_GET["path"]: $path;
$path = preg_replace("#[\\\\\\/]+#", "/", "/".$path."/");
$n = preg_replace("/[^a-zA-Z0-9_:\\[\\]]/", "", $_GET["n"]);
if(intval($bucket) <= 0 && count($arBuckets) == 1)
$bucket = $bucket_id;
//TODO when there is only one cloud storage there is no need for filter or at least we can preset it
$arHeaders = array(
array(
"id" => "FILE_NAME",
"content" => GetMessage("CLO_STORAGE_SEARCH_NAME"),
"default" => true,
),
array(
"id" => "FILE_SIZE",
"content" => GetMessage("CLO_STORAGE_SEARCH_SIZE"),
"align" => "right",
"default" => true,
),
);
$lAdmin->AddHeaders($arHeaders);
$arData = /*.(array[int][string]string).*/array();
$obBucket = new CCloudStorageBucket($bucket);
if($obBucket->Init() && $_GET["file"]!=="y")
{
$arFiles = $obBucket->ListFiles($path);
if($path != "/")
$arData[] = array("ID" => "D..", "TYPE" => "dir", "NAME" => "..", "SIZE" => "");
if(is_array($arFiles))
{
foreach($arFiles["dir"] as $i => $dir)
$arData[] = array("ID" => "D".$dir, "TYPE" => "dir", "NAME" => $dir, "SIZE" => '');
foreach($arFiles["file"] as $i => $file)
$arData[] = array("ID" => "F".$file, "TYPE" => "file", "NAME" => $file, "SIZE" => $arFiles["file_size"][$i]);
}
else
{
$e = $APPLICATION->GetException();
if(is_object($e))
$message = new CAdminMessage(GetMessage("CLO_STORAGE_SEARCH_LIST_ERROR"), $e);
}
}
$rsData = new CDBResult;
$rsData->InitFromArray($arData);
$rsData = new CAdminResult($rsData, $sTableID);
$rsData->NavStart();
$lAdmin->NavText($rsData->GetNavPrint(''));
while(is_array($arRes = $rsData->NavNext()))
{
if($arRes["TYPE"] === "dir")
{
if($arRes["NAME"] === "..")
$link = 'clouds_file_search.php?lang='.LANGUAGE_ID.'&n='.urlencode($n).'&bucket='.$obBucket->ID.'&path='.urlencode(preg_replace('#([^/]+)/$#', '', $path));
else
$link = 'clouds_file_search.php?lang='.LANGUAGE_ID.'&n='.urlencode($n).'&bucket='.$obBucket->ID.'&path='.urlencode($path.$arRes["NAME"].'/');
}
else
{
$link = 'clouds_file_search.php?lang='.LANGUAGE_ID.'&n='.urlencode($n).'&file=y&bucket='.$obBucket->ID.'&path='.urlencode($path.$arRes["NAME"]);
}
$row =& $lAdmin->AddRow($arRes["ID"], $arRes, $link);
$showFieldIcon = "";
$showFieldText = "";
if($arRes["TYPE"] === "dir")
{
$showFieldIcon = '';
$showFieldText = ''.htmlspecialcharsex($arRes["NAME"]).'';
}
else
{
$showFieldIcon = "";
$showFieldText = ''.htmlspecialcharsex($arRes["NAME"]).'';
}
$showField = '| '.$showFieldIcon.' | '.$showFieldText.' |
';
if($arRes["TYPE"] === "dir")
{
$row->AddViewField("FILE_NAME", $showField);
$row->AddViewField("FILE_SIZE", ' ');
}
else
{
$row->AddViewField("FILE_NAME", $showField);
$row->AddViewField("FILE_SIZE", CFile::FormatSize((float)$arRes["SIZE"]));
}
}
$lAdmin->BeginPrologContent();
if(is_object($message))
echo $message->Show();
if($obBucket->Init() && $_GET["file"] === "y")
echo "";
$lAdmin->EndPrologContent();
$lAdmin->CheckListMode();
$APPLICATION->SetTitle(GetMessage("CLO_STORAGE_SEARCH_TITLE"));
require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_popup_admin.php");
?>
DisplayList();
require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/epilog_popup_admin.php");
?>