percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-26 15:31:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update Logger in pt-agent.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-14 13:50:30 -07:00
parent a26792e2fd
commit bc70912fe8
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
bin/pt-agent
View File

@@ -4868,6 +4868,13 @@ has 'online_logging_enabled' => (
default => sub { return 0 }, default => sub { return 0 },
); );
has 'quiet' => (
is => 'rw',
isa => 'Int',
required => 0,
default => sub { return 0 },
);
has '_buffer' => ( has '_buffer' => (
is => 'rw', is => 'rw',
isa => 'ArrayRef', isa => 'ArrayRef',
@@ -5052,6 +5059,8 @@ sub _log {
my $ts = ts(time, 1); # 1=UTC my $ts = ts(time, 1); # 1=UTC
my $level_number = level_number($level); my $level_number = level_number($level);
return if $self->quiet && $level_number < $self->quiet;
chomp($msg); chomp($msg);
my $n_lines = 1; my $n_lines = 1;
$n_lines++ while $msg =~ m/\n/g; $n_lines++ while $msg =~ m/\n/g;