percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 03:59:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Set logger service and data_ts.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-09 20:03:15 -07:00
parent 2b6097028d
commit 317b7d538b
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
bin/pt-agent
View File

@@ -6759,6 +6759,8 @@ sub run_service {
my $log_link = $agent->links->{log};
$logger->info("Starting online logging. No more log entries will be printed here. "
. "Agent logs are accessible through the web interface.");
$logger->service($service);
$logger->data_ts($prefix);
$logger->start_online_logging(
client => $logger_client,
log_link => $log_link,
@@ -7179,6 +7181,7 @@ sub send_data {
my $log_link = $agent->links->{log};
$logger->info("Starting online logging. No more log entries will be printed here. "
. "Agent logs are accessible through the web interface.");
$logger->service($service);
$logger->start_online_logging(
client => $logger_client,
log_link => $log_link,
@@ -7204,7 +7207,10 @@ sub send_data {
DATA_FILE:
foreach my $data_file ( glob "$service_dir/*.data" ) {
(my $meta_file = $data_file) =~ s/\.data/.meta/;
my ($data_ts) = $data_file =~ m/\/(\d+)\.\w+/;
if ( $data_ts ) {
$logger->data_ts($data_ts);
}
eval {
# Send the file as-is. The --run-service process should
# have written the data in a format that's ready to send.