Commit 3803034d authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor fix for bug caused by the addition of links to sliverstatus.

parent 0d37e7fc
...@@ -485,8 +485,6 @@ sub SliverStatus() ...@@ -485,8 +485,6 @@ sub SliverStatus()
my $details = $pgstatus->{'details'}; my $details = $pgstatus->{'details'};
my @children = (); my @children = ();
while ( my ($pgurn, $pgrstat) = each(%$details) ) { while ( my ($pgurn, $pgrstat) = each(%$details) ) {
# Look up the sliver so we can extract info from the manifest.
my $sliver = GeniSliver->Lookup($pgurn);
my $child = { my $child = {
'geni_urn' => $pgurn, 'geni_urn' => $pgurn,
# XXX Need to massage status to one of the AM status values # XXX Need to massage status to one of the AM status values
...@@ -494,6 +492,14 @@ sub SliverStatus() ...@@ -494,6 +492,14 @@ sub SliverStatus()
'geni_error' => $pgrstat->{'error'}, 'geni_error' => $pgrstat->{'error'},
'pg_status' => $pgrstat->{'status'}, 'pg_status' => $pgrstat->{'status'},
}; };
# Look up the sliver so we can extract info from the manifest.
my $sliver = GeniSliver->Lookup($pgurn);
if (!defined($sliver)) {
$sliver = GeniAggregate->Lookup($pgurn);
}
# Signal an error?
next
if (!defined($sliver));
# Put manifest info in... # Put manifest info in...
my $manifest = $sliver->GetManifest(0); my $manifest = $sliver->GetManifest(0);
......
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