|
@@ -137,7 +137,7 @@ sub lecture_fichier {
|
|
|
{
|
|
|
return "pas d'information pour \n";
|
|
|
}
|
|
|
-
|
|
|
+
|
|
|
}
|
|
|
|
|
|
# on compte le nombre d'adh et d'abo pour la fédé
|
|
@@ -157,7 +157,7 @@ sub adh_abo_ffdn {
|
|
|
{
|
|
|
return "pas d'information\n";
|
|
|
}
|
|
|
-
|
|
|
+
|
|
|
}
|
|
|
|
|
|
|
|
@@ -172,7 +172,7 @@ sub said {
|
|
|
# Apinnet
|
|
|
if($message->{body} =~ /$regex{"apinnet"}/i) {
|
|
|
info("apinnet");
|
|
|
- }
|
|
|
+ }
|
|
|
# Aquilenet
|
|
|
elsif($message->{body} =~ /$regex{"aquilenet"}/i) {
|
|
|
info("aquilenet");
|
|
@@ -267,7 +267,7 @@ sub said {
|
|
|
}
|
|
|
# igwan
|
|
|
elsif($message->{body} =~ /$regex{"igwan"}/i) {
|
|
|
- info("igwan");
|
|
|
+ info("igwan");
|
|
|
}
|
|
|
# neutrinet
|
|
|
elsif($message->{body} =~ /$regex{"neutrinet"}/i) {
|
|
@@ -277,21 +277,21 @@ sub said {
|
|
|
info("tdn");
|
|
|
}
|
|
|
elsif($message->{body} =~ /$regex{"ffdn"}/i) {
|
|
|
- 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.";
|
|
|
- }
|
|
|
+ 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
|
|
|
else {
|
|
|
- return "commande : ".$symbol."info <fai> ou ".$symbol."info <lieu geographique>";
|
|
|
+ return "commande : ".$symbol."info <fai> ou ".$symbol."info <lieu geographique>";
|
|
|
}
|
|
|
}
|
|
|
-
|
|
|
+
|
|
|
# si on veut le nombre d'adhérent
|
|
|
elsif ($message->{body} =~ /^\Q$symbol\Eadh/) {
|
|
|
shift @_;
|
|
|
# Apinnet
|
|
|
if($message->{body} =~ /$regex{"apinnet"}/i) {
|
|
|
adh("apinnet");
|
|
|
- }
|
|
|
+ }
|
|
|
# Aquilenet
|
|
|
elsif($message->{body} =~ /$regex{"aquilenet"}/i) {
|
|
|
adh("aquilenet");
|
|
@@ -386,7 +386,7 @@ sub said {
|
|
|
}
|
|
|
# igwan
|
|
|
elsif($message->{body} =~ /$regex{"igwan"}/i) {
|
|
|
- adh("igwan");
|
|
|
+ adh("igwan");
|
|
|
}
|
|
|
# neutrinet
|
|
|
elsif($message->{body} =~ /$regex{"neutrinet"}/i) {
|
|
@@ -397,12 +397,12 @@ sub said {
|
|
|
}
|
|
|
elsif($message->{body} =~ /$regex{"ffdn"}/i) {
|
|
|
adh("ffdn");
|
|
|
- }
|
|
|
+ }
|
|
|
+
|
|
|
|
|
|
-
|
|
|
# Si le FAI n'est pas valide, on l'indique
|
|
|
else {
|
|
|
- return "commande : ".$symbol."adh <fai> ou ".$symbol."adh <lieu geographique>";
|
|
|
+ return "commande : ".$symbol."adh <fai> ou ".$symbol."adh <lieu geographique>";
|
|
|
}
|
|
|
}
|
|
|
|