[!
use strict;
use PVE::SafeSyslog;
use HTML::Entities;
use PVE::pvecfg;
use PVE::I18N;
use PVE::ConfigServer;
use PVE::HTMLTable;
use PVE::HTMLUtils;
use PVE::HTMLControls;
use PVE::APLInfo;
!]
[-
use strict;
my $cinfo = $fdat{__cinfo};
my $cid = $cinfo->{local}->{cid};
my $out = '';
$out .= PVE::APLInfo::webnews();
if ($cinfo->{local}->{role} ne '-') {
$out .= "
";
$out .= PVE::HTMLUtils::create_cluster_status ($cinfo);
}
$out .= "
";
$out .= PVE::HTMLUtils::create_statusframe ("hostview$cid", "Local System Status ('$cinfo->{local}->{name}')");
$out .= PVE::HTMLControls::create_wsviewer ("hostview$cid", "hostview${cid}right", '/ws/status', { cid => $cid }, 5);
print OUT $out;
-]