GetGroupRight("perfmon");
if ($RIGHT == "D")
$APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));
class CPerfmonHitList extends CAdminListPage
{
function getSelectedFields()
{
$arSelectedFields = parent::getSelectedFields();
$arSelectedFields[] = "ID";
$arSelectedFields[] = "SQL_LOG";
$arSelectedFields[] = "SERVER_NAME";
$arSelectedFields[] = "SERVER_PORT";
return $arSelectedFields;
}
function getDataSource($arOrder, $arFilter, $arSelect)
{
return CPerfomanceHit::GetList(
$arOrder,
$arFilter,
false,
array("nPageSize" => CAdminResult::GetNavSize($this->sTableID)),
$arSelect
);
}
function getFooter()
{
return array(
array(
"title" => GetMessage("MAIN_ADMIN_LIST_SELECTED"),
"value" => $this->data->SelectedRowsCount(),
),
);
}
}
class CPerfmonHitListColumnFullDate extends CAdminListColumn
{
function getRowView($arRes)
{
return $arRes["FULL_DATE_HIT"];
}
}
class CPerfmonListColumnRequestUri extends CAdminListColumn
{
public $max_display_url = 0;
function __construct($id, $info, $max_display_url)
{
parent::__construct($id, $info);
$this->max_display_url = $max_display_url;
}
function getRowView($arRes)
{
$url = str_replace(
array("show_sql_stat_immediate=Y", "show_sql_stat=Y", "show_page_exec_time=Y", "&&"),
array("", "", "", "&"),
$arRes["REQUEST_URI"]
);
if (mb_strpos($url, "?") === false)
$url .= "?";
if (mb_strpos($url, "=") !== false)
$url .= "&";
$url .= "show_sql_stat=Y&show_page_exec_time=Y&show_sql_stat_immediate=Y";
switch ($arRes["SERVER_PORT"])
{
case "443":
$url = "https://".$arRes["SERVER_NAME"].$url;
break;
case "80":
$url = "http://".$arRes["SERVER_NAME"].$url;
break;
default:
$url = "http://".$arRes["SERVER_NAME"].":".$arRes["SERVER_PORT"].$url;
}
return '>> '.(mb_strlen($arRes["REQUEST_URI"]) > $this->max_display_url? mb_substr($arRes["REQUEST_URI"], 0, $this->max_display_url)."...": $arRes["REQUEST_URI"]).' ';
}
}
class CPerfmonListColumnTemplate extends CAdminListColumnNumber
{
public $template = "";
function __construct($id, $info, $precision, $template)
{
parent::__construct($id, $info, $precision);
$this->template = $template;
}
function getRowView($arRes)
{
if ($arRes[$this->id] > 0)
{
$this->arRes = $arRes;
$this->arRes[$this->id] = parent::getRowView($arRes);
return preg_replace_callback("/(#)([A-Za-z0-9_]+)(#)/", array($this, "replace"), $this->template);
}
else
{
return false;
}
}
function replace($match)
{
return $this->arRes[$match[2]];
}
}
$page = new CPerfmonHitList(GetMessage("PERFMON_HIT_TITLE"), "tbl_perfmon_hit_list", array("PAGE_TIME" => "desc"), GetMessage("PERFMON_HIT_PAGE"));
$page->addColumn(new CAdminListColumn("ID", array(
"content" => GetMessage("PERFMON_HIT_ID"),
"align" => "right",
"sort" => "ID",
"filter" => "find_id",
"find_type" => "id",
"filter_key" => "=ID",
)));
$page->addColumn(new CPerfmonHitListColumnFullDate("DATE_HIT", array(
"content" => GetMessage("PERFMON_HIT_DATE_HIT"),
"align" => "right",
"sort" => "DATE_HIT",
)));
$page->addColumn(new CAdminListColumnList(
"IS_ADMIN",
array(
"content" => GetMessage("PERFMON_HIT_IS_ADMIN"),
"sort" => "IS_ADMIN",
"filter" => "find_is_admin",
"filter_key" => "=IS_ADMIN",
),
array(
"Y" => GetMessage("MAIN_YES"),
"N" => GetMessage("MAIN_NO"),
)
));
$methods = array();
$rsMethods = CPerfomanceHit::GetList(
array("REQUEST_METHOD" => "ASC"),
array(),
true,
false,
array("REQUEST_METHOD")
);
while ($arMethod = $rsMethods->Fetch())
$methods[$arMethod["REQUEST_METHOD"]] = $arMethod["REQUEST_METHOD"];
$page->addColumn(new CAdminListColumnList("REQUEST_METHOD", array(
"content" => GetMessage("PERFMON_HIT_REQUEST_METHOD"),
"sort" => "REQUEST_METHOD",
"filter" => "find_request_method",
"filter_key" => "=REQUEST_METHOD",
), $methods));
$page->addColumn(new CAdminListColumn("SERVER_NAME", array(
"content" => GetMessage("PERFMON_HIT_SERVER_NAME"),
"sort" => "SERVER_NAME",
)));
$page->addColumn(new CAdminListColumn("SERVER_PORT", array(
"content" => GetMessage("PERFMON_HIT_SERVER_PORT"),
"sort" => "SERVER_PORT",
)));
$page->addColumn(new CAdminListColumn("SCRIPT_NAME", array(
"content" => GetMessage("PERFMON_HIT_SCRIPT_NAME"),
"sort" => "SCRIPT_NAME",
"filter" => "find_script_name",
"find_type" => "script_name",
"filter_key" => "=SCRIPT_NAME",
)));
$page->addColumn(new CPerfmonListColumnRequestUri("REQUEST_URI", array(
"content" => GetMessage("PERFMON_HIT_REQUEST_URI2"),
"sort" => "REQUEST_URI",
"default" => true,
), COption::GetOptionInt("perfmon", "max_display_url")));
$page->addColumn(new CAdminListColumnNumber("PAGE_TIME", array(
"content" => GetMessage("PERFMON_HIT_PAGE_TIME"),
"sort" => "PAGE_TIME",
"default" => true,
), 4));
$page->addColumn(new CPerfmonListColumnTemplate("COMPONENTS", array(
"content" => GetMessage("PERFMON_HIT_COMPONENTS"),
"sort" => "COMPONENTS",
"default" => true,
), 0, '#COMPONENTS#'));
$page->addColumn(new CAdminListColumnNumber("COMPONENTS_TIME", array(
"content" => GetMessage("PERFMON_HIT_COMPONENTS_TIME"),
"sort" => "COMPONENTS_TIME",
"default" => true,
), 4));
$page->addColumn(new CAdminListColumnNumber("INCLUDED_FILES", array(
"content" => GetMessage("PERFMON_HIT_INCLUDED_FILES"),
"sort" => "INCLUDED_FILES",
), 0));
$page->addColumn(new CAdminListColumnNumber("MEMORY_PEAK_USAGE", array(
"content" => GetMessage("PERFMON_HIT_MEMORY_PEAK_USAGE"),
"sort" => "MEMORY_PEAK_USAGE",
), 0));
$page->addColumn(new CAdminListColumnNumber("CACHE_SIZE", array(
"content" => GetMessage("PERFMON_HIT_CACHE_SIZE"),
"sort" => "CACHE_SIZE",
), 0));
$page->addColumn(new CPerfmonListColumnTemplate("CACHE_COUNT", array(
"content" => GetMessage("PERFMON_HIT_CACHE_COUNT"),
"sort" => "CACHE_COUNT",
), 0, '#CACHE_COUNT#'));
$page->addColumn(new CPerfmonListColumnTemplate("CACHE_COUNT_R", array(
"content" => GetMessage("PERFMON_HIT_CACHE_COUNT_R"),
"sort" => "CACHE_COUNT_R",
), 0, '#CACHE_COUNT_R#'));
$page->addColumn(new CPerfmonListColumnTemplate("CACHE_COUNT_W", array(
"content" => GetMessage("PERFMON_HIT_CACHE_COUNT_W"),
"sort" => "CACHE_COUNT_W",
), 0, '#CACHE_COUNT_W#'));
$page->addColumn(new CPerfmonListColumnTemplate("CACHE_COUNT_C", array(
"content" => GetMessage("PERFMON_HIT_CACHE_COUNT_C"),
"sort" => "CACHE_COUNT_C",
), 0, '#CACHE_COUNT_C#'));
$page->addColumn(new CPerfmonListColumnTemplate("QUERIES", array(
"content" => GetMessage("PERFMON_HIT_QUERIES"),
"sort" => "QUERIES",
"default" => true,
), 0, '#QUERIES#'));
$page->addColumn(new CAdminListColumnNumber("QUERIES_TIME", array(
"content" => GetMessage("PERFMON_HIT_QUERIES_TIME"),
"sort" => "QUERIES_TIME",
"default" => true,
), 4));
$page->addColumn(new CAdminListColumnNumber("PROLOG_TIME", array(
"content" => GetMessage("PERFMON_HIT_PROLOG_TIME"),
"sort" => "PROLOG_TIME",
), 4));
$page->addColumn(new CAdminListColumnNumber("AGENTS_TIME", array(
"content" => GetMessage("PERFMON_HIT_AGENTS_TIME"),
"sort" => "AGENTS_TIME",
), 4));
$page->addColumn(new CAdminListColumnNumber("WORK_AREA_TIME", array(
"content" => GetMessage("PERFMON_HIT_WORK_AREA_TIME"),
"sort" => "WORK_AREA_TIME",
), 4));
$page->addColumn(new CAdminListColumnNumber("EPILOG_TIME", array(
"content" => GetMessage("PERFMON_HIT_EPILOG_TIME"),
"sort" => "EPILOG_TIME",
), 4));
$page->addColumn(new CAdminListColumnNumber("EVENTS_TIME", array(
"content" => GetMessage("PERFMON_HIT_EVENTS_TIME"),
"sort" => "EVENTS_TIME",
), 4));
$page->show();
require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/epilog_admin.php");?>