|
@@ -67,7 +67,7 @@ my %regex = (
|
|
"pclight" => "\\b(yonne|beon|cheny|pc[- ]?l)",
|
|
"pclight" => "\\b(yonne|beon|cheny|pc[- ]?l)",
|
|
"rezine" => "\\b(r[eé]z|Isère|Grenoble)",
|
|
"rezine" => "\\b(r[eé]z|Isère|Grenoble)",
|
|
"rhizome" => "\\b(rh?[iy][sz]om|Oise|Compi[eéêè]gne)",
|
|
"rhizome" => "\\b(rh?[iy][sz]om|Oise|Compi[eéêè]gne)",
|
|
- "sames" => "\\bsam|(Pyrénées[- ]Atlantiques)",
|
|
|
|
|
|
+ "sames" => "\\bsam|(Pyrénées[- ]Atlantiques)",
|
|
"sdn" => "\\b(s(all|dn)|Savoie|Haute[- ]Savoie)",
|
|
"sdn" => "\\b(s(all|dn)|Savoie|Haute[- ]Savoie)",
|
|
"teleragno" => "\\b(mars|telerag|telegrano)",
|
|
"teleragno" => "\\b(mars|telerag|telegrano)",
|
|
"tetaneutral" => "\\b(t(eta|tn|nn)|Toulouse|Comminges|(Haute[- ]Garon?ne))",
|
|
"tetaneutral" => "\\b(t(eta|tn|nn)|Toulouse|Comminges|(Haute[- ]Garon?ne))",
|
|
@@ -76,6 +76,7 @@ my %regex = (
|
|
"igwan" => "\\b(ig[wn]|sbg|saint[- ]barth)",
|
|
"igwan" => "\\b(ig[wn]|sbg|saint[- ]barth)",
|
|
"neutrinet" => "\\b(neutri|n[tre]n|belgique)",
|
|
"neutrinet" => "\\b(neutri|n[tre]n|belgique)",
|
|
"ffdn" => "\\bf(ede|fdn|rance|édé)",
|
|
"ffdn" => "\\bf(ede|fdn|rance|édé)",
|
|
|
|
+ "tdn" => "\\b(t(dn|ouraine)|centre|rouvr)",
|
|
);
|
|
);
|
|
|
|
|
|
# Lis le fichier contenant les infos d'un FAI
|
|
# Lis le fichier contenant les infos d'un FAI
|
|
@@ -272,6 +273,9 @@ sub said {
|
|
elsif($message->{body} =~ /$regex{"neutrinet"}/i) {
|
|
elsif($message->{body} =~ /$regex{"neutrinet"}/i) {
|
|
info("neutrinet");
|
|
info("neutrinet");
|
|
}
|
|
}
|
|
|
|
+ elsif($message->{body} =~ /$regex{"tdn"}/i) {
|
|
|
|
+ info("tdn");
|
|
|
|
+ }
|
|
elsif($message->{body} =~ /$regex{"ffdn"}/i) {
|
|
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.";
|
|
}
|
|
}
|
|
@@ -388,6 +392,9 @@ sub said {
|
|
elsif($message->{body} =~ /$regex{"neutrinet"}/i) {
|
|
elsif($message->{body} =~ /$regex{"neutrinet"}/i) {
|
|
adh("neutrinet");
|
|
adh("neutrinet");
|
|
}
|
|
}
|
|
|
|
+ elsif($message->{body} =~ /$regex{"tdn"}/i) {
|
|
|
|
+ adh("tdn");
|
|
|
|
+ }
|
|
elsif($message->{body} =~ /$regex{"ffdn"}/i) {
|
|
elsif($message->{body} =~ /$regex{"ffdn"}/i) {
|
|
adh("ffdn");
|
|
adh("ffdn");
|
|
}
|
|
}
|