<?
use Bitrix\Main\Loader;

define("ADMIN_MODULE_NAME", "perfmon");
define("PERFMON_STOP", true);
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_before.php");
/** @global CMain $APPLICATION */
/** @global CDatabase $DB */
/** @global CUser $USER */
Loader::includeModule('perfmon');
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/perfmon/prolog.php");

IncludeModuleLangFile(__FILE__);

$RIGHT = $APPLICATION->GetGroupRight("perfmon");
if ($RIGHT == "D")
	$APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));

$sTableID = "tbl_perfmon_comp_list";
$oSort = new CAdminSorting($sTableID, "NN", "asc");
$lAdmin = new CAdminList($sTableID, $oSort);

$FilterArr = array(
	"find",
	"find_type",
	"find_component_name",
	"find_hit_id",
	"find_cache_type",
	"find_hit_script_name",
);

$lAdmin->InitFilter($FilterArr);

$arFilter = array(
	"COMPONENT_NAME" => ($find != "" && $find_type == "component_name"? $find: $find_component_name),
	"=HIT_ID" => ($find != "" && $find_type == "hit_id"? $find: $find_hit_id),
	"CACHE_TYPE" => $find_cache_type,
	"HIT_SCRIPT_NAME" => $find_hit_script_name,
);
foreach ($arFilter as $key => $value)
{
	if (!$value)
		unset($arFilter[$key]);
}

$arHeaders = array();

if ($group !== "Y")
{
	$arHeaders[] = array(
		"id" => "ID",
		"content" => GetMessage("PERFMON_COMP_ID"),
		"sort" => "ID",
		"align" => "right",
	);
	$arHeaders[] = array(
		"id" => "HIT_ID",
		"content" => GetMessage("PERFMON_COMP_HIT_ID"),
		"sort" => "HIT_ID",
		"align" => "right",
	);
	$arHeaders[] = array(
		"id" => "NN",
		"content" => GetMessage("PERFMON_COMP_NN"),
		"sort" => "NN",
		"align" => "right",
		"default" => true,
	);
}

$arHeaders[] = array(
	"id" => "COMPONENT_NAME",
	"content" => GetMessage("PERFMON_COMP_COMPONENT_NAME"),
	"sort" => "COMPONENT_NAME",
	"default" => true,
);

if ($group !== "Y")
{
	$arHeaders[] = array(
		"id" => "COMPONENT_TIME",
		"content" => GetMessage("PERFMON_COMP_COMPONENT_TIME"),
		"sort" => "COMPONENT_TIME",
		"align" => "right",
		"default" => true,
	);
	$arHeaders[] = array(
		"id" => "QUERIES",
		"content" => GetMessage("PERFMON_COMP_QUERIES"),
		"sort" => "QUERIES",
		"align" => "right",
		"default" => true,
	);
	$arHeaders[] = array(
		"id" => "QUERIES_TIME",
		"content" => GetMessage("PERFMON_COMP_QUERIES_TIME"),
		"sort" => "QUERIES_TIME",
		"align" => "right",
		"default" => true,
	);
}

$arHeaders[] = array(
	"id" => "CACHE_TYPE",
	"content" => GetMessage("PERFMON_COMP_CACHE_TYPE"),
	"sort" => "CACHE_TYPE",
	"align" => "right",
	"default" => true,
);

if ($group !== "Y")
{
	$arHeaders[] = array(
		"id" => "CACHE_SIZE",
		"content" => GetMessage("PERFMON_COMP_CACHE_SIZE"),
		"sort" => "CACHE_SIZE",
		"align" => "right",
	);
	$arHeaders[] = array(
		"id" => "CACHE_COUNT",
		"content" => GetMessage("PERFMON_COMP_CACHE_COUNT"),
		"sort" => "CACHE_COUNT",
		"align" => "right",
	);
	$arHeaders[] = array(
		"id" => "CACHE_COUNT_R",
		"content" => GetMessage("PERFMON_COMP_CACHE_COUNT_R"),
		"sort" => "CACHE_COUNT_R",
		"align" => "right",
	);
	$arHeaders[] = array(
		"id" => "CACHE_COUNT_W",
		"content" => GetMessage("PERFMON_COMP_CACHE_COUNT_W"),
		"sort" => "CACHE_COUNT_W",
		"align" => "right",
	);
	$arHeaders[] = array(
		"id" => "CACHE_COUNT_C",
		"content" => GetMessage("PERFMON_COMP_CACHE_COUNT_C"),
		"sort" => "CACHE_COUNT_C",
		"align" => "right",
	);
}

