my$sth=$dbh->prepare("SELECT usage_cpu_percent, usage_mem_percent, usage_network_percent FROM vds_statistics LEFT JOIN vds_static ON vds_statistics.vds_id = vds_static.vds_id WHERE vds_static.vds_name = ?");
my$qresult=$sth->execute($hostname);
my@dresult=$sth->fetchrow_array();
my$cpu=$dresult[0]//0;
my$mem=$dresult[1]//0;
my$net=$dresult[2]//0;
# Now get the VM stats.
$sth=$dbh->prepare("SELECT status, vm_active, vm_migrating FROM vds_dynamic LEFT JOIN vds_static ON vds_dynamic.vds_id = vds_static.vds_id WHERE vds_static.vds_name = ?");
$qresult=$sth->execute($hostname);
@dresult=$sth->fetchrow_array();
my$status=3-($dresult[0]//0);
my$vma=$dresult[1]//0;
my$vmm=$dresult[2]//0;
# To avoid an error message we query the statement handle once more.