3 use constant NONE => 0;
4 use constant INFO => 1;
5 use constant DEBUG1 => 2;
6 use constant DEBUG2 => 3;
7 use constant QUERY => 4;
9 use constant FILE_TARGET => 0;
10 use constant STDERR_TARGET => 1;
12 use POSIX qw(strftime);
14 my $data_dumper_available;
17 eval("use Data::Dumper");
18 $data_dumper_available = $@ ? 0 : 1;
21 $global_trace_subs = 0;
28 $self->{"calldepth"} = 0;
29 $self->{"file"} = "/tmp/lx-office-debug.log";
30 $self->{"target"} = FILE_TARGET;
32 $self->{"trace_subs"} = 0;
35 $self->{ $_[0] } = $_[1];
44 my ($self, $target, $file) = @_;
46 if ((FILE_TARGET == $target) && $file) {
47 $self->{"file"} = $file;
48 $self->{"target"} = FILE_TARGET;
50 } elsif (STDERR_TARGET == $target) {
51 $self->{"target"} = STDERR_TARGET;
58 if (!$self->{"trace_subs"} && !$global_trace_subs) {
62 my ($package, $filename, $line, $subroutine) = caller(1);
63 my ($dummy1, $self_filename, $self_line) = caller(0);
65 my $indent = " " x $self->{"calldepth"};
66 $self->{"calldepth"} += 1;
68 if (!defined($package)) {
69 $self->_write("enter_sub", $indent . "top-level?\n");
71 $self->_write("enter_sub",
74 . "${self_filename}:${self_line} called from "
75 . "${filename}:${line}\n");
82 if (!$self->{"trace_subs"} && !$global_trace_subs) {
86 my ($package, $filename, $line, $subroutine) = caller(1);
87 my ($dummy1, $self_filename, $self_line) = caller(0);
89 $self->{"calldepth"} -= 1;
90 my $indent = " " x $self->{"calldepth"};
92 if (!defined($package)) {
93 $self->_write("leave_sub", $indent . "top-level?\n");
95 $self->_write("leave_sub",
96 $indent . "${subroutine} in " . "${self_filename}:${self_line}\n");
101 my ($self, $level, $message) = @_;
102 my ($log_level) = $self->{"level"};
104 if ($global_level && ($global_level > $log_level)) {
105 $log_level = $global_level;
108 if ($log_level >= $level) {
109 $self->_write(INFO == $level ? "info"
110 : DEBUG1 == $level ? "debug1"
111 : DEBUG2 == $level ? "debug2"
112 : QUERY == $level ? "query":"",
118 my ($self, $level, $name, $variable) = @_;
120 if ($data_dumper_available) {
121 $self->message($level, "dumping ${name}:\n" . Dumper($variable));
123 $self->message($level,
124 "dumping ${name}: Data::Dumper not available; "
125 . "variable cannot be dumped");
129 sub enable_sub_tracing {
131 $self->{"trace_subs"} = 1;
134 sub disable_sub_tracing {
136 $self->{"trace_subs"} = 0;
140 my ($self, $prefix, $message) = @_;
141 my $date = strftime("%Y-%m-%d %H:%M:%S $$ ${prefix}: ", localtime(time()));
146 if ((FILE_TARGET == $self->{"target"})
147 && open(FILE, ">>" . $self->{"file"})) {
148 print(FILE "${date}${message}\n");
151 } elsif (STDERR_TARGET == $self->{"target"}) {
152 print(STDERR "${date}${message}\n");