%PDF-
%PDF-
Mini Shell
Mini Shell
<?
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 */
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/perfmon/include.php");
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/perfmon/prolog.php");
IncludeModuleLangFile(__FILE__);
$RIGHT = $APPLICATION->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 (strpos($url, "?") === false)
$url .= "?";
if (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 '<a href="'.htmlspecialcharsbx($url).'" title="'.htmlspecialcharsbx($url).'">>></a> <a href="perfmon_sql_list.php?lang='.LANGUAGE_ID.'&set_filter=Y&find_hit_id='.urlencode($arRes["ID"]).'" title="'.urlencode($arRes["REQUEST_URI"]).'">'.(strlen($arRes["REQUEST_URI"]) > $this->max_display_url? substr($arRes["REQUEST_URI"], 0, $this->max_display_url)."...": $arRes["REQUEST_URI"]).'</a> ';
}
}
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, '<a href="perfmon_comp_list.php?lang='.LANGUAGE_ID.'&set_filter=Y&find_hit_id=#ID#">#COMPONENTS#</a>'));
$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, '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&set_filter=Y&find_hit_id=#ID#">#CACHE_COUNT#</a>'));
$page->addColumn(new CPerfmonListColumnTemplate("CACHE_COUNT_R", array(
"content" => GetMessage("PERFMON_HIT_CACHE_COUNT_R"),
"sort" => "CACHE_COUNT_R",
), 0, '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&set_filter=Y&find_hit_id=#ID#&find_op_mode=R">#CACHE_COUNT_R#</a>'));
$page->addColumn(new CPerfmonListColumnTemplate("CACHE_COUNT_W", array(
"content" => GetMessage("PERFMON_HIT_CACHE_COUNT_W"),
"sort" => "CACHE_COUNT_W",
), 0, '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&set_filter=Y&find_hit_id=#ID#&find_op_mode=W">#CACHE_COUNT_W#</a>'));
$page->addColumn(new CPerfmonListColumnTemplate("CACHE_COUNT_C", array(
"content" => GetMessage("PERFMON_HIT_CACHE_COUNT_C"),
"sort" => "CACHE_COUNT_C",
), 0, '<a href="perfmon_cache_list.php?lang='.LANGUAGE_ID.'&set_filter=Y&find_hit_id=#ID#&find_op_mode=C">#CACHE_COUNT_C#</a>'));
$page->addColumn(new CPerfmonListColumnTemplate("QUERIES", array(
"content" => GetMessage("PERFMON_HIT_QUERIES"),
"sort" => "QUERIES",
"default" => true,
), 0, '<a href="perfmon_sql_list.php?lang='.LANGUAGE_ID.'&set_filter=Y&find_hit_id=#ID#">#QUERIES#</a>'));
$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");?>
Zerion Mini Shell 1.0