Revision 82bb6389
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 39 | 39 |
my $type = shift; |
| 40 | 40 |
my $self = {};
|
| 41 | 41 |
|
| 42 |
_init_globals_from_config(); |
|
| 43 |
|
|
| 42 | 44 |
$self->{"calldepth"} = 0;
|
| 43 | 45 |
$self->{"file"} = $file_name || "/tmp/lx-office-debug.log";
|
| 44 | 46 |
$self->{"target"} = FILE_TARGET;
|
| ... | ... | |
| 53 | 55 |
bless($self, $type); |
| 54 | 56 |
} |
| 55 | 57 |
|
| 58 |
my $globals_inited_from_config; |
|
| 59 |
sub _init_globals_from_config {
|
|
| 60 |
return if $globals_inited_from_config; |
|
| 61 |
$globals_inited_from_config = 1; |
|
| 62 |
|
|
| 63 |
my $cfg = $::lx_office_conf{debug} || {};
|
|
| 64 |
|
|
| 65 |
$global_level = NONE() if $cfg->{global_level} =~ /NONE/;
|
|
| 66 |
foreach my $level (grep { $_} split(m/\s+/, $cfg->{global_level})) {
|
|
| 67 |
$global_level |= eval "${level}()";
|
|
| 68 |
} |
|
| 69 |
|
|
| 70 |
$watch_form = $cfg->{watch_form};
|
|
| 71 |
$file_name = $cfg->{file_name} || "/tmp/lx-office-debug.log";
|
|
| 72 |
} |
|
| 73 |
|
|
| 56 | 74 |
sub set_target {
|
| 57 | 75 |
my ($self, $target, $file) = @_; |
| 58 | 76 |
|
Auch abrufbar als: Unified diff
Initialisierung von LXDebug von lx-erp.conf nach lx_office.conf verschoben