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 |
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 { |
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'); |