--- nfo/perl/libs/Data/Rap/Engine.pm	2003/06/24 20:59:51	1.12
+++ nfo/perl/libs/Data/Rap/Engine.pm	2003/12/05 05:02:08	1.13
@@ -1,7 +1,10 @@
 ## ----------------------------------------------------------------------
-##  $Id: Engine.pm,v 1.12 2003/06/24 20:59:51 jonen Exp $
+##  $Id: Engine.pm,v 1.13 2003/12/05 05:02:08 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Engine.pm,v $
+##  Revision 1.13  2003/12/05 05:02:08  joko
+##  + minor update: disabled some unnecessary loggers or changed to debug-level
+##
 ##  Revision 1.12  2003/06/24 20:59:51  jonen
 ##  added option 'detach'
 ##
@@ -62,6 +65,7 @@
 use Data::Mungle::Transform::Deep qw( expand deep_copy );
 use File::Temp qw/ tempfile tempdir /;
 
+my $DEBUG = 0;
 
 sub performTarget {
   my $self = shift;
@@ -89,7 +93,7 @@
   #$self->log($header, 'notice');
 
   # V3
-  $self->log("- " x 20, 'info');
+  #$self->log("- " x 20, 'info');
   $self->log("Performing Target '$targetname'.", 'notice');
 
   #exit;
@@ -162,12 +166,12 @@
   my $options = shift;
 
   if (!$command) {
-    $self->log("Command was empty!", 'debug');
+    $self->log("Command was empty!", 'debug') if $DEBUG;
     return;
   }
 
   # FIXME: make '__PACKAGE__' go one level deeper properly!
-  $self->log( __PACKAGE__ . "->perform_command: " . $command, 'debug');
+  $self->log( __PACKAGE__ . "->perform_command: " . $command, 'debug') if $DEBUG;
   
   
   # 1. make arguments from list of arguments(?)
@@ -210,7 +214,7 @@
   } else {
     my $level = "debug";
     $level = "warning" if $options->{warn};
-    $self->log("Command '$command' not implemented.", $level);
+    $self->log("Command '$command' not implemented.", $level) if $DEBUG;
   }
   
 }
@@ -337,7 +341,7 @@
 
     $name = '__rap.properties.' . $name;
     
-    $self->log("get-name: $name");
+    $self->log("get-name: $name") if $DEBUG;
     
     # get property slot and return value
     $result = ref_slot($self, $name, undef, '.');