|
|
@@ -22,6 +22,7 @@ my $description = ""; # description de l'asso
|
|
|
my $dump_dir = "dump";
|
|
|
my $wrk_dir = "wrk-dir";
|
|
|
|
|
|
+# récupère les infos du json et les mets dans le ficher au nom du FAI
|
|
|
sub info{
|
|
|
my $fai = shift @_;
|
|
|
my $json;
|
|
|
@@ -33,7 +34,8 @@ sub info{
|
|
|
}
|
|
|
|
|
|
my $data = decode_json($json);
|
|
|
-
|
|
|
+# pour chaque valeur on vérifie que ce n'est pas nul, si c'est le cas on
|
|
|
+# indique N/A (not available)
|
|
|
if (!length $data->{"ispformat"}->{"memberCount"}) {
|
|
|
$nb_adh = "N/A";
|
|
|
}
|
|
|
@@ -96,13 +98,15 @@ sub info{
|
|
|
|
|
|
my $filename = "/home/canouan/bot-irc/wrk-dir/". $fai.".info";
|
|
|
|
|
|
+# On indique dans le fichier la phrase que le bot va répondre
|
|
|
+
|
|
|
my $fh2;
|
|
|
open ($fh2, '>', $filename) or die "Impossible d'ouvrir le fichier $filename en écriture";
|
|
|
-# print $fh2 "Description : ". $description . " Le site est ". $site .". Le salon pour discuter est : ". $salon ." et le mail de contact est : ". $contact . ". Ce FAI a été crée le ". $date_crea ." et il a rejoint la fédé le ". $date_jffdn ."\n";
|
|
|
print $fh2 $description . ". Site : ". $site ." - Salon de discussion : ". $salon ." - Adresse de contact : ". $contact . " - Crée le ". $date_crea .", il a rejoint la fédé le ". $date_jffdn ."\n";
|
|
|
close $fh2;
|
|
|
}
|
|
|
|
|
|
+# récupère les infos du json et les mets dans le ficher au nom du FAI.adh
|
|
|
sub adh{
|
|
|
my $fai = shift @_;
|
|
|
my $json;
|
|
|
@@ -114,7 +118,8 @@ sub adh{
|
|
|
}
|
|
|
|
|
|
my $data = decode_json($json);
|
|
|
-
|
|
|
+# pour chaque valeur on vérifie que ce n'est pas nul, si c'est le cas on
|
|
|
+# indique N/A (not available)
|
|
|
if (!length $data->{"ispformat"}->{"memberCount"}) {
|
|
|
$nb_adh = "N/A";
|
|
|
}
|
|
|
@@ -135,7 +140,7 @@ sub adh{
|
|
|
print $fh2 $nb_adh ." adhérent·e·s (et ".$nb_abo." abonné·e·s).\n";
|
|
|
close $fh2;
|
|
|
}
|
|
|
-
|
|
|
+# indique le nombre d'adh et d'abo dans l'ensemble des FAI ; fichier : ffdn.adh
|
|
|
sub adh_abo_ffdn {
|
|
|
|
|
|
my @filesdump = </home/canouan/bot-irc/dump/*>;
|
|
|
@@ -155,7 +160,7 @@ sub adh_abo_ffdn {
|
|
|
}
|
|
|
|
|
|
my $data = decode_json($json);
|
|
|
-
|
|
|
+# si pas d'info, tant pis
|
|
|
unless (!length $data->{"ispformat"}->{"memberCount"}) {
|
|
|
$nb_adh = $data->{"ispformat"}->{"memberCount"};
|
|
|
}
|
|
|
@@ -165,6 +170,7 @@ sub adh_abo_ffdn {
|
|
|
}
|
|
|
my $fh2;
|
|
|
open ($fh2, '>', $filedump) or die "Impossible d'ouvrir le fichier $filedump en écriture";
|
|
|
+# on incrémente pour chaque FAI
|
|
|
$adh_ffdn += $nb_adh;
|
|
|
$abo_ffdn += $nb_abo;
|
|
|
close $fh2;
|
|
|
@@ -173,22 +179,24 @@ sub adh_abo_ffdn {
|
|
|
my $filenameadh = "/home/canouan/bot-irc/wrk-dir/ffdn.adh";
|
|
|
|
|
|
my $fh3;
|
|
|
+# on met l'info dans le fichier
|
|
|
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;
|
|
|
|
|
|
}
|
|
|
|
|
|
+# pour chaque FAI on génère l'info
|
|
|
my @filesdump = </home/canouan/bot-irc/dump/*>;
|
|
|
my $filedump;
|
|
|
foreach $filedump (@filesdump) {
|
|
|
$filedump =~ s{/home/canouan/bot-irc/dump/}{};
|
|
|
info ("$filedump");
|
|
|
}
|
|
|
-
|
|
|
+# pour chaque FAI on génère l'info du nombre d'adhérents
|
|
|
foreach $filedump (@filesdump) {
|
|
|
$filedump =~ s{/home/canouan/bot-irc/dump/}{};
|
|
|
adh ("$filedump");
|
|
|
}
|
|
|
-
|
|
|
+# on génère l'info du nombre d'adhérents de la fédé
|
|
|
adh_abo_ffdn();
|
