--- nfo/perl/scripts/shortcuts/rap.pl	2003/03/27 15:58:08	1.4
+++ nfo/perl/scripts/shortcuts/rap.pl	2003/03/29 06:54:59	1.5
@@ -1,9 +1,12 @@
 #!/usr/bin/perl
 
 ## -------------------------------------------------------------------------
-##  $Id: rap.pl,v 1.4 2003/03/27 15:58:08 joko Exp $
+##  $Id: rap.pl,v 1.5 2003/03/29 06:54:59 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: rap.pl,v $
+##  Revision 1.5  2003/03/29 06:54:59  joko
+##  + sub rap_boot
+##
 ##  Revision 1.4  2003/03/27 15:58:08  joko
 ##  enhancement: now can execute perl-programs via 'do' here
 ##
@@ -72,11 +75,19 @@
     print $res, "\n" if $res;
   } else {
     my $rap = Data::Rap->new( target => $argString );
+    rap_boot();
     $rap->start();
     #$rap->stop();
   }
 }
 
+sub rap_boot {
+  # check for another environment-variable: 'RAPBIN'
+  # FIXME: what about 'topic.basedir'??? implement this here!
+  # enhance infrastructure to have per-topic basedirs!!!
+  chdir $ENV{RAPBIN} if $ENV{RAPBIN};
+}
+
 my @args = @ARGV;
 @args = () if not @args;
 main(join(' ', @args));