Fix code flow and response check

CESNET · May 15, 2023 · fa29fbf · fa29fbf
1 parent c947b74
commit fa29fbf
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/pakiti-client b/pakiti-client
@@ -374,16 +374,14 @@ sub https {
     eval { require LWP::UserAgent; LWP::UserAgent->import; };
     if ($@) {
         if ($Option{"disable-tls-checks"}) {
-            $response = `curl -sik -o /dev/null -w "%{http_code}" -X POST $url -d "$report"`;
+            $response = `curl -sqk -X POST $url -d "$report"`;
         } else {
-            $response = `curl -si -o /dev/null -w "%{http_code}" -X POST $url -d "$report"`;
-        }
-        if ($response == "200") {
-            print(STDERR "report successfully sent\n") if -t STDERR;
-            print "OK\n";
-        } else {
-            die($response);
+            $response = `curl -sq -X POST $url -d "$report"`;
         }
+        ($response =~ /OK$/) or die($response);
+
+        print(STDERR "report successfully sent\n") if -t STDERR;
+        print($response);
     } else {
         my $ua = LWP::UserAgent->new();
         push @{$ua->requests_redirectable}, 'POST';