/[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.6 by jonen, Tue Aug 10 13:59:48 2004 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.6  2004/08/10 13:59:48  jonen
6    ##  + bugfix(use of Storable): the FreeBSD port of Perl 5.8.4 uses 64 bits
7    ##
8    ##  Revision 1.5  2004/06/20 23:00:23  joko
9    ##  minor fix: now creates cache-file in same directory where rap.xml is
10    ##
11    ##  Revision 1.4  2004/06/20 16:12:24  joko
12    ##  + sub indexTargets
13    ##  modified getTargetDetails to use cached target details
14    ##
15  ##  Revision 1.3  2003/03/29 07:13:19  joko  ##  Revision 1.3  2003/03/29 07:13:19  joko
16  ##  better exception handling if target was not found in xml  ##  better exception handling if target was not found in xml
17  ##  ##
# Line 23  use warnings; Line 33  use warnings;
33    
34  use Data::Dumper;  use Data::Dumper;
35  use DesignPattern::Object;  use DesignPattern::Object;
36    use Storable;
37    use File::Basename qw( dirname );
38    
39    # NEW 2004-08-05: needed at FreeBSD perl>=5.4.3
40    # read http://lists.freebsd.org/pipermail/freebsd-ports/2004-June/013169.html
41    # or more detailed at 'perldoc Storable'
42    $Storable::interwork_56_64bit = 1;
43    
44  sub accessMetadata {  sub accessMetadata {
45    my $self = shift;    my $self = shift;
# Line 83  sub getTargetList { Line 99  sub getTargetList {
99  sub getTargetDetails {  sub getTargetDetails {
100    my $self = shift;    my $self = shift;
101    my $target = shift;    my $target = shift;
102      my $options = shift;
103      
104      # check cache and return result from there
105      if (my $result = $self->{cache}->{targets}->{$target} and not $options->{force}) {
106        return $result;
107      }
108        
109    # get metadata for single task from storage    # get metadata for single task from storage
110    my $mdbe = $self->accessMetadata();    my $mdbe = $self->accessMetadata();
# Line 104  sub getTargetDetails { Line 126  sub getTargetDetails {
126    return $tree;    return $tree;
127  }  }
128    
129    sub indexTargets {
130      my $self = shift;
131      my $options = shift;
132      
133      # determine filename for cache-file
134      my $filename = 'rap.xml.cache';
135      if (my $rapfile = $self->{__rap}->{filename}) {
136        if (my $path = dirname($rapfile)) {
137          $filename = $path . '/' . $filename;
138        }
139      }
140      
141      if ($options->{build}) {
142        $self->log("Building index of Targets", 'notice');
143        # clear cache
144        delete $self->{cache}->{targets};
145        my $list = $self->getTargetList();
146        foreach my $target (@$list) {
147          $self->log("Reading target: $target->{name}", 'info');
148          my $details = $self->getTargetDetails($target->{name}, { force => 1 });
149          $self->{cache}->{targets}->{$target->{name}} = $details;
150        }
151        store $self->{cache}->{targets}, $filename;
152        
153      } elsif ($options->{load}) {
154        if (not -e $filename) {
155          return;
156        }
157        if ($self->{cache}->{targets} = retrieve($filename)) {
158          return 1;
159        }
160      
161      } else {
162        $self->log("Please call with options build or load", 'warning');
163      
164      }
165    }
166    
167  1;  1;
168  __END__  __END__
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed