2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.4 2003/03/29 07:16:00 joko |
6 |
|
## minor update: changed default log-file-name to 'perl_app.log' |
7 |
|
## |
8 |
## Revision 1.3 2003/03/28 07:23:25 joko |
## Revision 1.3 2003/03/28 07:23:25 joko |
9 |
## fix to basepath calculation |
## fix to basepath calculation |
10 |
## |
## |
339 |
|
|
340 |
if ($configurator) { |
if ($configurator) { |
341 |
|
|
342 |
$configurator->{file_filename} = "$basepath/app.log"; |
$configurator->{file_filename} = "$basepath/perl_app.log"; |
343 |
$configurator->{screen_min_level} = 'info'; |
$configurator->{screen_min_level} = 'info'; |
344 |
|
|
345 |
if ($self->{quiet}) { |
if ($self->{quiet}) { |