--- nfo/perl/libs/Data/Rap/Engine.pm	2003/02/20 19:46:33	1.2
+++ nfo/perl/libs/Data/Rap/Engine.pm	2003/02/22 16:51:21	1.4
@@ -1,7 +1,14 @@
 ## ----------------------------------------------------------------------
-##  $Id: Engine.pm,v 1.2 2003/02/20 19:46:33 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
+##
 ##  Revision 1.2  2003/02/20 19:46:33  joko
 ##  renamed and revamped some of modules
 ##  renamed methods
@@ -38,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;
 
@@ -99,7 +111,7 @@
   my $command = shift;
 
   if (!$command) {
-    $self->log("Command was empty!", 'warning');
+    $self->log("Command was empty!", 'debug');
     return;
   }
 
@@ -155,7 +167,7 @@
     #print "DATA NEE! - MERGE!", "\n";
     #print Dumper($data_new);
     #exit;
-    #hash2object($self, $data_new);
+    #merge_to($self, $data_new);
     $self->set_property( { name => $name, value => $data_new } );
     
   } else {
@@ -287,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\"";
       }