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