- Workaround for non-existent extra thumbnails in "video details" window.

Signed-off-by: Jesús <heckyel@hyperbola.info>

1 files changed, 23 insertions, 1 deletions

diff --git a/bin/gtk-fair-viewer b/bin/gtk-fair-viewer
index 34f1688..f00d648 100755
--- a/bin/gtk-fair-viewer
+++ b/bin/gtk-fair-viewer
@@ -2434,8 +2434,30 @@ sub get_pixbuf_thumbnail_from_content {
 
 sub get_pixbuf_thumbnail_from_url {
     my ($url, $xsize, $ysize) = @_;
+
+    state %cache;
+
+    my $key = "$url $xsize $ysize";
+
+    if (exists $cache{$key}) {
+        return $cache{$key};
+    }
+
     my $thumbnail = lwp_get($url);
-    return get_pixbuf_thumbnail_from_content($thumbnail, $xsize, $ysize);
+
+    if (not defined($thumbnail)) {
+        if ($url =~ s{/mq([0-9])\.}{/$1.}) {
+            $thumbnail = lwp_get($url);
+        }
+    }
+
+    my $pixbuf = get_pixbuf_thumbnail_from_content($thumbnail, $xsize, $ysize);
+
+    if (defined($pixbuf)) {
+        $cache{$key} = $pixbuf;
+    }
+
+    return $pixbuf;
 }
 
 sub get_pixbuf_thumbnail_from_entry {