From: Ralf Ertzinger <ralf@skytale.net>
Date: Sun, 8 Dec 2013 16:31:08 +0000 (+0100)
Subject: Base: Add debugging to simple_get
X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=videosite.git;a=commitdiff_plain;h=20de709f626017479b48e4d2db1a80faf021901a

Base: Add debugging to simple_get
---

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 437ef98..6f686f5 100644
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -210,7 +210,10 @@ sub simple_get {
     my $ua = shift || $self->ua();
     my $r;
 
+    $self->debug("Getting %s", $url);
     $r = $ua->get($url);
+    $self->debug("Return code: %s", $r->status_line);
+    $self->debug("Content length: %d", length($r->decoded_content)) if $r->is_success();
     return $r->decoded_content() if $r->is_success();
     return undef;
 }