ajout du nombre adh + abo de la fede

modif du texte descriptif fede

json-file.pl

@@ -136,46 +136,48 @@ sub adh{
     close $fh2;
 }
 
-sub adh{
-    my $fai = shift @_;
-    my $json;
-    {
-	local $/; #Enable 'slurp' mode
-	open my $fh, "<", "/home/canouan/bot-irc/dump/". $fai;
-	$json = <$fh>;
-	close $fh;
-    }
+sub adh_abo_ffdn {
     
-    my $data = decode_json($json);
-
-    unless (!length $data->{"ispformat"}->{"memberCount"}) {
-	$nb_adh = $data->{"ispformat"}->{"memberCount"};
-    }
+    my @filesdump = </home/canouan/bot-irc/dump/*>;
+    my $filedump;
+
+    my $adh_ffdn = 0; 
+    my $abo_ffdn = 0;
+    foreach $filedump (@filesdump) {
+	$filedump =~ s{/home/canouan/bot-irc/dump/}{};
+
+	my $json;
+	{
+	    local $/; #Enable 'slurp' mode
+	    open my $fh, "<", "/home/canouan/bot-irc/dump/". $filedump;
+	    $json = <$fh>;
+	    close $fh;
+	}
+	
+	my $data = decode_json($json);
+	
+	unless (!length $data->{"ispformat"}->{"memberCount"}) {
+	    $nb_adh = $data->{"ispformat"}->{"memberCount"};
+	}
+	
+	unless (!length $data->{"ispformat"}->{"subscriberCount"}) {
+	    $nb_abo = $data->{"ispformat"}->{"subscriberCount"};
+	}
+	my $fh2;
+	open ($fh2, '>', $filedump) or die "Impossible d'ouvrir le fichier $filedump en écriture";
+	$adh_ffdn += $nb_adh;
+	$abo_ffdn += $nb_abo;
+	close $fh2;	
+}
     
-    unless (!length $data->{"ispformat"}->{"subscriberCount"}) {
-	$nb_abo = $data->{"ispformat"}->{"subscriberCount"};
-    }
-
     my $filenameadh = "/home/canouan/bot-irc/wrk-dir/ffdn.adh"; 
-    my $filenameabo = "/home/canouan/bot-irc/wrk-dir/ffdn.abo"; 
-    my $fh2;
-    open ($fh2, '>', $filename) or die "Impossible d'ouvrir le fichier $filename en écriture";
-    print $fh2 $nb_adh ." adhérent·e·s (et ".$nb_abo." abonné·e·s).\n";
-    close $fh2;
-}
-
 
-# sub readlol {
-#     my $fai = shift @_;
-#     my $filename = "/home/canouan/bot-irc/". $wrk_dir."/". $fai;
-#     my $fh;
-#     open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
-#     while (my $line = <$fh>)
-#     {
-# 	print $line;
-#     }
-#     close $fh;
-# }
+    my $fh3;
+    open ($fh3, '>', $filenameadh) or die "Impossible d'ouvrir le fichier $filenameadh en écriture";
+    print $fh3 "La fédé compte ".$adh_ffdn ." adhérent·e·s et ". $nb_abo ." abonné·e·s";
+    close $fh3;
+       
+}
 
 my @filesdump = </home/canouan/bot-irc/dump/*>;
 my $filedump;
@@ -189,8 +191,4 @@ foreach $filedump (@filesdump) {
     adh ("$filedump");
 }
 
-my $adh_ffdn;
-foreach $filedump (@filesdump) {
-    $filedum^=~ s{/home/canouan/bot-irc/dump/}{};
-    adh_ffdn ("filedump");
-}
+adh_abo_ffdn();

unefede.pl

@@ -59,6 +59,18 @@ sub suivi {
     close $fh;
 }
 
+sub adh_abo_ffdn {
+    my $filename = "/home/canouan/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>)
+    {
+	return $line;
+    }
+    close $fh;
+}
+
+
 ## Le bot lit le chan et réagit
 sub said {
     my ($self, $message) = @_;
@@ -173,7 +185,7 @@ sub said {
 	    info("neutrinet");
 	}
 	elsif($message->{body} =~ /\bf(ede|fdn|rance|édé)/i) {
-	    return "La federation FDN est une asso qui regroupe des FAIs associatifs";	
+	    return "La fédération FDN regroupe des Fournisseurs d'Accès à Internet associatifs se reconnaissant dans des valeurs communes : bénévolat, solidarité, fonctionnement démocratique et à but non lucratif; défense et promotion de la neutralité du Net.";	
 	}	
 	
 	# Si le FAI n'est pas valide, on l'indique
@@ -291,7 +303,7 @@ sub said {
     	    adh("neutrinet");
     	}
     	elsif($message->{body} =~ m{\bf(ede|fdn|rance|édé)}i) {
-    	    return "Not yet";	
+    	    adh_abo_ffdn;	
     	}	
 	
     	# Si le FAI n'est pas valide, on l'indique
@@ -307,14 +319,14 @@ sub said {
     }
     # les sources du bot
     elsif ($message->{body} =~ /^\+source/) {
-	return "http://gitorious.com";
+	return "Pour l'instant, sur demande";
     }
     # les infos par rapport aux réunions de suivies
     elsif ($message->{body} =~ /^\+suivi/) {
 	suivi;
     }
     elsif ($message->{body} =~ /datafoin/) {
-	return "il ne faut pas me donner à manger après minuit";
+	return "il ne faut pas me donner à manger après minuit /o\\";
     }
 }