Your IP : 216.73.216.86
<?php
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';
/** @var CMain $APPLICATION */
/** @var CDatabase $DB */
/** @var CUser $USER */
Loader::includeModule('perfmon');
require_once $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/perfmon/prolog.php';
IncludeModuleLangFile(__FILE__);
$RIGHT = CMain::GetGroupRight('perfmon');
if ($RIGHT == 'D')
{
$APPLICATION->AuthForm(GetMessage('ACCESS_DENIED'));
}
$sTableID = 'tbl_perfmon_hit_grouped';
$oSort = new CAdminSorting($sTableID, 'SUM_PAGE_TIME', 'desc');
$by = mb_strtoupper($oSort->getField());
$order = mb_strtoupper($oSort->getOrder());
$lAdmin = new CAdminList($sTableID, $oSort);
$FilterArr = [
'find_script_name',
'find_is_admin',
'find_count_from', 'find_count_to',
];
$currentFilter = $lAdmin->InitFilter($FilterArr);
foreach ($FilterArr as $fieldName)
{
$currentFilter[$fieldName] = ($currentFilter[$fieldName] ?? '');
}
$arFilter = [
'SCRIPT_NAME' => $currentFilter['find_script_name'],
'=IS_ADMIN' => $currentFilter['find_is_admin'],
'>=COUNT' => $currentFilter['find_count_from'],
'<=COUNT' => $currentFilter['find_count_to'],
];
foreach ($arFilter as $key => $value)
{
if (!$value)
{
unset($arFilter[$key]);
}
}
$arHeaders = [
[
'id' => 'IS_ADMIN',
'content' => GetMessage('PERFMON_HIT_IS_ADMIN'),
'sort' => 'IS_ADMIN',
],
[
'id' => 'REQUEST_METHOD',
'content' => GetMessage('PERFMON_HIT_REQUEST_METHOD'),
'sort' => 'REQUEST_METHOD',
],
[
'id' => 'SERVER_NAME',
'content' => GetMessage('PERFMON_HIT_SERVER_NAME'),
'sort' => 'SERVER_NAME',
],
[
'id' => 'SERVER_PORT',
'content' => GetMessage('PERFMON_HIT_SERVER_PORT'),
'sort' => 'SERVER_PORT',
],
[
'id' => 'SCRIPT_NAME',
'content' => GetMessage('PERFMON_HIT_PAGE'),
'sort' => 'SCRIPT_NAME',
'default' => true,
],
[
'id' => 'PERCENT',
'content' => GetMessage('PERFMON_HIT_PERCENT'),
'sort' => 'SUM_PAGE_TIME',
'align' => 'right',
'default' => true,
],
[
'id' => 'REQUEST_URI',
'content' => GetMessage('PERFMON_HIT_REQUEST_URI'),
'sort' => 'REQUEST_URI',
],
[
'id' => 'COUNT',
'content' => GetMessage('PERFMON_HIT_COUNT'),
'sort' => 'COUNT',
'align' => 'right',
'default' => true,
],
];
$arGrpFuncs = ['MAX', 'MIN', 'SUM', 'AVG'];
$arGrpCols = [
'INCLUDED_FILES' => 0,
'MEMORY_PEAK_USAGE' => 0,
'CACHE_SIZE' => 0,
'CACHE_COUNT' => 0,
'CACHE_COUNT_R' => 0,
'CACHE_COUNT_W' => 0,
'CACHE_COUNT_C' => 0,
'PAGE_TIME' => 4,
'PROLOG_TIME' => 4,
'AGENTS_TIME' => 4,
'WORK_AREA_TIME' => 4,
'EPILOG_TIME' => 4,
'EVENTS_TIME' => 4,
'COMPONENTS' => 0,
'COMPONENTS_TIME' => 4,
'QUERIES' => 0,
'QUERIES_TIME' => 4,
];
$arDefColumns = ['SUM_PAGE_TIME', 'AVG_PAGE_TIME', 'AVG_COMPONENTS', 'AVG_QUERIES'];
foreach ($arGrpCols as $col => $prec)
{
foreach ($arGrpFuncs as $func)
{
$arHeaders [] = [
'id' => $func . '_' . $col,
'content' => GetMessage('PERFMON_HIT_' . $func . '_' . $col),
'sort' => $func . '_' . $col,
'align' => 'right',
'default' => in_array($func . '_' . $col, $arDefColumns, true),
];
}
}
$lAdmin->AddHeaders($arHeaders);
$arSelectedFields = $lAdmin->GetVisibleHeaderColumns();
if (!is_array($arSelectedFields) || (count($arSelectedFields) < 1))
{
$arSelectedFields = [
'SCRIPT_NAME',
'COUNT',
'MAX_INCLUDED_FILES',
'MAX_MEMORY_PEAK_USAGE',
'AVG_QUERIES',
];
}
$rsTotal = CPerfomanceHit::GetList(['COUNT' => 'ASC'], $arFilter, true, false, ['COUNT', 'SUM_PAGE_TIME']);
$arTotal = $rsTotal->Fetch();
$rsData = CPerfomanceHit::GetList(
[$by => $order],
$arFilter,
true,
['nPageSize' => CAdminResult::GetNavSize($sTableID)],
$arSelectedFields
);
$rsData = new CAdminResult($rsData, $sTableID);
$rsData->NavStart();
$lAdmin->NavText($rsData->GetNavPrint(GetMessage('PERFMON_HIT_PAGE2')));
$max_display_url = COption::GetOptionInt('perfmon', 'max_display_url');
while ($arRes = $rsData->GetNext())
{
$row =& $lAdmin->AddRow($arRes['NAME'], $arRes);
$row->AddViewField('SCRIPT_NAME', '<a href="perfmon_hit_list.php?lang=' . LANGUAGE_ID . '&set_filter=Y&find_script_name=' . $arRes['SCRIPT_NAME'] . '">' . $arRes['SCRIPT_NAME'] . '</a>');
$page_time = doubleval($arTotal['SUM_PAGE_TIME']);
if ($page_time > 0)
{
$row->AddViewField('PERCENT', perfmon_NumberFormat(($arRes['SUM_PAGE_TIME'] / $page_time) * 100, 2) . '%');
}
else
{
$row->AddViewField('PERCENT', ' ');
}
$row->AddViewField('COUNT', perfmon_NumberFormat($arRes['COUNT'], 0));
foreach ($arGrpFuncs as $func)
{
foreach ($arGrpCols as $col => $prec)
{
if ($arRes[$func . '_' . $col] <> '')
{
$row->AddViewField($func . '_' . $col, perfmon_NumberFormat($arRes[$func . '_' . $col], $prec));
}
}
}
}
$lAdmin->AddFooter(
[
[
'title' => GetMessage('MAIN_ADMIN_LIST_SELECTED'),
'value' => $rsData->SelectedRowsCount(),
],
[
'title' => GetMessage('PERFMON_HIT_TOTAL_HITS') . ':',
'value' => $arTotal['COUNT'],
],
]
);
$aContext = [];
$lAdmin->AddAdminContextMenu($aContext);
$lAdmin->CheckListMode();
$APPLICATION->SetTitle(GetMessage('PERFMON_HIT_TITLE2'));
require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/prolog_admin_after.php';
$oFilter = new CAdminFilter(
$sTableID . '_filter',
[
'find_is_admin' => GetMessage('PERFMON_HIT_IS_ADMIN'),
'find_count' => GetMessage('PERFMON_HIT_COUNT'),
]
);
?>
<form name="find_form" method="get" action="<?php echo $APPLICATION->GetCurPage(); ?>">
<?php $oFilter->Begin(); ?>
<tr>
<td><?php echo GetMessage('PERFMON_HIT_PAGE')?>:</td>
<td><input type="text" name="find_script_name" size="47"
value="<?php echo htmlspecialcharsbx($currentFilter['find_script_name']) ?>"></td>
</tr>
<tr>
<td><?php echo GetMessage('PERFMON_HIT_IS_ADMIN')?>:</td>
<td><?php
$arr = [
'reference' => [GetMessage('MAIN_YES'), GetMessage('MAIN_NO')],
'reference_id' => ['Y', 'N']
];
echo SelectBoxFromArray('find_is_admin', $arr, htmlspecialcharsbx($currentFilter['find_is_admin']), GetMessage('MAIN_ALL'));
?></td>
</tr>
<tr>
<td><?=GetMessage('PERFMON_HIT_COUNT')?>:</td>
<td><input type="text" name="find_count_from" size="7" value="<?php echo htmlspecialcharsbx($currentFilter['find_count_from'])?>">...<input type="text" name="find_count_to" size="7" value="<?php echo htmlspecialcharsbx($currentFilter['find_count_to']) ?>"></td>
</tr>
<?php
$oFilter->Buttons([
'table_id' => $sTableID,
'url' => $APPLICATION->GetCurPage(),
'form' => 'find_form',
]);
$oFilter->End();
?>
</form>
<?php
$lAdmin->DisplayList();
require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/epilog_admin.php';