if ($group === "Y")
{
	$arHeaders[] = array(
		"id" => "COUNT",
		"content" => GetMessage("PERFMON_COMP_COUNT"),
		"align" => "right",
		"sort" => "COUNT",
		"default" => true,
	);
}

$lAdmin->AddHeaders($arHeaders);

$arSelectedFields = $lAdmin->GetVisibleHeaderColumns();
if (!is_array($arSelectedFields) || (count($arSelectedFields) < 1))
{
	if ($group !== "Y")
	{
		$arSelectedFields = array(
			"ID",
			"HIT_ID",
			"NN",
			"CACHE_TYPE",
			"COMPONENT_NAME",
			"COMPONENT_TIME",
			"QUERIES",
			"QUERIES_TIME",
		);
	}
	else
	{
		$arSelectedFields = array(
			"COMPONENT_NAME",
			"CACHE_TYPE",
			"COUNT",
		);
	}
}

$arSelectedFields[] = $group !== "Y"? "ID": "COMPONENT_NAME";

$arNumCols = array(
	"CACHE_SIZE" => 0,
	"COMPONENT_TIME" => 4,
	"QUERIES" => 0,
	"QUERIES_TIME" => 4,
	"CACHE_COUNT" => 0,
	"CACHE_COUNT_R" => 0,
	"CACHE_COUNT_W" => 0,
	"CACHE_COUNT_C" => 0,
);

if (isset($arFilter["CACHE_TYPE"]) && $arFilter["CACHE_TYPE"] == "N")
	$arFilter["CACHE_TYPE"] = array(false, "N");

$cData = new CPerfomanceComponent;
$rsData = $cData->GetList(
	array($by => $order),
	$arFilter,
	$group === "Y",
	array("nPageSize" => CAdminResult::GetNavSize($sTableID)),
	$arSelectedFields
);

$rsData = new CAdminResult($rsData, $sTableID);
$rsData->NavStart();
$lAdmin->NavText($rsData->GetNavPrint(GetMessage("PERFMON_COMP_PAGE")));

