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

Make Percona::Agent::Logger::debug() offline (--no-log-api) only. Change most info() to debug() to reduce agent's verbosity.

Browse Source
This commit is contained in:
Daniel Nichter
2013-09-19 11:33:33 -07:00
parent 11d459b342
commit dd5b2fb449
2 changed files with 89 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/Percona/Agent/Logger.pm
View File

@@ -252,30 +252,31 @@ sub level_name {
sub debug {
my $self = shift;
return $self->_log('DEBUG', @_);
return if $self->online_logging;
return $self->_log(0, 'DEBUG', 1, @_);
}
sub info {
my $self = shift;
return $self->_log('INFO', @_);
return $self->_log(1, 'INFO', @_);
}
sub warning {
my $self = shift;
$self->_set_exit_status();
return $self->_log('WARNING', @_);
return $self->_log(1, 'WARNING', @_);
}
sub error {
my $self = shift;
$self->_set_exit_status();
return $self->_log('ERROR', @_);
return $self->_log(1, 'ERROR', @_);
}
sub fatal {
my $self = shift;
$self->_set_exit_status();
$self->_log('FATAL', @_);
$self->_log(1, 'FATAL', @_);
exit $self->exit_status;
}
@@ -289,7 +290,7 @@ sub _set_exit_status {
}
sub _log {
my ($self, $level, $msg) = @_;
my ($self, $online, $level, $msg, $offline) = @_;
my $ts = ts(time, 1); # 1=UTC
my $level_number = level_number($level);
@@ -300,14 +301,14 @@ sub _log {
my $n_lines = 1;
$n_lines++ while $msg =~ m/\n/g;
if ( $self->online_logging_enabled ) {
if ( $online && $self->online_logging_enabled ) {
while ( defined(my $log_entry = shift @{$self->_buffer}) ) {
$self->_queue_log_entry(@$log_entry);
}
$self->_queue_log_entry($ts, $level_number, $n_lines, $msg);
}
else {
if ( $self->online_logging ) {
if ( $online && $self->online_logging ) {
push @{$self->_buffer}, [$ts, $level_number, $n_lines, $msg];
}