From 283b5a6aa6d1bce82cf8f983b6269867703d3b25 Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@gmail.com>
Date: Tue, 11 Dec 2012 17:09:34 +0100
Subject: [PATCH] commande !tag

---
 PlayBot.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/PlayBot.pl b/PlayBot.pl
index 0e7be2f..c820e74 100755
--- a/PlayBot.pl
+++ b/PlayBot.pl
@@ -296,6 +296,12 @@ sub on_speak
 
 		return;
 	}
+    elsif ($msg =~ /^!tag( +([0-9]+))?/) {
+        my $id = ($2) ? $2 : $lastID;
+        while ($msg =~ /#([a-zA-Z0-9_-]+)/g) {
+            addTag($id, $1);
+        }
+    }
 	else {
 		return;
 	}
@@ -333,8 +339,7 @@ sub on_speak
 
 
 	# insertion des éventuels tags
-	while ($msg =~ /#([a-zA-Z0-9_-]*)/g) {
-		next if (!$1);
+	while ($msg =~ /#([a-zA-Z0-9_-]+)/g) {
 		if ($debug) {
 			$log->debug($1);
 			next;
-- 
GitLab