Commit 14e1fdbe authored by Francesc Guasch's avatar Francesc Guasch
Browse files

Warn if it can't find requested id_iso

parent 4a6a0eff
......@@ -46,8 +46,11 @@ sub create_domain {
my $user = (shift or $USER_ADMIN);
my $id_iso = shift;
$id_iso = search_id_iso($id_iso)
if $id_iso && $id_iso !~ /^\d+$/;
if ( $id_iso && $id_iso !~ /^\d+$/) {
my $iso_name = $id_iso;
$id_iso = search_id_iso($iso_name);
warn "I can't find iso $iso_name" if !defined $id_iso;
}
my $vm = rvd_back()->search_vm($vm_name);
ok($vm,"Expecting VM $vm_name, got ".$vm->type) or return;
......
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