3 use constant NONE => 0;
4 use constant INFO => 1;
5 use constant DEBUG1 => 2;
6 use constant DEBUG2 => 3;
8 use constant FILE_TARGET => 0;
9 use constant STDERR_TARGET => 1;
11 use POSIX qw(strftime);
13 my $data_dumper_available;
16 eval("use Data::Dumper");
17 $data_dumper_available = $@ ? 0 : 1;
20 $global_trace_subs = 0;
27 $self->{"calldepth"} = 0;
28 $self->{"file"} = "/tmp/lx-office-debug.log";
29 $self->{"target"} = FILE_TARGET;
31 $self->{"trace_subs"} = 0;
34 $self->{ $_[0] } = $_[1];
43 my ($self, $target, $file) = @_;
45 if ((FILE_TARGET == $target) && $file) {
46 $self->{"file"} = $file;
47 $self->{"target"} = FILE_TARGET;
49 } elsif (STDERR_TARGET == $target) {
50 $self->{"target"} = STDERR_TARGET;
57 if (!$self->{"trace_subs"} && !$global_trace_subs) {
61 my ($package, $filename, $line, $subroutine) = caller(1);
62 my ($dummy1, $self_filename, $self_line) = caller(0);
64 my $indent = " " x $self->{"calldepth"};
65 $self->{"calldepth"} += 1;
67 if (!defined($package)) {
68 $self->_write("enter_sub", $indent . "top-level?\n");
70 $self->_write("enter_sub",
73 . "${self_filename}:${self_line} called from "
74 . "${filename}:${line}\n");
81 if (!$self->{"trace_subs"} && !$global_trace_subs) {
85 my ($package, $filename, $line, $subroutine) = caller(1);
86 my ($dummy1, $self_filename, $self_line) = caller(0);
88 $self->{"calldepth"} -= 1;
89 my $indent = " " x $self->{"calldepth"};
91 if (!defined($package)) {
92 $self->_write("leave_sub", $indent . "top-level?\n");
94 $self->_write("leave_sub",
95 $indent . "${subroutine} in " . "${self_filename}:${self_line}\n");
100 my ($self, $level, $message) = @_;
101 my ($log_level) = $self->{"level"};
103 if ($global_level && ($global_level > $log_level)) {
104 $log_level = $global_level;
107 if ($log_level >= $level) {
108 $self->_write(INFO == $level
110 : DEBUG1 == $level ? "debug1" : "debug2",
116 my ($self, $level, $name, $variable) = @_;
118 if ($data_dumper_available) {
119 $self->message($level, "dumping ${name}:\n" . Dumper($variable));
121 $self->message($level,
122 "dumping ${name}: Data::Dumper not available; "
123 . "variable cannot be dumped");
127 sub enable_sub_tracing {
129 $self->{"trace_subs"} = 1;
132 sub disable_sub_tracing {
134 $self->{"trace_subs"} = 1;
138 my ($self, $prefix, $message) = @_;
139 my $date = strftime("%Y-%m-%d %H:%M:%S $$ ${prefix}: ", localtime(time()));
144 if ((FILE_TARGET == $self->{"target"})
145 && open(FILE, ">>" . $self->{"file"})) {
146 print(FILE "${date}${message}\n");
149 } elsif (STDERR_TARGET == $self->{"target"}) {
150 print(STDERR "${date}${message}\n");