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.4 -r1.1.2.5
--- openacs-4/packages/acs-admin/www/cluster.tcl 17 Dec 2023 19:28:31 -0000 1.1.2.4
+++ openacs-4/packages/acs-admin/www/cluster.tcl 15 Jul 2024 11:44:11 -0000 1.1.2.5
@@ -37,10 +37,13 @@
set nsstats_location $::acs::rootdir/packages/acs-subsite/www/admin/nsstats.tcl
set nsstats_available_p [file readable $nsstats_location]
- set current_node [acs::cluster cget -currentServerLocation]
+ set current_node [acs::cluster cget -myLocation]
set all_cluster_hosts [server_cluster_all_hosts]
set active_peer_nodes [lsort [nsv_get cluster cluster_peer_nodes]]
-
+
+ append page_title \
+ [expr {[acs::cluster is_canonical_server $current_node] ? " (Canonical Server)" : " (Peer Node)"}]
+
#ns_log notice "all_cluster_hosts <$all_cluster_hosts> active_peer_nodes <$active_peer_nodes>"
set elements_list {
state {
@@ -93,15 +96,15 @@
label "Actions"
html {style {white-space:nowrap;}}
display_template {
-
+
-
+
-
+
+ title="Disconnect Peer Node; trigger rejoin and flush in a few seconds when server is alive">
}
}