|
@@ -28,7 +28,7 @@ sub info{
|
|
|
my $json;
|
|
my $json;
|
|
|
{
|
|
{
|
|
|
local $/; #Enable 'slurp' mode
|
|
local $/; #Enable 'slurp' mode
|
|
|
- open my $fh, "<", "/home/canouan/bot-irc/". $dump_dir."/". $fai;
|
|
|
|
|
|
|
+ open my $fh, "<", "/home/daga/bot-irc/". $dump_dir."/". $fai;
|
|
|
$json = <$fh>;
|
|
$json = <$fh>;
|
|
|
close $fh;
|
|
close $fh;
|
|
|
}
|
|
}
|
|
@@ -96,7 +96,7 @@ sub info{
|
|
|
$description = $data->{"ispformat"}->{"description"};
|
|
$description = $data->{"ispformat"}->{"description"};
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
- my $filename = "/home/canouan/bot-irc/wrk-dir/". $fai.".info";
|
|
|
|
|
|
|
+ my $filename = "/home/daga/bot-irc/wrk-dir/". $fai.".info";
|
|
|
|
|
|
|
|
# On indique dans le fichier la phrase que le bot va répondre
|
|
# On indique dans le fichier la phrase que le bot va répondre
|
|
|
|
|
|
|
@@ -112,7 +112,7 @@ sub adh{
|
|
|
my $json;
|
|
my $json;
|
|
|
{
|
|
{
|
|
|
local $/; #Enable 'slurp' mode
|
|
local $/; #Enable 'slurp' mode
|
|
|
- open my $fh, "<", "/home/canouan/bot-irc/dump/". $fai;
|
|
|
|
|
|
|
+ open my $fh, "<", "/home/daga/bot-irc/dump/". $fai;
|
|
|
$json = <$fh>;
|
|
$json = <$fh>;
|
|
|
close $fh;
|
|
close $fh;
|
|
|
}
|
|
}
|
|
@@ -134,7 +134,7 @@ sub adh{
|
|
|
$nb_abo = $data->{"ispformat"}->{"subscriberCount"};
|
|
$nb_abo = $data->{"ispformat"}->{"subscriberCount"};
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
- my $filename = "/home/canouan/bot-irc/wrk-dir/". $fai.".adh";
|
|
|
|
|
|
|
+ my $filename = "/home/daga/bot-irc/wrk-dir/". $fai.".adh";
|
|
|
my $fh2;
|
|
my $fh2;
|
|
|
open ($fh2, '>', $filename) or die "Impossible d'ouvrir le fichier $filename en écriture";
|
|
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).\n";
|
|
@@ -143,18 +143,18 @@ sub adh{
|
|
|
# indique le nombre d'adh et d'abo dans l'ensemble des FAI ; fichier : ffdn.adh
|
|
# indique le nombre d'adh et d'abo dans l'ensemble des FAI ; fichier : ffdn.adh
|
|
|
sub adh_abo_ffdn {
|
|
sub adh_abo_ffdn {
|
|
|
|
|
|
|
|
- my @filesdump = </home/canouan/bot-irc/dump/*>;
|
|
|
|
|
|
|
+ my @filesdump = </home/daga/bot-irc/dump/*>;
|
|
|
my $filedump;
|
|
my $filedump;
|
|
|
|
|
|
|
|
my $adh_ffdn = 0;
|
|
my $adh_ffdn = 0;
|
|
|
my $abo_ffdn = 0;
|
|
my $abo_ffdn = 0;
|
|
|
foreach $filedump (@filesdump) {
|
|
foreach $filedump (@filesdump) {
|
|
|
- $filedump =~ s{/home/canouan/bot-irc/dump/}{};
|
|
|
|
|
|
|
+ $filedump =~ s{/home/daga/bot-irc/dump/}{};
|
|
|
|
|
|
|
|
my $json;
|
|
my $json;
|
|
|
{
|
|
{
|
|
|
local $/; #Enable 'slurp' mode
|
|
local $/; #Enable 'slurp' mode
|
|
|
- open my $fh, "<", "/home/canouan/bot-irc/dump/". $filedump;
|
|
|
|
|
|
|
+ open my $fh, "<", "/home/daga/bot-irc/dump/". $filedump;
|
|
|
$json = <$fh>;
|
|
$json = <$fh>;
|
|
|
close $fh;
|
|
close $fh;
|
|
|
}
|
|
}
|
|
@@ -176,7 +176,7 @@ sub adh_abo_ffdn {
|
|
|
close $fh2;
|
|
close $fh2;
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
- my $filenameadh = "/home/canouan/bot-irc/wrk-dir/ffdn.adh";
|
|
|
|
|
|
|
+ my $filenameadh = "/home/daga/bot-irc/wrk-dir/ffdn.adh";
|
|
|
|
|
|
|
|
my $fh3;
|
|
my $fh3;
|
|
|
# on met l'info dans le fichier
|
|
# on met l'info dans le fichier
|
|
@@ -187,15 +187,15 @@ sub adh_abo_ffdn {
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
# pour chaque FAI on génère l'info
|
|
# pour chaque FAI on génère l'info
|
|
|
-my @filesdump = </home/canouan/bot-irc/dump/*>;
|
|
|
|
|
|
|
+my @filesdump = </home/daga/bot-irc/dump/*>;
|
|
|
my $filedump;
|
|
my $filedump;
|
|
|
foreach $filedump (@filesdump) {
|
|
foreach $filedump (@filesdump) {
|
|
|
- $filedump =~ s{/home/canouan/bot-irc/dump/}{};
|
|
|
|
|
|
|
+ $filedump =~ s{/home/daga/bot-irc/dump/}{};
|
|
|
info ("$filedump");
|
|
info ("$filedump");
|
|
|
}
|
|
}
|
|
|
# pour chaque FAI on génère l'info du nombre d'adhérents
|
|
# pour chaque FAI on génère l'info du nombre d'adhérents
|
|
|
foreach $filedump (@filesdump) {
|
|
foreach $filedump (@filesdump) {
|
|
|
- $filedump =~ s{/home/canouan/bot-irc/dump/}{};
|
|
|
|
|
|
|
+ $filedump =~ s{/home/daga/bot-irc/dump/}{};
|
|
|
adh ("$filedump");
|
|
adh ("$filedump");
|
|
|
}
|
|
}
|
|
|
# on génère l'info du nombre d'adhérents de la fédé
|
|
# on génère l'info du nombre d'adhérents de la fédé
|
