/[webpac2]/Webpacus/lib/Webpacus/Model/WebPAC.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Webpacus/lib/Webpacus/Model/WebPAC.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 424 by dpavlin, Sun Mar 19 22:57:05 2006 UTC revision 425 by dpavlin, Sun Mar 26 18:18:01 2006 UTC
# Line 152  to C<defaultnode> from configuration. Line 152  to C<defaultnode> from configuration.
152  sub setup_site {  sub setup_site {
153          my $self = shift;          my $self = shift;
154    
155          my $site = shift;          my $site = shift || $self->{defaultnode};
156          if (! $site) {          if (! $site) {
157                  $site = $self->{defaultnode};                  $self->{log}->warn("not changing site from " . $self->{est_node}->{url});
158                  $self->{log}->warn("using default site $site");                  return;
159          }          }
160    
161          $self->{log}->fatal("setup_site can't find site or defaultnode") unless ($site);          $self->{log}->fatal("setup_site can't find site or defaultnode") unless ($site);
# Line 450  my $nodes_list; Line 450  my $nodes_list;
450  sub list_nodes {  sub list_nodes {
451          my $self = shift;          my $self = shift;
452    
453          my $site = shift;          my $site = shift || $self->{defaultnode};
454    
455            # cache?
456            if ($nodes_list->{$site} && ref($nodes_list->{$site} eq 'ARRAY')) {
457                    $self->{log}->debug("list_nodes for site $site and returns from cache");
458                    return @{ $nodes_list->{$site} };
459            };
460    
461          $self->{log}->debug("list_nodes use site $site");          $self->{log}->debug("list_nodes for site $site");
462    
463          $self->setup_site( $site );          $self->setup_site( $site );
464    
         # cache?  
         return @{ $nodes_list->{$site} } if ($nodes_list->{$site} && ref($nodes_list->{$site} eq 'ARRAY'));  
   
465          my @nodes;          my @nodes;
466    
467          if ($self->{est_node}->doc_num > 0) {          if ($self->{est_node}->doc_num > 0) {
Legend:
Removed from v.424  
changed lines
  Added in v.425
  ViewVC Help
Powered by ViewVC 1.1.26