Testing if the message is a command before searching url

PlayBot.pl

@@ -266,6 +266,7 @@ sub on_speak
 	my ($nick,$mask) = split(/!/,$user);
 	my %content;
 
+    if (!commands::parser::exec(@args)) {
 	    %content = sites::parser::parse($msg);
 
         if ($@) {
@@ -319,8 +320,6 @@ sub on_speak
 		        $irc->yield(privmsg => $chan => '['.$id.'] '.$content{'title'}) ;
 	        }
         }
-    else {
-        commands::parser::exec(@args);
     }	
 }
 

lib/commands/parser.pm

@@ -53,6 +53,11 @@ sub exec {
 		$irc->yield(privmsg => $chan => '!later [<id>] [in <x>[s|m|h]] : vidéo rappelée par query (par défaut temps de 6h)');
 		$irc->yield(privmsg => $chan => 'Sans id précisée, la dernière vidéo postée est utilisée.');
     }
+    else {
+        return 0;
+    }
+
+    return 1;
 }
 
 1;