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; }