Ticket #6428: mythplugins-6428-mythvideo-tmdb-check_response.2.patch

mythvideo/mythvideo/scripts/tmdb.pl

@@ -119 +119 @@
     my ($rc, $response) =
         TMDBAPIRequest('Movie.imdbLookup', {'imdb_id' => "tt$movieid"});
 
+    if (!defined $response) {
+        die "Unable to contact themoviedb.org while retrieving ".
+            "movie data, stopped";
+    }
+
     my $xs = new XML::Simple(SuppressEmpty => '', ForceArray => ['movie'],
         KeyAttr => []);
     my $xml = $xs->XMLin($response);
@@ -130 +135 @@
         my ($rc, $response) =
             TMDBAPIRequest('Movie.getInfo', {'id' => $tmdbid});
 
+        if (!defined $response) {
+            die "Unable to contact themoviedb.org while retrieving ".
+                "movie data, stopped";
+        }
+
         $xml = $xs->XMLin($response,
             ForceArray => ['category', 'production_countries'],
             KeyAttr => ['key', 'id']);
@@ -235 +245 @@
     my ($rc, $response) =
         TMDBAPIRequest('Movie.imdbLookup', {'imdb_id' => "tt$movieid"});
 
+    if (!defined $response) {
+        die "Unable to contact themoviedb.org while retrieving ".
+            "movie poster, stopped";
+    }
+
     my $xml = XMLin($response, ForceArray => ['movie', 'poster', 'backdrop'],
         KeyAttr => {poster => 'size'});
 
@@ -258 +273 @@
     my ($rc, $response) =
         TMDBAPIRequest('Movie.imdbLookup', {'imdb_id' => "tt$movieid"});
 
+    if (!defined $response) {
+        die "Unable to contact themoviedb.org while retrieving ".
+            "movie backdrop, stopped";
+    }
+
     my $xs = new XML::Simple(SuppressEmpty => '', ForceArray => [],
         KeyAttr => []);
     my $xml = $xs->XMLin($response);
@@ -270 +290 @@
         my ($rc, $response) =
             TMDBAPIRequest('Movie.getInfo', {'id' => $tmdbid});
 
+        if (!defined $response) {
+            die "Unable to contact themoviedb.org while retrieving ".
+                "movie backdrop, stopped";
+        }
+
         $xml = XMLin($response, ForceArray=> [], KeyAttr => ['key', 'id']);
 
         foreach my $backdrop (@{$xml->{moviematches}->{movie}->{backdrop}}) {
@@ -299 +324 @@
     my ($rc, $response) =
         TMDBAPIRequest('Movie.search', {'title' => $query});
 
+    if (!defined $response) {
+        die "Unable to contact themoviedb.org while retrieving ".
+            "movie list, stopped";
+    }
+
     my $xs = new XML::Simple(SuppressEmpty => '', ForceArray => ['movie'],
         KeyAttr => []);
     my $xml = $xs->XMLin($response);