Index: openacs-4/packages/acs-admin/www/cluster.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cluster.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-admin/www/cluster.tcl 5 Dec 2023 17:14:58 -0000 1.1.2.3
+++ openacs-4/packages/acs-admin/www/cluster.tcl 17 Dec 2023 19:28:31 -0000 1.1.2.4
@@ -3,7 +3,7 @@
@creation-date Feb 8, 2023
} {
- {drop_node:nohtml,notnull ""}
+ {disconnect_node:nohtml,notnull ""}
{flush_node:nohtml,notnull ""}
}
@@ -13,11 +13,11 @@
set server_cluster_enabled_p [server_cluster_enabled_p]
set dynamic_cluster_nodes [::acs::cluster dynamic_cluster_nodes]
-if {$drop_node ne ""} {
+if {$disconnect_node ne ""} {
#
- # Drop the provided node from DynamicClusterPeers
+ # Disconnect the provided node from DynamicClusterPeers
#
- acs::cluster drop_dynamic_node $drop_node
+ acs::cluster dynamic_cluster_reconfigure disconnect $disconnect_node
set done 1
} elseif {$flush_node ne ""} {
#
@@ -100,7 +100,7 @@
-
}