2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/02/18 18:33:59 joko |
6 |
|
## + fix: just logs if possible |
7 |
|
## |
8 |
## Revision 1.2 2003/02/18 16:37:22 joko |
## Revision 1.2 2003/02/18 16:37:22 joko |
9 |
## + fix: ...::Hardwired is an optional module |
## + fix: ...::Hardwired is an optional module |
10 |
## |
## |
30 |
|
|
31 |
use Data::Dumper; |
use Data::Dumper; |
32 |
use Log::Dispatch; |
use Log::Dispatch; |
33 |
|
use Log::Dispatch::Screen; |
34 |
use Log::Dispatch::Config; |
use Log::Dispatch::Config; |
|
eval ("use Log::Dispatch::Configurator::Hardwired;"); |
|
35 |
use Cwd; |
use Cwd; |
36 |
|
use DesignPattern::Object; |
37 |
|
|
38 |
|
|
39 |
# TODO: review, revise and rewire this! |
# TODO: review, revise and rewire this! |
192 |
|
|
193 |
sub _configure_LogDispatch { |
sub _configure_LogDispatch { |
194 |
my $self = shift; |
my $self = shift; |
195 |
my $logHandlerMeta = Log::Dispatch::Configurator::Hardwired->new(); |
|
196 |
|
my $configurator = DesignPattern::Object->fromPackage('Log::Dispatch::Configurator::Hardwired'); |
197 |
|
|
198 |
|
# FIXME? |
199 |
my $basepath = cwd() . '/..'; |
my $basepath = cwd() . '/..'; |
|
#print "base: $basepath", "\n"; |
|
|
#exit; |
|
200 |
|
|
201 |
# configure custom logHandler |
# configure custom logHandler |
202 |
$logHandlerMeta->{file_filename} = "$basepath/var/log/logfile.txt"; |
|
203 |
$logHandlerMeta->{screen_min_level} = 'info'; |
if ($configurator) { |
204 |
|
|
205 |
if ($self->{quiet}) { |
$configurator->{file_filename} = "$basepath/var/log/logfile.txt"; |
206 |
$logHandlerMeta->{screen_min_level} = 8; |
$configurator->{screen_min_level} = 'info'; |
207 |
} |
|
208 |
|
if ($self->{quiet}) { |
209 |
|
$configurator->{screen_min_level} = 8; |
210 |
|
} |
211 |
|
|
212 |
|
if ($self->{debug}) { |
213 |
|
$configurator->{screen_min_level} = 'debug'; |
214 |
|
} |
215 |
|
|
216 |
|
if ($self->{verbose}) { |
217 |
|
$configurator->{verbose} = 1; |
218 |
|
} |
219 |
|
|
220 |
if ($self->{debug}) { |
Log::Dispatch::Config->configure($configurator); |
221 |
$logHandlerMeta->{screen_min_level} = 'debug'; |
$self->{__logger}->{instance} = Log::Dispatch::Config->instance; |
222 |
} |
|
223 |
|
} else { |
224 |
|
|
225 |
|
#Log::Dispatch::Config->configure(); |
226 |
|
#Log::Dispatch->configure(); |
227 |
|
#$self->{__logger}->{instance} = Log::Dispatch->new; |
228 |
|
$self->{__logger}->{instance} = Log::Dispatch::Screen->new( name => 'screen', 'min_level' => 'debug', stderr => 1 ); |
229 |
|
|
|
if ($self->{verbose}) { |
|
|
$logHandlerMeta->{verbose} = 1; |
|
230 |
} |
} |
231 |
|
|
|
Log::Dispatch::Config->configure($logHandlerMeta); |
|
|
|
|
|
$self->{__logger}->{instance} = Log::Dispatch::Config->instance; |
|
232 |
|
|
233 |
} |
} |
234 |
|
|