[! 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; -]