3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-23 04:19:27 +01:00
pbot/lib/PBot/Core/Utils/SQLiteLogger.pm
2023-04-13 21:04:12 -07:00

60 lines
1.4 KiB
Perl

# File: SQLiteLogger
#
# Purpose: Logs SQLite trace messages to Logger.pm with profiling of elapsed
# time between messages.
# SPDX-FileCopyrightText: 2014-2023 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
package PBot::Core::Utils::SQLiteLogger;
use PBot::Imports;
use Time::HiRes qw(gettimeofday);
sub new($class, %args) {
my $self = {
pbot => $args{pbot},
buf => '',
timestamp => scalar gettimeofday,
};
return bless $self, $class;
}
sub log($self) {
$self->{buf} .= shift;
# DBI feeds us pieces at a time, so accumulate a complete line
# before outputing
if ($self->{buf} =~ tr/\n//) {
$self->log_message;
$self->{buf} = '';
}
}
sub log_message($self) {
my $now = gettimeofday;
my $elapsed = $now - $self->{timestamp};
# log SQL statements that take more than 100ms since the last log
if ($elapsed >= 0.100) { $self->{pbot}->{logger}->log("^^^ SLOW SQL ^^^\n"); }
# log SQL statement and elapsed duration since last statement
$elapsed = sprintf '%10.3f', $elapsed;
$self->{pbot}->{logger}->log("$elapsed : $self->{buf}");
# update timestamp
$self->{timestamp} = $now;
}
sub close($self) {
# log anything left in buf when closing
if ($self->{buf}) {
$self->log_message;
$self->{buf} = '';
}
}
1;