| 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}) { |