Commit 8bb27f49 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

Added list_vms method

parent 8e24cd40
......@@ -15,6 +15,9 @@ use YAML;
use Socket qw( inet_aton inet_ntoa );
no warnings "experimental::signatures";
use feature qw(signatures);
use Ravada::Auth;
use Ravada::Request;
use Ravada::VM::KVM;
......@@ -626,6 +629,16 @@ sub search_domain_by_id {
return $self->search_domain($name);
=head2 list_vms
List all the Virtual Machine Managers
sub list_vms($self) {
return @{$self->vm};
=head2 list_domains
List all created domains
......@@ -637,7 +650,7 @@ List all created domains
sub list_domains {
my $self = shift;
my @domains;
for my $vm (@{$self->vm}) {
for my $vm ($self->list_vms) {
for my $domain ($vm->list_domains) {
push @domains,($domain);
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment