/[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.3 by joko, Fri Dec 5 05:08:01 2003 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.3  2003/12/05 05:08:01  joko
6    ##    + enhanced: more flexible - completely dis-/enable logging - don't do any logging when running tests
7    ##
8  ##    Revision 1.2  2003/05/13 09:35:13  joko  ##    Revision 1.2  2003/05/13 09:35:13  joko
9  ##    fixed log message  ##    fixed log message
10  ##  ##
# Line 32  sub get_attrs_global { Line 35  sub get_attrs_global {
35      my @verbose;      my @verbose;
36            
37      # push all loggers to @dispatchers      # push all loggers to @dispatchers
38      push @dispatchers, 'screen';      if (not $main::LOG_SCREEN_SUPPRESS and not $ENV{LOG_SCREEN_SUPPRESS}) {
39      push @verbose, 'screen:STDOUT';        push @dispatchers, 'screen';
40          push @verbose, 'screen:STDOUT';
41        }
42            
43      #print "logfile: ", $self->{logfile}, "\n";      #print "logfile: ", $self->{logfile}, "\n";
44      push @dispatchers, 'file' if ($self->{file_filename});      if (not $main::LOG_FILE_SUPPRESS and not $ENV{LOG_FILE_SUPPRESS}) {
45      push @verbose, "file:" . $self->{file_filename} if $self->{file_filename};        push @dispatchers, 'file' if ($self->{file_filename});
46          push @verbose, "file:" . $self->{file_filename} if $self->{file_filename};
47        }
48            
49      print STDERR "logging to [", join(" ", @verbose), "]", "\n" if ($self->{verbose});      print STDERR "logging to [", join(" ", @verbose), "]", "\n" if ($self->{verbose});
50      return {      return {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed