- ajout d'une fonction json pour ne plus avoir a me repeter

- documentation des nouvelles fonctions

unefede.pl

@@ -409,7 +409,7 @@ sub said {
 
     # si on veut de l'aide
     elsif ($message->{body} =~ /^\Q$symbol\Ehelp/) {
-	return "commandes gérées : ".$symbol."info, ".$symbol."adh, ".$symbol."suivi, ".$symbol."vote, ".$symbol."source";
+	return "commandes gérées : ".$symbol."info, ".$symbol."adh, ".$symbol."suivi, ".$symbol."vote, ".$symbol."source, ".$symbol."ag, ".$symbol."json";
     }
     # les sources du bot
     elsif ($message->{body} =~ /^\Q$symbol\Esource/) {
@@ -427,6 +427,10 @@ sub said {
     elsif ($message->{body} =~ /^\Q$symbol\Eag/) {
 	lecture_fichier("ag");
     }
+    # les infos par rapport au source du bot
+    elsif ($message->{body} =~ /^\Q$symbol\Ejson/) {
+	lecture_fichier("json");
+    }
     elsif ($message->{body} =~ /datafoin/) {
 	my $de = int rand(5);
 	if ($de==1) {