<%
# Try to enusure this page is not cached
Z::addheader( "Cache-Control", "no-cache" );
$::f{"back"} = "/apps/web/cluster/status.ahtml";
&Z::import_query_string();
$::f{"help"} = "/apps/web/docs/controller/cluster.html";
$::f{"title"} = "Machine status - $::f{'machine'}";
Z::parse( "../etc/clusterheader.ahtml" );
subtitle( $::f{"title"} );
%>
<%
# Check that this machine is a Zeus server. If it isn't, we won't be able to
# get the stats from it
$machine = $f{machine};
( $port ) = $machine =~ /:(\d+)/;
if ( ! $port )
{
Z::write("This machine is not a Zeus Web Server and so lacks the functionality required to draw real-time graphs of its performance.");
}
else
{
Z::write( "![](\"/apps/web/snapshot.cgi?machine=$machine&value=bytes\")
" );
Z::write("
[ Detail ]');
}
# If it is a backend Zeus webserver, add a link to the cache info
# page.
if( $port ) {
my $hostsfile = "$ENV{ZEUSHOME}/webadmin/conf/hosts";
open( F, $hostsfile ) or ::Error( "Could not open hosts file" );
my @hosts = ;
close( F );
if( grep ( /^$f{machine}$/, @hosts )) {
# It is a backend Zeus webserver
Z::write "- Advanced status";
Z::write "
- [ Cache info ]";
Z::write "
";
}
}
Z::parse( "../etc/footer.ahtml" );
%>