How to get all Pools for a Node

I ran this script and noticed that the section where you look for matches is not correct.

 

In the node_list loop you use the same index for the pool_list.

 

There should be another nested loop going through the pools and comparing each member.

 

 

find some matches

 

for $i (0 .. $node_list)

 

{

 

printf "----------------------------\n";

 

printf "NODE : %s\n", $node_address;

 

printf "Name : %s\n", $screen_name;

 

printf "Pools : ";

 

 

for $j (0 .. $pool_list)

 

{

 

$node_address = $node_list[$i];

 

$pool_name = $pool_list[$j];

 

@member_lists = @{$member_listsAofA[$j]};

 

 

for $k (0 .. $member_lists)

 

{

 

$member = @member_lists[$k];

 

$address = $member->{"address"};

 

$port = $member->{"port"};

 

 

if ( $node_address eq $address )

 

{

 

Found match!

 

printf "%s, ", $pool_name;

 

}

 

}

 

}

 

printf "\n";