- my $resources = $conn->get('api2/json/cluster/resources', { type => 'vm' });
-
- if (!defined($param->{format}) or $param->{format} eq 'table') {
- my $headers = ['Node', 'VMID', 'Type', 'Name', 'Status'];
- my $data = [];
- for my $el (@$resources) {
- push(@$data, [$el->{node}, $el->{vmid}, $el->{type}, $el->{name}, $el->{status}]);
- }
-
- printf("%10s %10s %10s %10s %10s\n", @$headers);
- for my $row (@$data) {
- printf("%10s %10s %10s %10s %10s\n", @$row);
- }
- } else {
- print JSON::to_json($resources, {utf8 => 1, pretty => 1});
- }
-
- return undef;