From 8cf51536d781623cba4ffffb7d6ac46d484065ee Mon Sep 17 00:00:00 2001 From: trizen Date: Sun, 6 Dec 2020 00:55:55 +0200 Subject: - Workaround for non-existent extra thumbnails in "video details" window. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Jesús --- bin/gtk-fair-viewer | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) 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 { -- cgit v1.2.3