From 2308c177414d9ab662150ad6976e2c7198b4752e Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@gmail.com>
Date: Fri, 16 Aug 2013 01:38:04 +0200
Subject: [PATCH] change commands' regex to support eventual spaces at the
 begining

---
 lib/commands/parser.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/commands/parser.pm b/lib/commands/parser.pm
index 2051e92..580339c 100644
--- a/lib/commands/parser.pm
+++ b/lib/commands/parser.pm
@@ -37,18 +37,18 @@ sub exec {
 	my ($kernel, $user, $chan, $msg) = @args;
 	my ($nick, $mask) = split(/!/,$user);
 
-    if ($msg =~ /^!fav(?: ([0-9]+))?/) {
+    if ($msg =~ /^ *!fav(?: ([0-9]+))?/) {
         my $id = ($1) ? $1 : $lastID{$chan->[0]};
 
         commands::fav::exec($nick, $id)
 	}
-	elsif ($msg =~ /^!later(?: ([0-9]+))?(?: in ([0-9]*)?(h|m|s)?)?/) {
+	elsif ($msg =~ /^ *!later(?: ([0-9]+))?(?: in ([0-9]*)?(h|m|s)?)?/) {
         my $id = ($1) ? $1 : $lastID{$chan->[0]};
         my ($time, $unit) = ($2, $3);
 
         commands::later::exec($kernel, $nick, $id, $time, $unit);
 	}
-    elsif ($msg =~ /^!tag(?: +([0-9]+))?/) {
+    elsif ($msg =~ /^ *!tag(?: +([0-9]+))?/) {
         my $id = $1;
 
         if ($id) {
@@ -61,14 +61,14 @@ sub exec {
 
         commands::tag::exec($id, $msg);
     }
-    elsif ($msg =~ /^!get/) {
+    elsif ($msg =~ /^ *!get/) {
         my $id = commands::get::exec(@args);
 
         if ($id) {
             $lastID{$chan->[0]} = $id;
         }
     }
-    elsif ($msg =~ /^!help/) {
+    elsif ($msg =~ /^ *!help/) {
 		$irc->yield(privmsg => $nick => '!fav [<id>] : enregistre la vidéo dans les favoris');
 		$irc->yield(privmsg => $nick => '!tag [<id>] <tag1> <tag2> ... : tag la vidéo');
 		$irc->yield(privmsg => $nick => '!later [<id>] [in <x>[s|m|h]] : vidéo rappelée par query (par défaut temps de 6h)');
-- 
GitLab