[gentoo-commits] proj/gentoo-mirrorstats:master commit in: /

[Robin H. Johnson]

commit:     29f83dc5cca5e06718842753c229bff6f417e244
Author:     Robin H. Johnson <robbat2 <AT> gentoo <DOT> org>
AuthorDate: Thu Apr 30 21:10:59 2020 +0000
Commit:     Robin H. Johnson <robbat2 <AT> gentoo <DOT> org>
CommitDate: Thu Apr 30 21:10:59 2020 +0000
URL:        
https://gitweb.gentoo.org/proj/gentoo-mirrorstats.git/commit/?id=29f83dc5

probe-mirmon: handle curl error conditions better

Signed-off-by: Robin H. Johnson <robbat2 <AT> gentoo.org>

 probe-mirmon | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/probe-mirmon b/probe-mirmon
index 1e10ef1..5d99cda 100755
--- a/probe-mirmon
+++ b/probe-mirmon
@@ -53,19 +53,16 @@ sub handle_libcurl {
   my $retcode = $curl->perform;
 
   # Looking at the results...
-  if ($retcode == 0) {
-         #print("Transfer went ok\n");
-    my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE);
-    # judge result and next action based on $response_code
-       #print("Received response: $response_code $response_body\n");
-       chomp $response_body;
-       #print("s='$response_body'\n");
-    print(munge_date($response_body), "\n");
-  } else {
-    # Error code, type of error, error message
-       #print("An error happened: $retcode ".$curl->strerror($retcode)." 
".$curl->errbuf."\n");
-       exit 800;
-  }
+  exit 800 unless ($retcode == 0);
+
+  my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE);
+  exit 801 unless ($response_code == 200)
+  exit 802 unless defined($response_body);
+  chomp $response_body;
+  print(munge_date($response_body), "\n");
+
+  exit 0;
+  #print("An error happened: $retcode ".$curl->strerror($retcode)." 
".$curl->errbuf."\n");
 
 }