--- nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm	2003/12/05 05:08:01	1.3
+++ nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm	2003/12/05 18:08:20	1.4
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: Hardwired.pm,v 1.3 2003/12/05 05:08:01 joko Exp $
+##    $Id: Hardwired.pm,v 1.4 2003/12/05 18:08:20 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: Hardwired.pm,v $
+##    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
 ##
@@ -63,7 +66,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] %m%n',
         };
     }
     elsif ($name eq 'screen') {
@@ -74,7 +80,7 @@
             #min_level => 'error',
             min_level => $self->{screen_min_level},
             stderr    => 1,
-            format  => '%p: %m%n',
+            format  => '[%i] %p: %m%n',
         };
     }
     else {