Reconnect to MySQL with latest DSN each interval if configured. Re-get MySQL version if connection fails. Reduce first config wait from 60s to 20s. Report JSON, LWP, IO::Socket::SSL, and DBD::mysql versions. Fix Percona::Agent::Logger::debug().

This commit is contained in:
Daniel Nichter
2013-12-10 19:07:36 -08:00
parent 1f93caf67c
commit 85ac9cbc5a
2 changed files with 108 additions and 101 deletions

View File

@@ -250,7 +250,7 @@ sub level_name {
sub debug {
my $self = shift;
return if $self->online_logging;
return $self->_log(0, 'DEBUG', 1, @_);
return $self->_log(0, 'DEBUG', @_);
}
sub info {
@@ -287,7 +287,7 @@ sub _set_exit_status {
}
sub _log {
my ($self, $online, $level, $msg, $offline) = @_;
my ($self, $online, $level, $msg) = @_;
my $ts = ts(time, 1); # 1=UTC
my $level_number = level_number($level);