From bc70912fe8b16e02ef81c5df3a603e3936ac513a Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Fri, 14 Jun 2013 13:50:30 -0700
Subject: [PATCH] Update Logger in pt-agent.

---
 bin/pt-agent | 9 +++++++++
 1 file changed, 9 insertions(+)

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