if ($bVarsFromForm) {
$str_HOST = htmlspecialcharsbx($_REQUEST["HOST"]);
$str_PORT = htmlspecialcharsbx($_REQUEST["PORT"]);
$str_WEIGHT = htmlspecialcharsbx($_REQUEST["WEIGHT"]);
} elseif (is_array($arServer)) {
$str_HOST = htmlspecialcharsbx($arServer["HOST"]);
$str_PORT = htmlspecialcharsbx($arServer["PORT"]);
$str_WEIGHT = htmlspecialcharsbx($arServer["WEIGHT"]);
} else {
$str_HOST = "";
$str_PORT = "11211";
$str_WEIGHT = "100";
}
$APPLICATION->SetTitle(is_array($arServer) ? GetMessage("CLU_MEMCACHE_EDIT_EDIT_TITLE") : GetMessage("CLU_MEMCACHE_EDIT_NEW_TITLE"));
require $_SERVER["DOCUMENT_ROOT"] . "/bitrix/modules/main/include/prolog_admin_after.php";
$arMemcacheServers = CClusterMemcache::LoadConfig();
if ($ID == 0 && count($arMemcacheServers) > 0) {
echo BeginNote(), GetMessage("CLU_MEMCACHE_EDIT_WARNING", array("#link#" => "perfmon_panel.php?lang=" . LANGUAGE_ID)), EndNote();
}
$aMenu = array(array("TEXT" => GetMessage("CLU_MEMCACHE_EDIT_MENU_LIST"), "TITLE" => GetMessage("CLU_MEMCACHE_EDIT_MENU_LIST_TITLE"), "LINK" => "cluster_memcache_list.php?lang=" . LANGUAGE_ID . '&group_id=' . $group_id, "ICON" => "btn_list"));
$context = new CAdminContextMenu($aMenu);
$context->Show();
if ($message) {
echo $message->Show();
}
?>
<form method="POST" action="<?php
echo $APPLICATION->GetCurPage();
?>
" enctype="multipart/form-data" name="editform" id="editform">
<?php
function Update($ID, $arFields)
{
$ID = intval($ID);
$arServerList = CClusterMemcache::LoadConfig();
if (!array_key_exists($ID, $arServerList)) {
return false;
}
if (!$this->CheckFields($arFields, $ID)) {
return false;
}
$arServerList[$ID] = array("ID" => $ID, "GROUP_ID" => $arServerList[$ID]["GROUP_ID"], "STATUS" => isset($arFields["STATUS"]) ? $arFields["STATUS"] : $arServerList[$ID]["STATUS"], "WEIGHT" => isset($arFields["WEIGHT"]) ? $arFields["WEIGHT"] : $arServerList[$ID]["WEIGHT"], "HOST" => isset($arFields["HOST"]) ? $arFields["HOST"] : $arServerList[$ID]["HOST"], "PORT" => isset($arFields["PORT"]) ? $arFields["PORT"] : $arServerList[$ID]["PORT"]);
CClusterMemcache::SaveConfig($arServerList);
return $ID;
}
