<?php
require_once $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/prolog_admin_before.php';
/** @global CUser $USER */
global $USER;
/** @global CMain $APPLICATION */
global $APPLICATION;
require_once $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/cluster/prolog.php';
IncludeModuleLangFile(__FILE__);

if (!$USER->isAdmin())
{
	$APPLICATION->AuthForm(GetMessage('ACCESS_DENIED'));
}

$message = null;
$sTableID = 'tbl_cluster_server_list';
$lAdmin = new CAdminList($sTableID);

$arHeaders = [
	[
		'id' => 'NN',
		'content' => GetMessage('CLU_SL_NN'),
		'align' => 'right',
		'default' => true,
	],
	[
		'id' => 'HOST',
		'content' => GetMessage('CLU_SL_HOST'),
		'default' => true,
	],
	[
		'id' => 'SERVER_TYPE',
		'content' => GetMessage('CLU_SL_SERVER_TYPE'),
		'default' => true,
	],
];
$lAdmin->AddHeaders($arHeaders);
$i = 1;
$arData = [];
foreach (CCluster::getServerList() as $server)
{
	if ($server['DEDICATED'] == 'Y')
	{
		$host = $server['HOST'];
	}
	else
	{
		$host = '';
	}
	if (isset($arData[$host]))
	{
		$arData[$host]['SERVERS'][] = $server;
	}
	else
	{
		$arData[$host] = [
			'NN' => $i++,
			'HOST' => $host,
			'SERVERS' => [$server],
		];
	}
}
$rsData = new CDBResult;
$rsData->InitFromArray($arData);
$rsData = new CAdminResult($rsData, $sTableID);
$i = 1;
while ($arRes = $rsData->Fetch())
{
	$row = $lAdmin->AddRow($i++, $arRes);
	if ($arRes['HOST'] == '')
	{
		$row->AddViewField('HOST', GetMessage('CLU_SL_COMMON_TYPE'));
	}
	$servers = [];
	foreach ($arRes['SERVERS'] as $server)
	{
		if ($server['SERVER_TYPE'] == 'database')
		{
			$type = GetMessage('CLU_SL_SERVER_TYPE_DATABASE');
		}
		elseif ($server['SERVER_TYPE'] == 'memcache')
		{
			$type = GetMessage('CLU_SL_SERVER_TYPE_MEMCACHE');
		}
		elseif ($server['SERVER_TYPE'] == 'redis')
		{
			$type = GetMessage('CLU_SL_SERVER_TYPE_REDIS');
		}
		elseif ($server['SERVER_TYPE'] == 'web')
		{
			$type = GetMessage('CLU_SL_SERVER_TYPE_WEB');
		}
		else
		{
			$type = GetMessage('CLU_SL_SERVER_TYPE_UNKNOWN');
		}

		$extendedInfo = [];
		if ($server['GROUP_ID'] > 0)
		{
			$extendedInfo[] = GetMessage('CLU_SL_GROUP') . ': ' . $server['GROUP_ID'];
		}

		if ($server['ROLE_ID'] == 'MAIN')
		{
			$role = GetMessage('CLU_SL_ROLE_MAIN');
		}
		elseif ($server['ROLE_ID'] == 'SLAVE')
		{
			$role = GetMessage('CLU_SL_ROLE_SLAVE');
		}
		elseif ($server['ROLE_ID'] == 'MODULE')
		{
			$role = GetMessage('CLU_SL_ROLE_MODULE');
		}
		else
		{
			$role = '';
		}

		if ($role != '')
		{
			$extendedInfo[] = GetMessage('CLU_SL_ROLE') . ': ' . $role;
		}

		if (!empty($extendedInfo))
		{
			$type .= ' (' . implode(', ', $extendedInfo) . ')';
		}

		$servers[] = '<a href="' . htmlspecialcharsbx($server['EDIT_URL']) . '">' . htmlspecialcharsEx($type) . '</a>';
	}
	$row->AddViewField('SERVER_TYPE', implode('<br>', $servers));
}

$lAdmin->CheckListMode();
$APPLICATION->SetTitle(GetMessage('CLU_SL_TITLE'));
require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/prolog_admin_after.php';
if ($message)
{
	echo $message->Show();
}
$lAdmin->DisplayList();
require $_SERVER['DOCUMENT_ROOT'] . '/bitrix/modules/main/include/epilog_admin.php';