ajout de +vote

unefede.pl

@@ -59,6 +59,20 @@ sub suivi {
     close $fh;
 }
 
+# lis le fichier avec les infos pour la réunion de suivi
+sub suivi {
+    my $filename = "/home/canouan/bot-irc/". $wrk_dir."/vote";
+    my $fh;
+    open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
+    while (my $line = <$fh>)
+    {
+	return $line;
+    }
+    close $fh;
+}
+
+
+
 sub adh_abo_ffdn {
     my $filename = "/home/canouan/bot-irc/". $wrk_dir."/ffdn.adh";
     my $fh;
@@ -325,6 +339,10 @@ sub said {
     elsif ($message->{body} =~ /^\+suivi/) {
 	suivi;
     }
+    # les infos par rapport aux réunions de suivies
+    elsif ($message->{body} =~ /^\+vote/) {
+	vote;
+    }
     elsif ($message->{body} =~ /datafoin/) {
 	return "il ne faut pas me donner à manger après minuit /o\\";
     }