on met en variable le symbol utilisé par le bot

unefede.pl

@@ -38,6 +38,8 @@ my $description = ""; # description de l'asso
 my $bot_dir = `pwd`; chomp $bot_dir ; $bot_dir .= "/";
 my $wrk_dir = "wrk-dir/";
 my $dir = $bot_dir.$wrk_dir;
+# symbol auquel le bot répond
+my $symbol = "+";
 
 # dictionnaire contenant les regex permettants de trouver les FAI
 my %regex = (
@@ -156,7 +158,7 @@ sub adh_abo_ffdn {
 sub said {
     my ($self, $message) = @_;
     # si on veut des info
-    if ($message->{body} =~ /^\+info/) {
+    if ($message->{body} =~ /^\Q$symbol\Einfo/) {
         shift @_;
 
 	# Apinnet
@@ -268,12 +270,12 @@ sub said {
 	}	
 	# Si le FAI n'est pas valide, on l'indique
 	else {
-	    return "commande : +info <fai> ou +info <lieu geographique>";	
+	    return "commande : ".$symbol."info <fai> ou ".$symbol."info <lieu geographique>";	
 	}
     }
     
     # si on veut le nombre d'adhérent
-    elsif ($message->{body} =~ /^\+adh/) {
+    elsif ($message->{body} =~ /^\Q$symbol\Eadh/) {
         shift @_;
 	# Apinnet
 	if($message->{body} =~ /$regex{"apinnet"}/i) {
@@ -384,25 +386,25 @@ sub said {
 	}		
     	# Si le FAI n'est pas valide, on l'indique
     	else {
-    	    return "commande : +adh <fai> ou +adh <lieu geographique>";	
+    	    return "commande : ".$symbol."adh <fai> ou ".$symbol."adh <lieu geographique>";	
     	}
     }
 
 
     # si on veut de l'aide
-    elsif ($message->{body} =~ /^\+help/) {
-	return "commandes gérées : +info, +adh, +suivi, +vote, +source";
+    elsif ($message->{body} =~ /^\Q$symbol\Ehelp/) {
+	return "commandes gérées : ".$symbol."info, ".$symbol."adh, ".$symbol."suivi, ".$symbol."vote, ".$symbol."source";
     }
     # les sources du bot
-    elsif ($message->{body} =~ /^\+source/) {
+    elsif ($message->{body} =~ /^\Q$symbol\Esource/) {
 	lecture_fichier("source");
     }
     # les infos par rapport aux réunions de suivies
-    elsif ($message->{body} =~ /^\+suivi/) {
+    elsif ($message->{body} =~ /^\Q$symbol\Esuivi/) {
 	lecture_fichier("suivi");
     }
     # les infos par rapport aux réunions de suivies
-    elsif ($message->{body} =~ /^\+vote/) {
+    elsif ($message->{body} =~ /^\Q$symbol\Evote/) {
 	lecture_fichier("vote");
     }
     elsif ($message->{body} =~ /datafoin/) {