Refuse to extend slices that include nodes that are sched_reserved or

pre-reserved to another project.

protogeni/lib/GeniCM.pm.in

@@ -4618,7 +4618,31 @@ sub RenewSliverAux($$$)
     # expiration so we can see what the user actually tried to do.
     #
     main::AddLogfileMetaData("renew_request", $expires);
-    
+
+    #
+    # Check all of the nodes in the underlying experiment to see if
+    # any are sched-reserved or pre-reserved. If so we decline the
+    # extension.
+    #
+    my $slice_experiment = $slice->GetExperiment();
+    my @pnodes = $slice_experiment->NodeList();
+
+    foreach my $pnode (@pnodes) {
+	my $pnodeid = $pnode->node_id();
+	
+	if (defined($pnode->reserved_pid()) &&
+	    $pnode->reserved_pid() ne $slice_experiment->pid()) {
+	    $slice->UnLock();
+	    return GeniResponse->Create(GENIRESPONSE_REFUSED, undef,
+				"Refused cause $pnodeid is pre-reserved");
+	}
+	if (defined($pnode->NextReservation())) {
+	    $slice->UnLock();
+	    return GeniResponse->Create(GENIRESPONSE_REFUSED, undef,
+				"Refused cause $pnodeid is sched-reserved");
+	}
+    }
+
     my $response = SetSliceExpiration($slice,
 				      $expires, 0, $alap, @{ $credentials });
     if (GeniResponse::IsError($response)) {