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

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

View File

@@ -7600,6 +7600,7 @@ sub send_data {
my $client = $args{client}; # for testing
my $entry_links = $args{entry_links}; # 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
# logging yet, cron should capture this error and email the user.
@@ -7637,8 +7638,13 @@ sub send_data {
);
$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");
my $data_link = $service->links->{data};
my $data_link = $service->links->{data};
$logger->info("Sending " . scalar @data_files . " data files ($data_link)");
# Connect to Percona, get entry links.