<?php
use Bitrix\Main\Loader;
use Bitrix\Main\Localization\Loc;

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 */

Loader::includeModule('perfmon');
require_once $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/perfmon/prolog.php';

$RIGHT = CMain::GetGroupRight('perfmon');
if ($RIGHT == 'D')
{
	$APPLICATION->AuthForm(Loc::getMessage('ACCESS_DENIED'));
}

$APPLICATION->SetTitle(Loc::getMessage('PERFMON_EXPLAIN_TITLE'));

/** @var \Bitrix\Main\HttpRequest $request */
$request = \Bitrix\Main\Context::getCurrent()->getRequest();

$ID = (int) $request->get('ID');
$sTableID = 'tbl_perfmon_explain';
$lAdmin = new CAdminUiList($sTableID);

$connection = \Bitrix\Main\Application::getConnection();
if ($connection->getType() === 'mysql')
{
	$arHeader = [
		[
			'id' => 'select_type',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_SELECT_TYPE'),
			'align' => 'left',
			'default' => true,
		],
		[
			'id' => 'table',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_TABLE'),
			'align' => 'left',
			'default' => true,
		],
		[
			'id' => 'type',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_TYPE'),
			'align' => 'left',
			'default' => true,
		],
		[
			'id' => 'possible_keys',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_POSSIBLE_KEYS'),
			'align' => 'left',
			'default' => true,
		],
		[
			'id' => 'key',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_KEY'),
			'align' => 'left',
			'default' => true,
		],
		[
			'id' => 'key_len',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_KEY_LEN'),
			'align' => 'right',
			'default' => true,
		],
		[
			'id' => 'ref',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_REF'),
			'align' => 'left',
			'default' => true,
		],
		[
			'id' => 'rows',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_ROWS'),
			'align' => 'right',
			'default' => true,
		],
		[
			'id' => 'Extra',
			'content' => Loc::getMessage('PERFMON_EXPLAIN_F_EXTRA'),
			'align' => 'left',
			'default' => true,
		],
	];
}
else
{
	$arHeader = [
		[
			'id' => 'plan',
			'content' => 'QUERY PLAN',
			'align' => 'left',
			'default' => true,
		],
		[
			'id' => 'cost',
			'content' => 'cost',
			'align' => 'right',
			'default' => true,
		],
		[
			'id' => 'rows',
			'content' => 'rows',
			'align' => 'right',
			'default' => true,
		],
		[
			'id' => 'width',
			'content' => 'width',
			'align' => 'right',
			'default' => true,
		],
	];
}
$lAdmin->AddHeaders($arHeader);

$arPlan = false;
$rsSQL = CPerfomanceSQL::GetList(['ID', 'SQL_TEXT'], ['=ID' => $ID], [], false);
$arSQL = $rsSQL->Fetch();
$strSQL = CPerfQuery::transform2select($arSQL['SQL_TEXT']);
if ($strSQL)
{
	$rsData = $DB->Query('explain ' . $strSQL, true);
}
else
{
	$rsData = false;
}

if ($rsData)
{
	$SQL_TEXT = CPerfomanceSQL::Format($strSQL);
	$lAdmin->BeginPrologContent();
	echo '<p class="main-grid-cell main-grid-empty-block">' . str_replace(
			[' ', "\t", "\n"],
			[' ', '&nbsp;&nbsp;&nbsp;', '<br>'],
			htmlspecialcharsbx(CSqlFormat::reformatSql($SQL_TEXT))
		) . '</p>';

	// if ($arPlan['OPTIMIZER'])
	// {
	// 	echo '<p>' . Loc::getMessage('PERFMON_EXPLAIN_F_OPTIMIZER') . ': ' . $arPlan['OPTIMIZER'] . '</p>';
	// 	echo '<p>' . Loc::getMessage('PERFMON_EXPLAIN_F_COST') . ': ' . $arPlan['POSITION'] . '</p>';
	// }
	$lAdmin->EndPrologContent();
}
else
{
	$rsData = new CDBResult;
	$rsData->InitFromArray([]);
	$lAdmin->BeginPrologContent();
	$message = new CAdminMessage([
		'MESSAGE' => Loc::getMessage('PERFMON_EXPLAIN_SQL_ERROR'),
		'TYPE' => 'ERROR',
	]);
	echo $message->Show();
	$lAdmin->EndPrologContent();
}

$Comment = '';
$rsData = new CAdminResult($rsData, $sTableID);
$rsData->NavStart();
while ($arRes = $rsData->GetNext())
{
	if (array_key_exists('DEPTH', $arRes))
	{
		$arRes['OPERATION'] = str_repeat('&nbsp;&nbsp;', $arRes['DEPTH']) . $arRes['OPERATION'];
	}
	if (array_key_exists('select_type', $arRes))
	{
		$arRes['select_type'] = $arRes['id'] . ' ' . $arRes['select_type'];
	}
	if (array_key_exists('QUERY PLAN', $arRes))
	{
		$arRes['plan'] = $arRes['~QUERY PLAN'];
		if (preg_match('/^( )+/', $arRes['plan'], $match))
		{
			$arRes['plan'] = str_repeat('&nbsp;', strlen($match[1]) * 2) . substr($arRes['plan'], strlen($match[1]));
		}
		if (preg_match('/\(.*(cost=)([0-9.]+).*\)/', $arRes['plan'], $match))
		{
			$arRes['cost'] = $match[2];
			$arRes['plan'] = str_replace($match[1] . $match[2], '', $arRes['plan']);
		}
		if (preg_match('/\(.*(rows=)([0-9.]+).*\)/', $arRes['plan'], $match))
		{
			$arRes['rows'] = $match[2];
			$arRes['plan'] = str_replace($match[1] . $match[2], '', $arRes['plan']);
		}
		if (preg_match('/\(.*(width=)([0-9.]+).*\)/', $arRes['plan'], $match))
		{
			$arRes['width'] = $match[2];
			$arRes['plan'] = str_replace($match[1] . $match[2], '', $arRes['plan']);
		}
		$arRes['plan'] = preg_replace('/\(\s*\)/', '', $arRes['plan']);
	}
	$row = $lAdmin->AddRow($arRes['ID'], $arRes);
	if (array_key_exists('Comment', $arRes))
	{
		$Comment .= $arRes['Comment'] . "\n";
	}
}

if ($Comment)
{
	$lAdmin->BeginEpilogContent();
	$message = new CAdminMessage([
		'MESSAGE' => $Comment,
		'TYPE' => 'OK',
	]);
	echo $message->Show();
	$lAdmin->EndEpilogContent();
}

require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/prolog_popup_admin.php';
$lAdmin->DisplayList([
	'SHOW_TOTAL_COUNTER' => false,
	'ACTION_PANEL' => false,
]);
require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/epilog_popup_admin.php';