--- nfo/perl/libs/Data/Rap/Engine.pm	2003/02/21 01:46:17	1.3
+++ nfo/perl/libs/Data/Rap/Engine.pm	2003/03/27 15:03:03	1.5
@@ -1,7 +1,14 @@
 ## ----------------------------------------------------------------------
-##  $Id: Engine.pm,v 1.3 2003/02/21 01:46:17 joko Exp $
+##  $Id: Engine.pm,v 1.5 2003/03/27 15:03:03 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Engine.pm,v $
+##  Revision 1.5  2003/03/27 15:03:03  joko
+##  enhanced 'sub run_executable'
+##
+##  Revision 1.4  2003/02/22 16:51:21  joko
+##  + enhanced run_executable
+##  modified logging output
+##
 ##  Revision 1.3  2003/02/21 01:46:17  joko
 ##  renamed core function
 ##
@@ -41,7 +48,12 @@
   my $self = shift;
   my $targetname = shift;
 
-  $self->log("Performing Target '$targetname'.", 'notice');
+  my $header = ("- " x 12) . "   " . $targetname . "   " . ("- " x 6);
+  
+  #$self->log("- " x 35, 'notice');
+  #$self->log("Performing Target '$targetname'.", 'notice');
+
+  $self->log($header, 'notice');
 
   #exit;
 
@@ -102,7 +114,7 @@
   my $command = shift;
 
   if (!$command) {
-    $self->log("Command was empty!", 'warning');
+    $self->log("Command was empty!", 'debug');
     return;
   }
 
@@ -287,16 +299,45 @@
     my $program = $opts->{executable};
     delete $opts->{executable};
 
+    # determine execution method
+    my $method = 'run_cmd';
+    my $wrapper_program = '';
+    
+    # check if program is a namespace-string (contains '::') - use 'do' in this case!
+    if ($program =~ /::/) {
+    #if ($program =~ s/::/\\/g) {
+      #$program = '.\\' . $program;
+      #$method = 'require';
+      #do "$program";
+      #return;
+      #$method = 'rap.';
+      
+      $wrapper_program = 'rap.pl';
+      
+    }
+
+    # prepare arguments
     my @buf;
     foreach (keys %$opts) {
       my $value = $opts->{$_};
+      if (m/^_/) {
+        if ($_ eq '_switches') {
+          my @switches = split(/,\s|,/, $value);
+          foreach my $switch (@switches) {
+            push @buf, '--' . $switch;
+          }
+        }
+        next;
+      }
+      
       if ($value =~ /\s/) {
         $value = "\"$value\"";
       }
       push @buf, "--$_=$value";
     }
-  
-    my $cmd = $program . ' ' . join(' ', @buf);
+
+    # build {program} & {arguments}  
+    my $cmd = join(' ', $wrapper_program, $program) . ' ' . join(' ', @buf);
     
     # trace
       #print "command: $cmd", "\n";
@@ -309,7 +350,21 @@
       $ENV{PERL5LIB} = $INC[0];
       
       #print Dumper(%ENV);
-      run_cmd($cmd);
+      
+      print "command: '$cmd'", "\n";
+
+      # V1 - basic
+      #run_cmd($cmd);
+
+      # V1.b - enhanced: variable local method
+      my $evalstr = "$method('$cmd');";
+      eval($evalstr);
+      #my $res = do "$cmd";
+      #print $res, "\n" if $res;
+
+      #$self->log("run_executable: $evalstr", 'info');
+      $self->raiseException("run_executable: $evalstr\n$@") if $@;
+
       # V2: via IPC::Run
       # ....  (TODO)