diff options
Diffstat (limited to 'hacks/webcollage')
| -rwxr-xr-x | hacks/webcollage | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/hacks/webcollage b/hacks/webcollage index bacc814..5cc1196 100755 --- a/hacks/webcollage +++ b/hacks/webcollage @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# webcollage, Copyright © 1999-2018 by Jamie Zawinski <jwz@jwz.org> +# webcollage, Copyright © 1999-2019 by Jamie Zawinski <jwz@jwz.org> # This program decorates the screen with random images from the web. # One satisfied customer described it as "a nonstop pop culture brainbath." # @@ -60,7 +60,7 @@ use LWP::UserAgent; my $progname = $0; $progname =~ s@.*/@@g; -my ($version) = ('$Revision: 1.182 $' =~ m/\s(\d[.\d]+)\s/s); +my ($version) = ('$Revision: 1.183 $' =~ m/\s(\d[.\d]+)\s/s); my $copyright = "WebCollage $version, Copyright (c) 1999-2017" . " Jamie Zawinski <jwz\@jwz.org>\n" . " https://www.jwz.org/webcollage/\n"; @@ -228,6 +228,7 @@ my %warningless_sites = ( "tinypic.com" => 1, "flickr.com" => 1, "staticflickr.com" => 1, + "live.staticflickr.com" => 1, "pbase.com" => 1, "blogger.com" => 1, "multiply.com" => 1, @@ -2149,7 +2150,6 @@ sub pick_from_flickr_recent($) { my ($img) = ($chunk =~ m@"displayUrl": *"(.*?)"@six); next unless defined ($img); $img =~ s/\\//gs; - $img = "//" unless ($img =~ m@^/@s); $img = "http:$img" unless ($img =~ m/^http/s); my ($user) = ($chunk =~ m/"pathAlias": *"(.*?)"/si); |