/[cvs]/nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm
ViewVC logotype

Diff of /nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Tue May 13 09:35:13 2003 UTC revision 1.4 by joko, Fri Dec 5 18:08:20 2003 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.4  2003/12/05 18:08:20  joko
6    ##    + improved: PID and timestamp
7    ##
8    ##    Revision 1.3  2003/12/05 05:08:01  joko
9    ##    + enhanced: more flexible - completely dis-/enable logging - don't do any logging when running tests
10    ##
11  ##    Revision 1.2  2003/05/13 09:35:13  joko  ##    Revision 1.2  2003/05/13 09:35:13  joko
12  ##    fixed log message  ##    fixed log message
13  ##  ##
# Line 32  sub get_attrs_global { Line 38  sub get_attrs_global {
38      my @verbose;      my @verbose;
39            
40      # push all loggers to @dispatchers      # push all loggers to @dispatchers
41      push @dispatchers, 'screen';      if (not $main::LOG_SCREEN_SUPPRESS and not $ENV{LOG_SCREEN_SUPPRESS}) {
42      push @verbose, 'screen:STDOUT';        push @dispatchers, 'screen';
43          push @verbose, 'screen:STDOUT';
44        }
45            
46      #print "logfile: ", $self->{logfile}, "\n";      #print "logfile: ", $self->{logfile}, "\n";
47      push @dispatchers, 'file' if ($self->{file_filename});      if (not $main::LOG_FILE_SUPPRESS and not $ENV{LOG_FILE_SUPPRESS}) {
48      push @verbose, "file:" . $self->{file_filename} if $self->{file_filename};        push @dispatchers, 'file' if ($self->{file_filename});
49          push @verbose, "file:" . $self->{file_filename} if $self->{file_filename};
50        }
51            
52      print STDERR "logging to [", join(" ", @verbose), "]", "\n" if ($self->{verbose});      print STDERR "logging to [", join(" ", @verbose), "]", "\n" if ($self->{verbose});
53      return {      return {
# Line 56  sub get_attrs { Line 66  sub get_attrs {
66              filename  => $self->{file_filename},              filename  => $self->{file_filename},
67              mode      => 'append',              mode      => 'append',
68              #format  => '[%d] [%p] %m at %F line %L%n',              #format  => '[%d] [%p] %m at %F line %L%n',
69              format  => '[%d] [%p] %m%n',              # new as of 2003-12-05:
70                #   [%i] shows process-id (pid)
71                #   dateformat like http://www.w3.org/TR/NOTE-datetime
72                format  => '[%d{%Y-%m-%dT%H:%M:%S}] [%i] [%p] %m%n',
73          };          };
74      }      }
75      elsif ($name eq 'screen') {      elsif ($name eq 'screen') {
# Line 67  sub get_attrs { Line 80  sub get_attrs {
80              #min_level => 'error',              #min_level => 'error',
81              min_level => $self->{screen_min_level},              min_level => $self->{screen_min_level},
82              stderr    => 1,              stderr    => 1,
83              format  => '%p: %m%n',              format  => '[%i] %p: %m%n',
84          };          };
85      }      }
86      else {      else {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed