<?php
define("ADMIN_MODULE_NAME", "cluster");
require_once $_SERVER["DOCUMENT_ROOT"] . "/bitrix/modules/main/include/prolog_admin_before.php";
require_once $_SERVER["DOCUMENT_ROOT"] . "/bitrix/modules/cluster/prolog.php";
IncludeModuleLangFile(__FILE__);
if (!$USER->IsAdmin()) {
$APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));
}
$sTableID = "tbl_cluster_server_list";
$lAdmin = new CAdminList($sTableID);
$arHeaders = array(array("id" => "NN", "content" => GetMessage("CLU_SL_NN"), "align" => "right", "default" => true), array("id" => "HOST", "content" => GetMessage("CLU_SL_HOST"), "default" => true), array("id" => "SERVER_TYPE", "content" => GetMessage("CLU_SL_SERVER_TYPE"), "default" => true));
$lAdmin->AddHeaders($arHeaders);
$i = 1;
$arData = array();
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] = array("NN" => $i++, "HOST" => $host, "SERVERS" => array($server));
}
}
$rsData = new CDBResult();
$rsData->InitFromArray($arData);
$rsData = new CAdminResult($rsData, $sTableID);
$i = 1;
