/[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.4 by joko, Sun Jun 20 16:12:24 2004 UTC revision 1.5 by joko, Sun Jun 20 23:00:23 2004 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.5  2004/06/20 23:00:23  joko
6    ##  minor fix: now creates cache-file in same directory where rap.xml is
7    ##
8  ##  Revision 1.4  2004/06/20 16:12:24  joko  ##  Revision 1.4  2004/06/20 16:12:24  joko
9  ##  + sub indexTargets  ##  + sub indexTargets
10  ##  modified getTargetDetails to use cached target details  ##  modified getTargetDetails to use cached target details
# Line 28  use warnings; Line 31  use warnings;
31  use Data::Dumper;  use Data::Dumper;
32  use DesignPattern::Object;  use DesignPattern::Object;
33  use Storable;  use Storable;
34    use File::Basename qw( dirname );
35    
36    
37  sub accessMetadata {  sub accessMetadata {
# Line 119  sub indexTargets { Line 123  sub indexTargets {
123    my $self = shift;    my $self = shift;
124    my $options = shift;    my $options = shift;
125        
126      # determine filename for cache-file
127    my $filename = 'rap.xml.cache';    my $filename = 'rap.xml.cache';
128      if (my $rapfile = $self->{__rap}->{filename}) {
129        if (my $path = dirname($rapfile)) {
130          $filename = $path . '/' . $filename;
131        }
132      }
133        
134    if ($options->{build}) {    if ($options->{build}) {
135      $self->log("Building index of Targets", 'notice');      $self->log("Building index of Targets", 'notice');
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed