| 2 |
## $Id$ |
## $Id$ |
| 3 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.5 2003/03/28 16:52:41 jonen |
| 6 |
|
## now using env-var 'RAPBIN' |
| 7 |
|
## |
| 8 |
## Revision 1.4 2003/03/27 15:31:01 joko |
## Revision 1.4 2003/03/27 15:31:01 joko |
| 9 |
## fixes to modules regarding new namespace(s) below Data::Mungle::* |
## fixes to modules regarding new namespace(s) below Data::Mungle::* |
| 10 |
## |
## |
| 182 |
#$self->load("Command"); |
#$self->load("Command"); |
| 183 |
#$self->load("Metadata"); |
#$self->load("Metadata"); |
| 184 |
#$self->load("Engine"); |
#$self->load("Engine"); |
| 185 |
|
|
| 186 |
|
# check for another environment-variable: 'RAPBIN' |
| 187 |
|
chdir $ENV{RAPBIN} if $ENV{RAPBIN}; |
| 188 |
|
|
| 189 |
} |
} |
| 190 |
|
|
| 231 |
|
|
| 232 |
sub find_rules { |
sub find_rules { |
| 233 |
my $self = shift; |
my $self = shift; |
|
my $cwd = cwd(); |
|
| 234 |
|
|
| 235 |
(my $volume, my $directory, my $file) = splitpath( $cwd ); |
my $basedir; |
| 236 |
my @dir = splitdir($directory); |
if (my $rapdir = $ENV{RAPDIR}) { |
| 237 |
pop @dir; |
$basedir = $rapdir; |
| 238 |
#pop @dir; |
} else { |
| 239 |
my $base = catpath($volume, catdir(@dir)); |
my $cwd = cwd(); |
| 240 |
|
|
| 241 |
|
(my $volume, my $directory, my $file) = splitpath( $cwd ); |
| 242 |
|
my @dir = splitdir($directory); |
| 243 |
|
pop @dir; |
| 244 |
|
#pop @dir; |
| 245 |
|
$basedir = catpath($volume, catdir(@dir)); |
| 246 |
|
|
| 247 |
|
} |
| 248 |
|
|
| 249 |
my $rap_xml = "$base/etc/rap.xml"; |
my $rap_xml = "$basedir/etc/rap.xml"; |
| 250 |
return $rap_xml; |
return $rap_xml; |
| 251 |
} |
} |
| 252 |
|
|
Parent Directory
| 
Revision Log
| 
Patch
