diff options
author | Harald Musum <musum@yahoo-inc.com> | 2016-09-08 11:37:21 +0200 |
---|---|---|
committer | Harald Musum <musum@yahoo-inc.com> | 2016-09-08 11:37:21 +0200 |
commit | 2231572e4f58120875b1b509df26d5a359fc658a (patch) | |
tree | 86bf4095ef40cd29369477e5a9b0dc96a709bec5 /config-model | |
parent | 7fec04ed1344c943ba94c3124553ac07658cf21b (diff) |
Switch config source if successful curl call, but with non-200 response
Diffstat (limited to 'config-model')
-rwxr-xr-x | config-model/src/main/perl/deploy | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/config-model/src/main/perl/deploy b/config-model/src/main/perl/deploy index 47fb64106e0..d62e678c2fb 100755 --- a/config-model/src/main/perl/deploy +++ b/config-model/src/main/perl/deploy @@ -375,9 +375,12 @@ sub http_upload { my $configsource_url_used = $configsource_url; LOOP: { do { + my $status_code; + my $response; $output = http_upload_lowlevel($configsource_url, $application_package); + ($status_code, $response) = parse_http_response($output); $exitcode = $? >> 8; - last LOOP if ($exitcode == 0); + last LOOP if ($exitcode == 0 && $status_code == 200); debug("exitcode=$exitcode\n"); debug("output=$output\n"); |