--- nfo/perl/libs/Log/Dispatch/Config/Object.pm	2003/02/18 16:37:22	1.2
+++ nfo/perl/libs/Log/Dispatch/Config/Object.pm	2003/02/18 18:33:59	1.3
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Object.pm,v 1.2 2003/02/18 16:37:22 joko Exp $
+##  $Id: Object.pm,v 1.3 2003/02/18 18:33:59 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Object.pm,v $
+##  Revision 1.3  2003/02/18 18:33:59  joko
+##  + fix: just logs if possible
+##
 ##  Revision 1.2  2003/02/18 16:37:22  joko
 ##  + fix: ...::Hardwired is an optional module
 ##
@@ -27,9 +30,10 @@
 
 use Data::Dumper;
 use Log::Dispatch;
+use Log::Dispatch::Screen;
 use Log::Dispatch::Config;
-eval ("use Log::Dispatch::Configurator::Hardwired;");
 use Cwd;
+use DesignPattern::Object;
 
 
 # TODO: review, revise and rewire this!
@@ -188,31 +192,43 @@
 
 sub _configure_LogDispatch {
   my $self = shift;
-  my $logHandlerMeta = Log::Dispatch::Configurator::Hardwired->new();
+
+  my $configurator = DesignPattern::Object->fromPackage('Log::Dispatch::Configurator::Hardwired');
   
+  # FIXME?
   my $basepath = cwd() . '/..';
-  #print "base: $basepath", "\n";
-  #exit;
   
   # configure custom logHandler
-    $logHandlerMeta->{file_filename} = "$basepath/var/log/logfile.txt";
-    $logHandlerMeta->{screen_min_level} = 'info';
-    
-    if ($self->{quiet}) {
-      $logHandlerMeta->{screen_min_level} = 8;
-    }
+  
+    if ($configurator) {
+  
+      $configurator->{file_filename} = "$basepath/var/log/logfile.txt";
+      $configurator->{screen_min_level} = 'info';
+      
+      if ($self->{quiet}) {
+        $configurator->{screen_min_level} = 8;
+      }
+  
+      if ($self->{debug}) {
+        $configurator->{screen_min_level} = 'debug';
+      }
+      
+      if ($self->{verbose}) {
+        $configurator->{verbose} = 1;
+      }
 
-    if ($self->{debug}) {
-      $logHandlerMeta->{screen_min_level} = 'debug';
-    }
+      Log::Dispatch::Config->configure($configurator);
+      $self->{__logger}->{instance} = Log::Dispatch::Config->instance;
+
+    } else {
+
+      #Log::Dispatch::Config->configure();
+      #Log::Dispatch->configure();
+      #$self->{__logger}->{instance} = Log::Dispatch->new;
+      $self->{__logger}->{instance} = Log::Dispatch::Screen->new( name => 'screen', 'min_level' => 'debug', stderr => 1 );
     
-    if ($self->{verbose}) {
-      $logHandlerMeta->{verbose} = 1;
     }
 
-  Log::Dispatch::Config->configure($logHandlerMeta);
-
-  $self->{__logger}->{instance} = Log::Dispatch::Config->instance;
 
 }