Commit ea383bec authored by Francesc Guasch's avatar Francesc Guasch
Browse files

list iso images

parent beaf0b87
......@@ -207,6 +207,26 @@ sub list_bases {
return @domains;
}
=head2 list_images
List all ISO images
=cut
sub list_images {
my $self = shift;
my @domains;
my $sth = $CONNECTOR->dbh->prepare(
"SELECT * FROM iso_images ORDER BY name"
);
$sth->execute;
while (my $row = $sth->fetchrow_hashref) {
push @domains,($row);
}
$sth->finish;
return @domains;
}
=head2 remove_volume
......
......@@ -13,6 +13,6 @@ my $ravada = Ravada->new( connector => $test->connector);
my @images = $ravada->list_images();
ok(scalar @images);
ok(scalar @images,"No images ".Dumper(\@images));
done_testing();
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