447 |
Return all databases which have records for selected site. Returned array of |
Return all databases which have records for selected site. Returned array of |
448 |
hashes has elements C<name> and C<label>. |
hashes has elements C<name> and C<label>. |
449 |
|
|
450 |
=cut |
This function does cacheing inside C<< $self->{nodes_in_site} >>, but you |
451 |
|
probably didn't want to know that. |
452 |
|
|
453 |
my $nodes_list; |
=cut |
454 |
|
|
455 |
sub list_nodes { |
sub list_nodes { |
456 |
my $self = shift; |
my $self = shift; |
458 |
my $site = shift || $self->{defaultnode}; |
my $site = shift || $self->{defaultnode}; |
459 |
|
|
460 |
# cache? |
# cache? |
461 |
if ($nodes_list->{$site} && ref($nodes_list->{$site} eq 'ARRAY')) { |
if ($self->{nodes_in_site}->{$site} && ref($self->{nodes_in_site}->{$site}) eq 'ARRAY') { |
462 |
$self->{log}->debug("list_nodes for site $site and returns from cache"); |
$self->{log}->debug("list_nodes for site $site and returns from cache"); |
463 |
return @{ $nodes_list->{$site} }; |
return @{ $self->{nodes_in_site}->{$site} }; |
464 |
}; |
}; |
465 |
|
|
466 |
$self->{log}->debug("list_nodes for site $site"); |
$self->{log}->debug("list_nodes for site $site"); |
504 |
$self->setup_site( $site ); |
$self->setup_site( $site ); |
505 |
$self->{est_node}->_set_info; |
$self->{est_node}->_set_info; |
506 |
|
|
507 |
$self->{log}->dumper( \@nodes, 'nodes' ); |
$self->{nodes_in_site}->{$site} = \@nodes; |
|
|
|
|
$nodes_list->{$site} = \@nodes; |
|
508 |
|
|
509 |
return @nodes; |
return @nodes; |
510 |
} |
} |