percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 18:30:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add 0-30s random delay to send_data().

Browse Source
This commit is contained in:
Daniel Nichter
2013-09-23 14:56:30 -07:00
parent 862765db6e
commit 8bdfcd7838
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
bin/pt-agent
View File

@@ -7600,6 +7600,7 @@ sub send_data {
my $client = $args{client}; # for testing my $client = $args{client}; # for testing
my $entry_links = $args{entry_links}; # for testing my $entry_links = $args{entry_links}; # for testing
my $json = $args{json}; # for testing my $json = $args{json}; # for testing
my $delay = defined $args{delay} ? $args{delay} : rand(30); # for testing
# Can't do anything with the lib dir. Since we haven't started # Can't do anything with the lib dir. Since we haven't started
# logging yet, cron should capture this error and email the user. # logging yet, cron should capture this error and email the user.
@@ -7637,8 +7638,13 @@ sub send_data {
); );
$daemon->run(); $daemon->run();
# Spool time is +/- [0, 1] minute from API, we randomize that further
# by a few seconds to prevent all agents from sending at exactly
# 00:01:00, 00:00:00, or 00:02:00.
sleep $delay if $delay;
$logger->service("$service_name send"); $logger->service("$service_name send");
my $data_link = $service->links->{data}; my $data_link = $service->links->{data};
$logger->info("Sending " . scalar @data_files . " data files ($data_link)"); $logger->info("Sending " . scalar @data_files . " data files ($data_link)");
# Connect to Percona, get entry links. # Connect to Percona, get entry links.

1
t/pt-agent/send_data.t
View File

@@ -127,6 +127,7 @@ my $output = output(
agent => $agent, agent => $agent,
log_file => "$tmpdir/log", log_file => "$tmpdir/log",
json => $json, json => $json,
delay => 0,
), ),
}, },
); );