| 4 |
## $Id$ |
## $Id$ |
| 5 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
| 6 |
## $Log$ |
## $Log$ |
| 7 |
|
## Revision 1.2 2003/02/18 19:09:07 jonen |
| 8 |
|
## + cwd for linux bootstrap |
| 9 |
|
## |
| 10 |
## Revision 1.1 2003/02/18 15:30:52 joko |
## Revision 1.1 2003/02/18 15:30:52 joko |
| 11 |
## + initial commit |
## + initial commit |
| 12 |
## |
## |
| 25 |
# ------------------------------------ main ------------ |
# ------------------------------------ main ------------ |
| 26 |
use Data::Dumper; |
use Data::Dumper; |
| 27 |
use Data::Rap; |
use Data::Rap; |
| 28 |
|
use Cwd; |
| 29 |
|
use File::Spec::Functions qw( splitpath splitdir catpath catdir ); |
| 30 |
|
|
| 31 |
|
|
| 32 |
sub find_rules { |
sub find_rules { |
| 33 |
return '../etc/rap.xml'; |
my $cwd = cwd(); |
| 34 |
|
|
| 35 |
|
(my $volume, my $directory, my $file) = splitpath( $cwd ); |
| 36 |
|
my @dir = splitdir($directory); |
| 37 |
|
pop @dir; |
| 38 |
|
#pop @dir; |
| 39 |
|
my $base = catpath($volume, catdir(@dir)); |
| 40 |
|
|
| 41 |
|
my $rap_xml = "$base/etc/rap.xml"; |
| 42 |
|
return $rap_xml; |
| 43 |
} |
} |
| 44 |
|
|
| 45 |
sub main { |
sub main { |
Parent Directory
| 
Revision Log
| 
Patch
