Browse Source

rajout de la commande ag

Daniel Jakots 10 years ago
parent
commit
1992ee48f1
1 changed files with 4 additions and 0 deletions
  1. 4 0
      unefede.pl

+ 4 - 0
unefede.pl

@@ -423,6 +423,10 @@ sub said {
     elsif ($message->{body} =~ /^\Q$symbol\Evote/) {
 	lecture_fichier("vote");
     }
+    # les infos par rapport à l'ag de la fédé
+    elsif ($message->{body} =~ /^\Q$symbol\Eag/) {
+	lecture_fichier("ag");
+    }
     elsif ($message->{body} =~ /datafoin/) {
 	my $de = int rand(5);
 	if ($de==1) {