$max_display_url = COption::GetOptionInt("perfmon", "max_display_url");
while ($arRes = $rsData->NavNext(true, "f_"))
{
	$row =& $lAdmin->AddRow($f_NAME, $arRes);
	foreach ($arNumCols as $column_name => $precision)
	{
		$row->AddViewField($column_name, perfmon_NumberFormat($arRes[$column_name], $precision));
	}
	if ($group === "Y" && $f_COMPONENT_NAME)
		$row->AddViewField("COMPONENT_NAME", '<a href="perfmon_comp_list.php?lang='.LANGUAGE_ID.'&amp;set_filter=Y&amp;find_component_name='.$f_COMPONENT_NAME.'">'.$f_COMPONENT_NAME.'</a>');
	if ($f_QUERIES > 0)
		$row->AddViewField("QUERIES", '<a href="perfmon_sql_list.php?lang='.LANGUAGE_ID.'&amp;set_filter=Y&amp;find_component_id='.$f_ID.'">'.$f_QUERIES.'</a>');
	$row->AddViewField("HIT_ID", '<a href="perfmon_hit_list.php?lang='.LANGUAGE_ID.'&amp;set_filter=Y&amp;find_id='.$f_HIT_ID.'">'.$f_HIT_ID.'</a>');
	if ($f_CACHE_TYPE == "A")
		$row->AddViewField("CACHE_TYPE", GetMessage("PERFMON_COMP_CACHE_TYPE_AUTO"));
	elseif ($f_CACHE_TYPE == "Y")
		$row->AddViewField("CACHE_TYPE", GetMessage("PERFMON_COMP_CACHE_TYPE_YES"));
	else
		$row->AddViewField("CACHE_TYPE", GetMessage("PERFMON_COMP_CACHE_TYPE_NO"));
	if ($f_CACHE_COUNT > 0)
		$row->AddViewField("CACHE_COUNT", '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&amp;set_filter=Y&amp;find_component_id='.$f_ID.'">'.$f_CACHE_COUNT.'</a>');
	if ($f_CACHE_COUNT_R > 0)
		$row->AddViewField("CACHE_COUNT_R", '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&amp;set_filter=Y&amp;find_component_id='.$f_ID.'&amp;find_op_mode=R">'.$f_CACHE_COUNT_R.'</a>');
	if ($f_CACHE_COUNT_W > 0)
		$row->AddViewField("CACHE_COUNT_W", '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&amp;set_filter=Y&amp;find_component_id='.$f_ID.'&amp;find_op_mode=W">'.$f_CACHE_COUNT_W.'</a>');
	if ($f_CACHE_COUNT_C > 0)
		$row->AddViewField("CACHE_COUNT_C", '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&amp;set_filter=Y&amp;find_component_id='.$f_ID.'&amp;find_op_mode=C">'.$f_CACHE_COUNT_C.'</a>');
}

$lAdmin->AddFooter(
	array(
		array(
			"title" => GetMessage("MAIN_ADMIN_LIST_SELECTED"),
			"value" => $rsData->SelectedRowsCount(),
		),
	)
);

$aContext = array(
	array(
		"TEXT" => GetMessage("PERFMON_COMP_GROUP"),
		"MENU" => array(
			array(
				"TEXT" => GetMessage("PERFMON_COMP_GROUP_ON"),
				"ACTION" => $lAdmin->ActionDoGroup(0, "", "group=Y&by=COUNT&order=DESC"),
				"ICON" => ($group === "Y"? "checked": ""),
			),
			array(
				"TEXT" => GetMessage("PERFMON_COMP_GROUP_OFF"),
				"ACTION" => $lAdmin->ActionDoGroup(0, "", "group=N"),
				"ICON" => ($group !== "Y"? "checked": ""),
			),
		),
	),
);

$lAdmin->AddAdminContextMenu($aContext);

$lAdmin->BeginPrologContent();
echo '<script>BX.ready(function(){BX("list_group_mode").value="'.CUtil::JSEscape($group).'";});</script>';
$lAdmin->EndPrologContent();

$lAdmin->CheckListMode();

$APPLICATION->SetTitle(GetMessage("PERFMON_COMP_TITLE"));

require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_after.php");

$oFilter = new CAdminFilter(
	$sTableID."_filter",
	array(
		"find_component_name" => GetMessage("PERFMON_COMP_COMPONENT_NAME"),
		"find_hit_id" => GetMessage("PERFMON_COMP_HIT_ID"),
		"find_hit_script_name" => GetMessage("PERFMON_COMP_HIT_SCRIPT_NAME"),
		"find_cache_type" => GetMessage("PERFMON_COMP_CACHE_TYPE"),
	)
);
?>

<form name="find_form" method="get" action="<? echo $APPLICATION->GetCurPage(); ?>">
	<? $oFilter->Begin(); ?>
	<tr>
		<td><b><br />
<b>Fatal error</b>:  Uncaught Error: Call to undefined function GetMessage() in D:\ktt\ttepla.com\public_html\bitrix\modules\perfmon\admin\perfmon_comp_list.php:295
Stack trace:
#0 {main}
  thrown in <b>D:\ktt\ttepla.com\public_html\bitrix\modules\perfmon\admin\perfmon_comp_list.php</b> on line <b>295</b><br />