--- nfo/perl/libs/Data/Rap.pm	2003/02/20 18:44:26	1.3
+++ nfo/perl/libs/Data/Rap.pm	2003/03/28 16:52:41	1.5
@@ -1,7 +1,13 @@
 ## -------------------------------------------------------------------------
-##  $Id: Rap.pm,v 1.3 2003/02/20 18:44:26 joko Exp $
+##  $Id: Rap.pm,v 1.5 2003/03/28 16:52:41 jonen Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: Rap.pm,v $
+##  Revision 1.5  2003/03/28 16:52:41  jonen
+##  now using env-var 'RAPBIN'
+##
+##  Revision 1.4  2003/03/27 15:31:01  joko
+##  fixes to modules regarding new namespace(s) below Data::Mungle::*
+##
 ##  Revision 1.3  2003/02/20 18:44:26  joko
 ##  renamed modules
 ##  + sub find_rules: attempts to find 'rap.xml'
@@ -37,7 +43,7 @@
   And: lots of work, i believe....
   
   Okay:
-  Look at DesignPattern:: and Data::Transform::Deep & Co. (lowlevel stuff)
+  Look at DesignPattern:: and Data::Mungle::Transform::Deep & Co. (lowlevel stuff)
   or OEF::, Data::Storage and Data::Transfer::Sync (highlevel stuff).
 
   And then:
@@ -176,6 +182,9 @@
   #$self->load("Command");
   #$self->load("Metadata");
   #$self->load("Engine");
+
+  # check for another environment-variable: 'RAPBIN'
+  chdir $ENV{RAPBIN} if $ENV{RAPBIN};
   
 }
 
@@ -222,15 +231,22 @@
 
 sub find_rules {
   my $self = shift;
-  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 $basedir;
+  if (my $rapdir = $ENV{RAPDIR}) {
+    $basedir = $rapdir;
+  } else {    
+    my $cwd = cwd();
+
+    (my $volume, my $directory, my $file) = splitpath( $cwd );
+    my @dir = splitdir($directory);
+    pop @dir;
+    #pop @dir;
+    $basedir = catpath($volume, catdir(@dir));
+
+  }
 
-  my $rap_xml = "$base/etc/rap.xml";
+  my $rap_xml = "$basedir/etc/rap.xml";
   return $rap_xml;
 }