BIGDATA

json-file.pl

@@ -25,8 +25,10 @@ use JSON;
 # FAI variables
 my $nb_adh = 0; # nombre d'adhérents
 my $nb_abo = 0; # nombre d'abonnés
-my $nb_adh_ffdn = 0; # nombre d'adhérents
-my $nb_abo_ffdn = 0; # nombre d'abonnés
+my $nb_adh_ffdn_old = 0; # avant le passage du script
+my $nb_abo_ffdn_old = 0; # avant le passage du script
+my $nb_adh_ffdn = 0; # nombre d'adhérents de la fédé
+my $nb_abo_ffdn = 0; # nombre d'abonnés de la fédé
 my $site = ""; # site web
 my $salon = ""; # salon irc/xmpp
 my $statut = 0; # étape de 1 à 8 du FAI
@@ -156,7 +158,9 @@ sub adh{
     my $filename = "/home/daga/bot-irc/wrk-dir/". $fai.".adh";
     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";
+    print $fh2 $nb_adh ." adhérent·e·s (et ".$nb_abo." abonné·e·s). Cela représente respectivement ".
+	sprintf("%.1f", $nb_adh / $nb_adh_ffdn_old * 100) ."% et ". sprintf("%.1f", $nb_abo / $nb_abo_ffdn_old * 100) .
+	"% des adhésions et des abonnements dans la fédération.\n";
     close $fh2;
 }
 # indique le nombre d'adh et d'abo dans l'ensemble des FAI ; fichier : ffdn.adh
@@ -171,7 +175,26 @@ sub adh_abo_ffdn {
     close $fh3;
 
 }
+sub vieuxchiffres {
+    my $filename = "/home/daga/bot-irc/wrk-dir/ffdn.adh";
+    if (-e $filename)
+    {
+	my $fh;
+	open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
+	# une seule ligne
+	my $line = <$fh>;
+	close $fh;
+	$line =~ s/[^0-9]//g;
+	# gros hack qui ne marchera plus pour les chiffres > 10k ; dealwithit.jpg
+	my @nums = $line =~/\d{4}/g;
+	$nb_adh_ffdn_old = $nums[0];
+	$nb_abo_ffdn_old = $nums[1];
+    }
+
+}
+
 
+vieuxchiffres();
 # pour chaque FAI on génère l'info
 my @filesdump = </home/daga/bot-irc/dump/*>;
 my $filedump;