|
|
@@ -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\\";
|
|
|
}
|
