commiter une version qui marche saymieu

s/canouan/daga/ sinon

unefede.pl

@@ -24,7 +24,7 @@ my $wrk_dir = "wrk-dir";
 # Lis le fichier contenant les infos d'un FAI
 sub info {
     my $fai = shift @_;
-    my $filename = "/home/canouan/bot-irc/". $wrk_dir."/". $fai.".info";
+    my $filename = "/home/daga/bot-irc/". $wrk_dir."/". $fai.".info";
     my $fh;
     open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
     while (my $line = <$fh>)
@@ -37,7 +37,7 @@ sub info {
 # Lis le fichier contenant les nombres adh/abo d'un FAI
 sub adh {
     my $fai = shift @_;
-    my $filename = "/home/canouan/bot-irc/". $wrk_dir."/". $fai.".adh";
+    my $filename = "/home/daga/bot-irc/". $wrk_dir."/". $fai.".adh";
     my $fh;
     open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
     while (my $line = <$fh>)
@@ -49,7 +49,7 @@ sub adh {
 
 # lis le fichier avec les infos pour la réunion de suivi
 sub suivi {
-    my $filename = "/home/canouan/bot-irc/". $wrk_dir."/suivi";
+    my $filename = "/home/daga/bot-irc/". $wrk_dir."/suivi";
     my $fh;
     open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
     while (my $line = <$fh>)
@@ -60,8 +60,8 @@ sub suivi {
 }
 
 # lis le fichier avec les infos pour la réunion de suivi
-sub suivi {
-    my $filename = "/home/canouan/bot-irc/". $wrk_dir."/vote";
+sub vote {
+    my $filename = "/home/daga/bot-irc/". $wrk_dir."/vote";
     my $fh;
     open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
     while (my $line = <$fh>)
@@ -74,7 +74,7 @@ sub suivi {
 
 
 sub adh_abo_ffdn {
-    my $filename = "/home/canouan/bot-irc/". $wrk_dir."/ffdn.adh";
+    my $filename = "/home/daga/bot-irc/". $wrk_dir."/ffdn.adh";
     my $fh;
     open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
     while (my $line = <$fh>)
@@ -365,7 +365,7 @@ sub help { "Je suis le bot de la fédé." }
 #Info de connexion du bot
 MyBot->new(
     server => 'irc.geeknode.org',
-    channels => [ '#bottestbot'],
+    channels => [ '#bottestbot', '#ffdn'],
     nick => 'UneFede',
     username => 'bot',
     name => 'Droide de la Federation FDN, run by Vigdis'