2 |
## $Id$ |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/05/13 09:35:13 joko |
6 |
|
## fixed log message |
7 |
|
## |
8 |
## Revision 1.1 2003/02/18 18:47:36 joko |
## Revision 1.1 2003/02/18 18:47:36 joko |
9 |
## + initial commit |
## + initial commit |
10 |
## |
## |
27 |
|
|
28 |
sub get_attrs_global { |
sub get_attrs_global { |
29 |
my $self = shift; |
my $self = shift; |
30 |
|
|
31 |
my @dispatchers; |
my @dispatchers; |
32 |
|
my @verbose; |
33 |
|
|
34 |
# push all loggers to @dispatchers |
# push all loggers to @dispatchers |
35 |
push @dispatchers, 'screen'; |
push @dispatchers, 'screen'; |
36 |
|
push @verbose, 'screen:STDOUT'; |
37 |
|
|
38 |
#print "logfile: ", $self->{logfile}, "\n"; |
#print "logfile: ", $self->{logfile}, "\n"; |
39 |
push @dispatchers, 'file' if ($self->{file_filename}); |
push @dispatchers, 'file' if ($self->{file_filename}); |
40 |
|
push @verbose, "file:" . $self->{file_filename} if $self->{file_filename}; |
41 |
|
|
42 |
print "logging to [", join(" ", @dispatchers), "]", "\n" if ($self->{verbose}); |
print STDERR "logging to [", join(" ", @verbose), "]", "\n" if ($self->{verbose}); |
43 |
return { |
return { |
44 |
format => undef, |
format => undef, |
45 |
dispatchers => \@dispatchers, |
dispatchers => \@dispatchers, |