regroupage des fonctions sur lecture_fichier

unefede.pl

@@ -19,12 +19,13 @@ my $date_jffdn = ""; # date de la rentrée dans la fédé
 my $contact = ""; # email de contact
 my $description = ""; # description de l'asso
 
+my $bot_dir = "bot-irc";
 my $wrk_dir = "wrk-dir";
 
 # Lis le fichier contenant les infos d'un FAI
 sub info {
     my $fai = shift @_;
-    my $filename = "/home/daga/bot-irc/". $wrk_dir."/". $fai.".info";
+    my $filename = "/home/daga/".$bot_dir ."/". $wrk_dir."/". $fai.".info";
     if (-e $filename)
     {
 	my $fh;
@@ -44,7 +45,7 @@ sub info {
 # Lis le fichier contenant les nombres adh/abo d'un FAI
 sub adh {
     my $fai = shift @_;
-    my $filename = "/home/daga/bot-irc/". $wrk_dir."/". $fai.".adh";
+    my $filename = "/home/daga/".$bot_dir ."/". $wrk_dir."/". $fai.".adh";
     if (-e $filename)
     {
 	my $fh;
@@ -61,9 +62,10 @@ sub adh {
     }
 }
 
-# lis le fichier avec les infos pour la réunion de suivi
-sub suivi {
-    my $filename = "/home/daga/bot-irc/". $wrk_dir."/suivi";
+# lis le fichier et retourne le contenu
+sub lecture_fichier {
+    my $fichier;
+    my $filename = "/home/daga/".$bot_dir ."/" . $wrk_dir . "/" . $fichier;
     if (-e $filename)
     {
 	my $fh;
@@ -76,34 +78,13 @@ sub suivi {
     }
     else
     {
-	return "pas d'information \n";
+	return "pas d'information pour \n";
     }
     
 }
 
-# lis le fichier avec les infos pour la réunion de suivi
-sub vote {
-    my $filename = "/home/daga/bot-irc/". $wrk_dir."/vote";
-    if (-e $filename)
-    {
-	my $fh;
-	open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
-	while (my $line = <$fh>)
-	{
-	    return $line;
-	}
-	close $fh;
-    }
-    else
-    {
-	return "pas d'information \n";
-    }
-}
-
-
-
 sub adh_abo_ffdn {
-    my $filename = "/home/daga/bot-irc/". $wrk_dir."/ffdn.adh";
+    my $filename = "/home/daga/".$bot_dir ."/". $wrk_dir."/ffdn.adh";
     if (-e $filename)
     {
 	my $fh;
@@ -353,7 +334,7 @@ sub said {
     	    #return "aucune info pour Aïl-network";
     	}
     	# chaul'hertz
-    	elsif($message->{body} =~ /\b(c(haul|hz)|hertz|tarn|autan)/i) {
+    	elsif($message->{body} =~ /\b(c(haul|hz)|hertz|tarn|autan|hh)/i) {
 	    adh ("chaul-hertz");
 #    	    return "aucune info pour Chaul-Hertz";	
     	}
@@ -383,18 +364,18 @@ sub said {
     }
     # les sources du bot
     elsif ($message->{body} =~ /^\+source/) {
-	return "Pour l'instant, sur demande";
+	lecture_fichier ("source");
     }
     # les infos par rapport aux réunions de suivies
     elsif ($message->{body} =~ /^\+suivi/) {
-	suivi;
+	lecture_fichier("suivi");
     }
     # les infos par rapport aux réunions de suivies
     elsif ($message->{body} =~ /^\+vote/) {
-	vote;
+	lecture_fichier("vote");
     }
     elsif ($message->{body} =~ /datafoin/) {
-	my $de = int rand(3);
+	my $de = int rand(5);
 	if (de == 1) {
 	    return "il ne faut pas me donner à manger après minuit /o\\";
 	}
@@ -404,6 +385,12 @@ sub said {
 	elsif(de==3){
 	    return "mais je vais grossir /o\\";
 	}
+	elsif(de==4){
+	    return "vouiii";
+	}
+	elsif(de==5){
+	    return "datafoin <3";
+	}
     }
 }