$RIGHT = $APPLICATION->GetGroupRight($module_id);
if ($RIGHT >= "R") {
IncludeModuleLangFile($_SERVER["DOCUMENT_ROOT"] . BX_ROOT . "/modules/main/options.php");
IncludeModuleLangFile(__FILE__);
$arAllOptions = array(array("max_display_url", GetMessage("PERFMON_OPTIONS_MAX_DISPLAY_URL"), array("text", 6)), array("warning_log", GetMessage("PERFMON_OPTIONS_WARNING_LOG"), array("checkbox")), array("cache_log", GetMessage("PERFMON_OPTIONS_CACHE_LOG"), array("checkbox")), array("sql_log", GetMessage("PERFMON_OPTIONS_SQL_LOG"), array("checkbox")), array("sql_backtrace", GetMessage("PERFMON_OPTIONS_SQL_BACKTRACE"), array("checkbox")), array("slow_sql_log", GetMessage("PERFMON_OPTIONS_SLOW_SQL_LOG"), array("checkbox"), GetMessage("PERFMON_OPTIONS_SLOW_SQL_NOTE")), array("slow_sql_time", GetMessage("PERFMON_OPTIONS_SLOW_SQL_TIME"), array("text", 6)));
$aTabs = array(array("DIV" => "edit1", "TAB" => GetMessage("MAIN_TAB_SET"), "ICON" => "perfmon_settings", "TITLE" => GetMessage("MAIN_TAB_TITLE_SET")), array("DIV" => "edit2", "TAB" => GetMessage("MAIN_TAB_RIGHTS"), "ICON" => "perfmon_settings", "TITLE" => GetMessage("MAIN_TAB_TITLE_RIGHTS")));
$tabControl = new CAdminTabControl("tabControl", $aTabs);
CModule::IncludeModule($module_id);
if ($REQUEST_METHOD == "POST" && strlen($Update . $Apply . $RestoreDefaults) > 0 && $RIGHT == "W" && check_bitrix_sessid()) {
require_once $_SERVER["DOCUMENT_ROOT"] . "/bitrix/modules/perfmon/prolog.php";
if ($_REQUEST["clear_data"] === "y") {
CPerfomanceComponent::Clear();
CPerfomanceSQL::Clear();
CPerfomanceHit::Clear();
CPerfomanceError::Clear();
CPerfomanceCache::Clear();
}
if (array_key_exists("ACTIVE", $_REQUEST)) {
$ACTIVE = intval($_REQUEST["ACTIVE"]);
CPerfomanceKeeper::SetActive($ACTIVE > 0, time() + $ACTIVE);
}
if (strlen($RestoreDefaults) > 0) {
COption::RemoveOption("perfmon");
} else {
foreach ($arAllOptions as $arOption) {
$name = $arOption[0];
$val = $_REQUEST[$name];
if ($arOption[2][0] == "checkbox" && $val != "Y") {
$val = "N";
}
COption::SetOptionString("perfmon", $name, $val, $arOption[1]);
