From e9249abfbcd840d9857f408190c9f8d39dcb83a4 Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@cervoi.se>
Date: Sun, 29 Nov 2015 12:42:43 +0100
Subject: [PATCH] fix Soundcloud regex
---
PlayBot/sites/parser.pm | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/PlayBot/sites/parser.pm b/PlayBot/sites/parser.pm
index 00fd58c..24e9383 100644
--- a/PlayBot/sites/parser.pm
+++ b/PlayBot/sites/parser.pm
@@ -31,13 +31,10 @@ sub parse {
$content{'site'} = 'youtube';
$content{'url'} = 'https://www.youtube.com/watch?v='.$1;
}
- elsif ($msg =~ m#(^|[^!])https?://soundcloud.com/([a-zA-Z0-9_-]+/[a-zA-Z0-9_-]+)(?:\?.+)?#) {
- my $url = 'https://www.soundcloud.com/'.$2;
+ elsif ($msg =~ m#(?:^|[^!])https?://(?:www\.)?soundcloud.com/([a-zA-Z0-9_-]+/[a-zA-Z0-9_-]+)(?:\?.+)?#) {
+ my $url = 'https://www.soundcloud.com/'.$1;
eval { %content = PlayBot::sites::soundcloud::get($url) };
- use Data::Dumper;
- print Dumper(\%content);
-
$content{'site'} = 'soundcloud';
}
elsif ($msg =~ m#(^|[^!])https?://www.mixcloud.com/([a-zA-Z0-9-_]+/[a-zA-Z0-9-_]+)#) {
--
GitLab