percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-23 12:47:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

Retry 403 in init_agent(), warning just once.

Browse Source
This commit is contained in:
Daniel Nichter
2013-09-23 12:06:05 -07:00
parent f6f121ca82
commit ec2343f379
2 changed files with 25 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
bin/pt-agent
View File

@@ -5771,8 +5771,10 @@ sub init_agent {
# Try to create/update the Agent.
my $success = 0;
while ( $_oktorun->() && $tries-- ) {
if ( !$state->{init_action}++ ) {
$logger->info($action eq 'put' ? "Updating agent " . $agent->name
: "Creating new agent");
}
my $agent_uri = eval {
$client->$action(
link => $link,
@@ -5796,10 +5798,12 @@ sub init_agent {
}
}
elsif ( $code && $code == 403 ) {
$logger->error("API reports too many agents. Check "
if ( !$state->{too_many_agents}++ ) {
$logger->warning("API reports too many agents. Check "
. "https://cloud.percona.com/agents for the list of "
. "installed agents, delete unused agents, and try again.");
last;
. "installed agents. Will try again $tries times, "
. "but this warning will not be printed again.");
}
}
else {
$logger->warning($EVAL_ERROR);
@@ -5830,6 +5834,9 @@ sub init_agent {
}
}
delete $state->{init_action};
delete $state->{too_many_agents};
if ( $agent && $success ) {
$logger->info("Agent " . $agent->name . " (" . $agent->uuid . ") is ready");
}

16
t/pt-agent/init_agent.t
View File

@@ -199,7 +199,7 @@ is_deeply(
) or diag(Dumper($ua->{requests}));
like(
$log[3],
$log[2],
qr{WARNING Failed to POST /agents},
"POST /agents failure logged after error"
) or diag(Dumper($ua->{requests}), Dumper(\@log));
@@ -306,18 +306,26 @@ $output = output(
is(
scalar @wait,
0,
"Too many agents (403): no wait"
2,
"Too many agents (403): waits"
);
is_deeply(
$ua->{requests},
[
'POST /agents',
'POST /agents',
],
"Too many agents (403): no further requests"
"Too many agents (403): tries"
) or diag(Dumper($ua->{requests}));
my $n = grep { $_ =~ m/too many agents/ } @log;
is(
$n,
1,
"Too many agents (403): does not repeat warning"
) or diag(Dumper(\@log));
# #############################################################################
# Done.
# #############################################################################