Changeset 32498 for main/trunk/greenstone2/perllib

Timestamp:

2018-10-03T22:28:51+13:00 (6 years ago)

Author:

Georgiy Litvinov

Message:

Check for response containing 200 as Tomcat 8 does not return OK after response code

File:

• main/trunk/greenstone2/perllib/servercontrol.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/servercontrol.pm

@@ -195 +195 @@
         return 0;
     }
-    if($response_code && $response_code eq "200 OK") {
+    if($response_code && (index($response_code, "200") != -1)) {
         $self->print_msg("*** Command $library_url$command\n", 3);
         $self->print_msg("*** HTTP Response Status: $response_code - Complete.", 3);