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 |
## |
## |
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 { |