summaryrefslogtreecommitdiffstats
path: root/config-model
diff options
context:
space:
mode:
authorHarald Musum <musum@yahoo-inc.com>2016-09-08 11:37:21 +0200
committerHarald Musum <musum@yahoo-inc.com>2016-09-08 11:37:21 +0200
commit2231572e4f58120875b1b509df26d5a359fc658a (patch)
tree86bf4095ef40cd29369477e5a9b0dc96a709bec5 /config-model
parent7fec04ed1344c943ba94c3124553ac07658cf21b (diff)
Switch config source if successful curl call, but with non-200 response
Diffstat (limited to 'config-model')
-rwxr-xr-xconfig-model/src/main/perl/deploy5
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");