Commit d1952bf2 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Do not warn about missing VMs in ListUsage().

parent 7d0d70eb
......@@ -4514,8 +4514,18 @@ sub ListUsage($)
$node->{"component_urn"} = $component->urn();
}
else {
print STDERR "No component in DB for resource ".
$sliver->resource_uuid() . "\n";
#
# Do not warn about missing VMs.
#
my $pnode = Node->Lookup($sliver->resource_id());
if (!defined($pnode)) {
print STDERR "No node in DB for resource ".
$sliver->resource_uuid() . "\n";
}
elsif (! $pnode->isvirtnode()) {
print STDERR "No component in DB for resource ".
$sliver->resource_uuid() . ": $pnode\n";
}
}
push(@components, $node);
}
......
Markdown is supported
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