--- nfo/perl/scripts/shortcuts/rap.pl	2003/02/18 15:30:52	1.1
+++ nfo/perl/scripts/shortcuts/rap.pl	2003/02/18 19:09:07	1.2
@@ -1,9 +1,12 @@
 #!/usr/bin/perl
 
 ## -------------------------------------------------------------------------
-##  $Id: rap.pl,v 1.1 2003/02/18 15:30:52 joko Exp $
+##  $Id: rap.pl,v 1.2 2003/02/18 19:09:07 jonen Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: rap.pl,v $
+##  Revision 1.2  2003/02/18 19:09:07  jonen
+##  + cwd for linux bootstrap
+##
 ##  Revision 1.1  2003/02/18 15:30:52  joko
 ##  + initial commit
 ##
@@ -22,9 +25,21 @@
 # ------------------------------------   main   ------------
 use Data::Dumper;
 use Data::Rap;
+use Cwd;
+use File::Spec::Functions qw( splitpath splitdir catpath catdir );
+
 
 sub find_rules {
-  return '../etc/rap.xml';
+  my $cwd = cwd();
+
+  (my $volume, my $directory, my $file) = splitpath( $cwd );
+  my @dir = splitdir($directory);
+  pop @dir;
+  #pop @dir;
+  my $base = catpath($volume, catdir(@dir));
+
+  my $rap_xml = "$base/etc/rap.xml";
+  return $rap_xml;
 }
 
 sub main {