my $ccr = new ClusterComputeResource();
## some initialization of $ccr, but what is required?I
## Do I need to add the $ccr before doing the following?
my $aff_rule_spec = new ClusterAffinityRuleSpec( name => $rule_name,
enabled => "TRUE",
mandatory => "TRUE",
vm => \@vm_morefs );
| my $array_update_operation = new ArrayUpdateOperation( "add" ); |
| my $clus_rule_spec = new ClusterRuleSpec( operation => $array_update_operation, info => $aff_rule_spec ); |
| my @clus_rule_specs; |
| push( @clus_rule_specs, $clus_rule_spec ); |
| my $cluster_config_spec = new ClusterConfigSpec( rulesSpec => \@clus_rule_specs ); |
| $cluster_view->ReconfigureCluster_Task( spec => $cluster_config_spec, |
| modify => "TRUE" ) ); |
