Version 

4.0

# Build a hash %nodes: pool >[ node list ] 

my %nodes; 

@nodes{@names} = @{$res >result}; 

if( !defined $nodes{$poolName} ) { 

   die "Pool $poolName does not exist..."; 

} 

if( grep { $_ eq $newNode } @{$nodes{$poolName}} ) { 

   die "Pool $poolName already contains $newNode"; 

} 

# Add one node to the pool 

$res = $conn >addNodes( [ $poolName ], [ [ $newNode ] ] ); 

# We re done!  Verify that the node has been added 

$res = $conn >getNodes( [ $poolName ] ); 

my @newnodes = @{${$res >result}[0]}; 

my $expected = join " ",  

   sort @{$nodes{$poolName}}, $newNode; 

my $actual   = join " ", sort @newnodes; 

if( $expected ne $actual ) { 

   die "New node list is  $actual ; expected  $expected "; 

} 

35