GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-23 04:19:27 +01:00
Code Issues Projects Releases Wiki Activity

Logger: Add milliseconds to timestamp

Browse Source
This commit is contained in:
Pragmatic Software 2021-07-16 19:08:28 -07:00
parent 329709ab4c
commit a7cedd2354
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/PBot/Logger.pm
View File

@ -12,6 +12,8 @@ use PBot::Imports;
use Scalar::Util qw/openhandle/; use Scalar::Util qw/openhandle/;
use File::Basename; use File::Basename;
use File::Copy; use File::Copy;
use Time::HiRes qw/gettimeofday/;
use POSIX;
sub new { sub new {
my ($class, %args) = @_; my ($class, %args) = @_;
@ -54,7 +56,9 @@ sub log {
my ($self, $text) = @_; my ($self, $text) = @_;
# get current time # get current time
my $time = localtime; my ($sec, $usec) = gettimeofday;
my $time = strftime "%a %b %e %Y %H:%M:%S", localtime $sec;
$time .= sprintf ".%03d", $usec / 1000;
# replace potentially log-corrupting characters (colors, gibberish, etc) # replace potentially log-corrupting characters (colors, gibberish, etc)
$text =~ s/(\P{PosixGraph})/my $ch = $1; if ($ch =~ m{[\s]}) { $ch } else { sprintf "\\x%02X", ord $ch }/ge; $text =~ s/(\P{PosixGraph})/my $ch = $1; if ($ch =~ m{[\s]}) { $ch } else { sprintf "\\x%02X", ord $ch }/ge;