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.

1 files changed, 8 insertions, 3 deletions

diff --git a/scripts/spotify.pl b/scripts/spotify.pl
index 92f82e4..607b44a 100644
--- 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;