/[cvs]/nfo/perl/libs/Data/Rap/Metadata.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Rap/Metadata.pm

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

revision 1.3 by joko, Sat Mar 29 07:13:19 2003 UTC revision 1.4 by joko, Sun Jun 20 16:12:24 2004 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2004/06/20 16:12:24  joko
6    ##  + sub indexTargets
7    ##  modified getTargetDetails to use cached target details
8    ##
9  ##  Revision 1.3  2003/03/29 07:13:19  joko  ##  Revision 1.3  2003/03/29 07:13:19  joko
10  ##  better exception handling if target was not found in xml  ##  better exception handling if target was not found in xml
11  ##  ##
# Line 23  use warnings; Line 27  use warnings;
27    
28  use Data::Dumper;  use Data::Dumper;
29  use DesignPattern::Object;  use DesignPattern::Object;
30    use Storable;
31    
32    
33  sub accessMetadata {  sub accessMetadata {
# Line 83  sub getTargetList { Line 88  sub getTargetList {
88  sub getTargetDetails {  sub getTargetDetails {
89    my $self = shift;    my $self = shift;
90    my $target = shift;    my $target = shift;
91      my $options = shift;
92      
93      # check cache and return result from there
94      if (my $result = $self->{cache}->{targets}->{$target} and not $options->{force}) {
95        return $result;
96      }
97        
98    # get metadata for single task from storage    # get metadata for single task from storage
99    my $mdbe = $self->accessMetadata();    my $mdbe = $self->accessMetadata();
# Line 104  sub getTargetDetails { Line 115  sub getTargetDetails {
115    return $tree;    return $tree;
116  }  }
117    
118    sub indexTargets {
119      my $self = shift;
120      my $options = shift;
121      
122      my $filename = 'rap.xml.cache';
123      
124      if ($options->{build}) {
125        $self->log("Building index of Targets", 'notice');
126        # clear cache
127        delete $self->{cache}->{targets};
128        my $list = $self->getTargetList();
129        foreach my $target (@$list) {
130          $self->log("Reading target: $target->{name}", 'info');
131          my $details = $self->getTargetDetails($target->{name}, { force => 1 });
132          $self->{cache}->{targets}->{$target->{name}} = $details;
133        }
134        store $self->{cache}->{targets}, $filename;
135        
136      } elsif ($options->{load}) {
137        if (not -e $filename) {
138          return;
139        }
140        if ($self->{cache}->{targets} = retrieve($filename)) {
141          return 1;
142        }
143      
144      } else {
145        $self->log("Please call with options build or load", 'warning');
146      
147      }
148    }
149    
150  1;  1;
151  __END__  __END__
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed