--- nfo/perl/libs/Data/Rap/Engine.pm	2003/02/21 01:46:17	1.3
+++ nfo/perl/libs/Data/Rap/Engine.pm	2003/02/22 16:51:21	1.4
@@ -1,7 +1,11 @@
 ## ----------------------------------------------------------------------
-##  $Id: Engine.pm,v 1.3 2003/02/21 01:46:17 joko Exp $
+##  $Id: Engine.pm,v 1.4 2003/02/22 16:51:21 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Engine.pm,v $
+##  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 +45,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 +111,7 @@
   my $command = shift;
 
   if (!$command) {
-    $self->log("Command was empty!", 'warning');
+    $self->log("Command was empty!", 'debug');
     return;
   }
 
@@ -290,6 +299,16 @@
     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\"";
       }