Your IP : 172.28.240.42
<?
define("ADMIN_MODULE_NAME", "perfmon");
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_before.php");
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"));
$arEngines = array(
"MYISAM" => array("NAME" => "MyISAM"),
"INNODB" => array("NAME" => "InnoDB"),
);
$sTableID = "t_perfmon_all_tables";
$oSort = new CAdminSorting($sTableID, "TABLE_NAME", "asc");
$lAdmin = new CAdminList($sTableID, $oSort);
if(($arTABLES = $lAdmin->GroupAction()) && $RIGHT>="W")
{
if($_REQUEST['action_target']=='selected')
{
$rsData = CPerfomanceTableList::GetList();
while($ar = $rsData->Fetch())
$arTABLES[] = $ar["TABLE_NAME"];
}
foreach($arEngines as $id => $ar)
{
if($_REQUEST['action'] == "convert_to_".$id)
{
$_REQUEST["action"] = "convert";
$_REQUEST["to"] = $id;
break;
}
}
$to = strtoupper($_REQUEST["to"]);
foreach($arTABLES as $table_name)
{
if(strlen($table_name) <= 0 || !preg_match("/^[a-z0-9_]+\$/i", $table_name))
continue;
switch($_REQUEST['action'])
{
case "convert":
$res = $DB->Query("show table status like '".$table_name."'", false);
$arStatus = $res->Fetch();
if($arStatus)
{
if($to != strtoupper($arStatus["Engine"]))
{
if($to == "MYISAM")
$res = $DB->Query("alter table ".$table_name." ENGINE = MyISAM", false);
elseif($to == "INNODB")
$res = $DB->Query("alter table ".$table_name." ENGINE = InnoDB", false);
else
$res = true;
}
if(!$res)
{
$lAdmin->AddGroupError(GetMessage("PERFMON_TABLES_CONVERT_ERROR"), $table_name);
}
}
break;
case "optimize":
$DB->Query("optimize table ".$table_name, false);
break;
}
}
}
$lAdmin->BeginPrologContent();
?>
<h4><?echo GetMessage("PERFMON_TABLES_ALL")?></h4>
<script>
hrefs = "";
rows = new Array();
prev = '';
</script>
<?
$lAdmin->EndPrologContent();
$arHeaders = array();
$arHeaders[] = array(
"id" => "TABLE_NAME",
"content" => GetMessage("PERFMON_TABLES_NAME"),
"default" => true,
"sort" => "TABLE_NAME",
);
if($DB->type == "MYSQL")
{
$arHeaders[] = array(
"id" => "ENGINE_TYPE",
"content" => GetMessage("PERFMON_TABLES_ENGINE_TYPE"),
"default" => true,
"sort" => "ENGINE_TYPE",
);
}
$arHeaders[] = array(
"id" => "NUM_ROWS",
"content" => GetMessage("PERFMON_TABLES_NUM_ROWS"),
"default" => true,
"align" => "right",
"sort" => "NUM_ROWS",
);
$arHeaders[] = array(
"id" => "BYTES",
"content" => GetMessage("PERFMON_TABLES_BYTES"),
"default" => true,
"align" => "right",
"sort" => "BYTES",
);
$lAdmin->AddHeaders($arHeaders);
$bShowFullInfo = ($DB->type == "MYSQL")
&& (
(isset($_REQUEST["full_info"]) && $_REQUEST["full_info"] == "Y")
|| (COption::GetOptionInt("perfmon", "tables_show_time", 0) <= 5)
);
if($bShowFullInfo)
session_write_close();
$stime = time();
$arAllTables = array();
$rsData = CPerfomanceTableList::GetList($bShowFullInfo);
while($ar = $rsData->Fetch())
$arAllTables[] = $ar;
sortByColumn($arAllTables, array($by => $order=="desc"? SORT_DESC: SORT_ASC));
$etime = time();
if($bShowFullInfo)
COption::SetOptionInt("perfmon", "tables_show_time", $etime-$stime);
$rsData = new CDBResult;
$rsData->InitFromArray($arAllTables);
$rsData = new CAdminResult($rsData, $sTableID);
while($arRes = $rsData->NavNext(true, "f_"))
{
$row =& $lAdmin->AddRow($f_TABLE_NAME, $arRes);
$row->AddViewField("TABLE_NAME", '<a class="table_name" id="'.$f_TABLE_NAME.'" href="perfmon_table.php?lang='.LANGUAGE_ID.'&table_name='.urlencode($f_TABLE_NAME).'">'.$f_TABLE_NAME.'</a>');
$row->AddViewField("BYTES", CFile::FormatSize($arRes["BYTES"]));
$arActions = array();
if($DB->type == "MYSQL")
{
if($bShowFullInfo)
foreach($arEngines as $id => $ar)
{
if(strtoupper($f_ENGINE_TYPE) != $id)
$arActions[] = array(
"ICON" => "edit",
"DEFAULT" => false,
"TEXT" => GetMessage("PERFMON_TABLES_ACTION_CONVERT", array("#ENGINE_TYPE#" => $ar["NAME"])),
"ACTION" => $lAdmin->ActionDoGroup($f_TABLE_NAME, "convert", "to=".$id),
);
}
$arActions[] = array(
"DEFAULT" => false,
"TEXT" => GetMessage("PERFMON_TABLES_ACTION_OPTIMIZE"),
"ACTION" => $lAdmin->ActionDoGroup($f_TABLE_NAME, "optimize"),
);
}
if(count($arActions))
$row->AddActions($arActions);
}
$lAdmin->AddFooter(
array(
array("title"=>GetMessage("MAIN_ADMIN_LIST_SELECTED"), "value"=>$rsData->SelectedRowsCount()),
array("counter"=>true, "title"=>GetMessage("MAIN_ADMIN_LIST_CHECKED"), "value"=>"0"),
)
);
if($DB->type == "MYSQL")
{
$arGroupActions = array(
"optimize" => GetMessage("PERFMON_TABLES_ACTION_OPTIMIZE")
);
foreach($arEngines as $id => $ar)
$arGroupActions["convert_to_".$id] = GetMessage("PERFMON_TABLES_ACTION_CONVERT", array("#ENGINE_TYPE#" => $ar["NAME"]));
$lAdmin->AddGroupActionTable($arGroupActions);
if(!$bShowFullInfo)
{
$lAdmin->BeginEpilogContent();
?><script>
BX.ready(function(){
<?=$sTableID?>.GetAdminList('<?echo $APPLICATION->GetCurPage();?>?lang=<?=LANGUAGE_ID?>&full_info=Y');
});
</script><?
$lAdmin->EndEpilogContent();
}
}
$lAdmin->CheckListMode();
$APPLICATION->SetTitle(GetMessage("PERFMON_TABLES_TITLE"));
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_after.php");
$strLastTables = CUserOptions::GetOption("perfmon", "last_tables");
if(strlen($strLastTables) > 0)
{
$arLastTables = explode(",", $strLastTables);
if(count($arLastTables) > 0)
{
sort($arLastTables);
foreach($arLastTables as $i => $table_name)
{
if($DB->TableExists($table_name))
{
$arLastTables[$i] = array(
"NAME" => '<a href="perfmon_table.php?lang='.LANGUAGE_ID.'&table_name='.urlencode($table_name).'">'.$table_name.'</a>',
);
}
else
{
unset($arLastTables[$i]);
}
}
$sTableID2= "t_perfmon_recent_tables";
$lAdmin2 = new CAdminList($sTableID2);
$lAdmin2->BeginPrologContent();
echo "<h4>".GetMessage("PERFMON_TABLES_RECENTLY_BROWSED")."</h4>\n";
$lAdmin2->EndPrologContent();
$lAdmin2->AddHeaders(array(
array(
"id" => "NAME",
"content" => GetMessage("PERFMON_TABLES_NAME"),
"default" => true,
),
));
$rsData = new CDBResult;
$rsData->InitFromArray($arLastTables);
$rsData = new CAdminResult($rsData, $sTableID2);
$j = 0;
while($arRes = $rsData->NavNext(true, "f_"))
{
$row =& $lAdmin2->AddRow($j++, $arRes);
foreach($arRes as $key => $value)
$row->AddViewField($key, $value);
}
$lAdmin2->CheckListMode();
$lAdmin2->DisplayList();
}
}
?>
<h4><?echo GetMessage("PERFMON_TABLES_QUICK_SEARCH")?></h4>
<input type="text" id="instant-search">
<script>
BX.ready(function(){
if(location.hash != '#empty')
BX('instant-search').value = location.hash.replace(/^#/, '');
BX('instant-search').focus();
setTimeout(filter_rows, 250);
});
var hrefs;
var rows = new Array();
var prev = '';
function filter_rows()
{
var input = BX('instant-search').value;
if(input != prev)
{
prev = input;
if(prev.length)
location.hash = prev;
else
location.hash = 'empty';
var tbody = BX('<?echo $sTableID?>').getElementsByTagName("tbody")[0];
if(!hrefs)
{
hrefs = BX.findChildren(tbody, {tag : 'a', className : 'table_name'}, true);
for(var i = 0; i< hrefs.length; i++)
rows[i] = BX.findParent(hrefs[i], {'tag' : 'tr'});
}
for(var i = 0; i < hrefs.length; i++)
if(rows[i].parentNode)
rows[i].parentNode.removeChild(rows[i]);
var j = 0;
for(var i = 0; i < hrefs.length; i++)
{
if(input.length == 0 || hrefs[i].id.indexOf(input) >= 0)
{
tbody.appendChild(rows[i]);
j++;
}
}
}
setTimeout(filter_rows, 250);
}
</script>
<?
$lAdmin->DisplayList();
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/epilog_admin.php");
?>