--- nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm	2003/02/18 18:47:36	1.1
+++ nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm	2003/12/12 16:45:04	1.5
@@ -1,7 +1,19 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: Hardwired.pm,v 1.1 2003/02/18 18:47:36 joko Exp $
+##    $Id: Hardwired.pm,v 1.5 2003/12/12 16:45:04 ts-dev Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: Hardwired.pm,v $
+##    Revision 1.5  2003/12/12 16:45:04  ts-dev
+##    format: package & subroutine (%P:: %s)
+##
+##    Revision 1.4  2003/12/05 18:08:20  joko
+##    + improved: PID and timestamp
+##
+##    Revision 1.3  2003/12/05 05:08:01  joko
+##    + enhanced: more flexible - completely dis-/enable logging - don't do any logging when running tests
+##
+##    Revision 1.2  2003/05/13 09:35:13  joko
+##    fixed log message
+##
 ##    Revision 1.1  2003/02/18 18:47:36  joko
 ##    + initial commit
 ##
@@ -24,14 +36,23 @@
 
 sub get_attrs_global {
     my $self = shift;
+    
     my @dispatchers;
+    my @verbose;
     
     # push all loggers to @dispatchers
-    push @dispatchers, 'screen';
+    if (not $main::LOG_SCREEN_SUPPRESS and not $ENV{LOG_SCREEN_SUPPRESS}) {
+      push @dispatchers, 'screen';
+      push @verbose, 'screen:STDOUT';
+    }
+    
     #print "logfile: ", $self->{logfile}, "\n";
-    push @dispatchers, 'file' if ($self->{file_filename});
+    if (not $main::LOG_FILE_SUPPRESS and not $ENV{LOG_FILE_SUPPRESS}) {
+      push @dispatchers, 'file' if ($self->{file_filename});
+      push @verbose, "file:" . $self->{file_filename} if $self->{file_filename};
+    }
     
-    print "logging to [", join(" ", @dispatchers), "]", "\n" if ($self->{verbose});
+    print STDERR "logging to [", join(" ", @verbose), "]", "\n" if ($self->{verbose});
     return {
         format => undef,
         dispatchers => \@dispatchers,
@@ -41,6 +62,7 @@
 sub get_attrs {
     my($self, $name) = @_;
     if ($name eq 'file') {
+			
         return {
             class     => 'Log::Dispatch::File',
             min_level => 'debug',
@@ -48,7 +70,10 @@
             filename  => $self->{file_filename},
             mode      => 'append',
             #format  => '[%d] [%p] %m at %F line %L%n',
-            format  => '[%d] [%p] %m%n',
+            # new as of 2003-12-05:
+            #   [%i] shows process-id (pid)
+            #   dateformat like http://www.w3.org/TR/NOTE-datetime
+            format  => '[%d{%Y-%m-%dT%H:%M:%S}] [%i] [%p] [%P:: %s] %m%n',
         };
     }
     elsif ($name eq 'screen') {
@@ -59,7 +84,7 @@
             #min_level => 'error',
             min_level => $self->{screen_min_level},
             stderr    => 1,
-            format  => '%p: %m%n',
+            format  => '[%i] %p: %m%n',
         };
     }
     else {