Mercurial > hg > egg-tcls

changeset 411:fe47617e7251

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_weather: Add some debugging output to fetch_http().
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 07 Jan 2017 22:30:32 +0200
parents 5c97006c89e6
children e0d86ccef873
files fetch_weather.pl
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/fetch_weather.pl	Sat Jan 07 17:56:11 2017 +0200
+++ b/fetch_weather.pl	Sat Jan 07 22:30:32 2017 +0200
@@ -64,7 +64,22 @@
   my $req = HTTP::Request->new(GET => $_[0]);
   $req->header('Accept-Encoding' => scalar HTTP::Message::decodable());
 
+  print STDERR "# FETCHING URL: ".$_[0]."\n" if (opt_get_int("debug") > 0);
+
   my $res = $agent->request($req);
+
+  if (opt_get_int("debug") > 0)
+  {
+    print STDERR "# Response: ".$res->code.": ".$res->message."\n";
+    if ($res->code >= 200 && $res->code <= 201)
+    {
+      print STDERR
+        "# Content-charset: ".$res->content_charset."\n".
+        "# Content-encoding: ".$res->content_encoding."\n".
+        "# Is decoded_content UTF8? ".(utf8::is_utf8($res->decoded_content) ? "yes" : "NO!")."\n";
+    }
+  }
+
   return $res;
 }