Actually work with HTTP links

URL paths starts with a leading slash. These are now stripped away to
work the same way as URI's are handled.

diff --git a/_data/scripts.yaml b/_data/scripts.yaml
index cb150a1e9d0aa9d0ae77bcc885009d5ade184160..3d0d73bfbd3d315735d629fd2a7781a07ca9568a 100644 (file)
--- a/_data/scripts.yaml
+++ b/_data/scripts.yaml
@@ -3509,7 +3509,7 @@
   contact: "o@42mm.org"
   description: "Lookup spotify uris"
   filename: "spotify.pl"
-  modified: "2014-07-28 18:26:57"
+  modified: "2014-10-13 15:22:00"
   license: "GPLv2"
   name: "spotify"
   url: "https://github.com/op/irssi-spotify"

diff --git a/scripts/spotify.pl b/scripts/spotify.pl
index 92f82e42833f46afeb3cb7d2692a106b82c26e7f..607b44a285e801394c3b62f51b4b1b906a6a378b 100644 (file)
--- a/scripts/spotify.pl
+++ b/scripts/spotify.pl
@@ -18,7 +18,7 @@
 
 use strict;
 use vars qw($VERSION %IRSSI);
-$VERSION = '1.0';
+$VERSION = '1.1';
 %IRSSI = (
        authors     => 'Örjan Persson',
        contact     => 'o@42mm.org',
@@ -413,10 +413,15 @@ sub spotify_lookup {
        my $writer = shift;
        my ($uri, $manual) = @{$_[0]};
 
+       # Remove any leading whitespace and trailing whitespace and dots
        $uri =~ s/^\s+//g;
        $uri =~ s/[\s\.]+$//g;
-       my $u = URI->new($uri);
-       my @parts = split /[\/:]/, URI->new($uri)->path;
+
+       # Unify how we look at the path, removing leading / to match how path looks
+       # for URIs with : where the path never starts with a :.
+       my $u = URI->new($uri)->path;
+       $u =~ s/^\///;
+       my @parts = split /[\/:]/, $u;
 
        my $path;
        my $auth;