mirror of https://github.com/pragma-/pbot.git
49 lines
1000 B
Perl
49 lines
1000 B
Perl
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
package PBot::Logger;
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use Carp ();
|
|
|
|
sub new {
|
|
if (ref($_[1]) eq 'HASH') {
|
|
Carp::croak("Options to Logger should be key/value pairs, not hash reference");
|
|
}
|
|
|
|
my ($class, %conf) = @_;
|
|
|
|
my $log_file = delete $conf{log_file};
|
|
|
|
if (defined $log_file) {
|
|
open PLOG_FILE, ">>$log_file" or Carp::croak "Couldn't open log file: $!\n" if defined $log_file;
|
|
PLOG_FILE->autoflush(1);
|
|
}
|
|
|
|
my $self = {
|
|
log_file => $log_file,
|
|
};
|
|
|
|
bless $self, $class;
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub log {
|
|
my ($self, $text) = @_;
|
|
my $time = localtime;
|
|
|
|
$text =~ s/(\P{PosixGraph})/my $ch = $1; if ($ch =~ m{[\s]}) { $ch } else { sprintf "\\x%02X", ord $ch }/ge;
|
|
|
|
if (defined $self->{log_file}) {
|
|
print PLOG_FILE "$time :: $text";
|
|
}
|
|
|
|
print "$time :: $text";
|
|
}
|
|
|
|
1;
|