Add public_url to CM Sliverstatus() return blob, and pg_public_url to

AM version of same.

protogeni/lib/GeniAM.pm.in

@@ -602,6 +602,8 @@ sub SliverStatus()
 
     # include the pg status
     $status->{'pg_status'} = $pgstatus->{'status'};
+    $status->{'pg_public_url'} = $pgstatus->{'public_url'}
+        if (exists($pgstatus->{'public_url'}));
 
     # include the expiration, converting to UTC
     my $slice = GeniSlice->Lookup($slice_urn);

protogeni/lib/GeniCMV2.pm.in

@@ -1094,6 +1094,10 @@ sub SliverStatus($)
 	"error"   => $aggregate->ErrorLog(),
 	"details" => {},
     };
+    $blob->{'public_url'} =
+	"$TBBASE/showslicepub.php?publicid=" .	$slice->publicid()
+	if (defined($slice->publicid()));
+    
     foreach my $sliver (@slivers) {
 	if ($sliver->isa("GeniAggregate")) {
 	    next