|
|
@@ -24,6 +24,70 @@ my $bot_dir = `pwd`; chomp $bot_dir ; $bot_dir .= "/";
|
|
|
my $wrk_dir = "wrk-dir/";
|
|
|
my $dir = $bot_dir.$wrk_dir;
|
|
|
|
|
|
+# dictionnaire contenant les regex permettants de trouver les FAI
|
|
|
+
|
|
|
+my %regex = (
|
|
|
+ # Apinnet
|
|
|
+ "apinnet" => "\b(ap[in]|Poitou|Charente|Rochelle|(Deux[- ])?S[èe]vres?|Vienne|Angoul[eêè]me|Niort|Poitiers)",
|
|
|
+ # Aquilenet
|
|
|
+ "aquilenet" => "\b(aq(ui|n)|Bord(o|e?au)|Landes|Gironde)",
|
|
|
+ # ARN
|
|
|
+ "arn" => "\b(a(lsace|rn)|Stras|Colma)",
|
|
|
+ # Auvernet
|
|
|
+ "auvernet" => "\b(Auver|Puy[- ](de[- ])D[oô]me|avn)",
|
|
|
+ # Cafai
|
|
|
+ "cafai" => "\b(cafai|champagne|ardenn?e)",
|
|
|
+ # faimaison
|
|
|
+ "faimaison" => "\b(fma|fail?m|Nantes|Loire[- ]Atlantique)",
|
|
|
+ # FDN
|
|
|
+ "fdn" => "\bf(rench|dn)",
|
|
|
+ # franciliens.net
|
|
|
+ "franciliens" => "\b(f(ranc|cn)|idf|Paris)",
|
|
|
+ # grifon
|
|
|
+ "grifon" => "\b(grif|rennes|[îi]l?le[- ](et[- ])?vilaine)",
|
|
|
+ # ilico
|
|
|
+ "ilico" => "\b(ilc|ill?[iy][ck])|(Corr?[éêèe][sz])",
|
|
|
+ # illyse
|
|
|
+ "illyse" => "\b(ill?y|ill?i[sz]|lyon|rh[ôo]ne|loire|((st|saint)[- ]etienn?e))",
|
|
|
+ # iloth
|
|
|
+ "iloth" => "\b(ilo|mont?pel|h[ée]rault)",
|
|
|
+ # ldn
|
|
|
+ "ldn" => "\b(l(or|dn)|Nancy|Metz|Moselle|Meuse|Meurthe|Vosges)",
|
|
|
+ # ndn
|
|
|
+ "ndn" => "\b(n(ice|dn)|Antibes|Cannes|Valbonne|Alpes[- ]Maritimes)",
|
|
|
+ # netopi
|
|
|
+ "netopi" => "\b(netopi|Seine[- ](et[- ])?Marne)",
|
|
|
+ # pclight
|
|
|
+ "pclight" => "\b(yonne|beon|cheny|pc[- ]?l)",
|
|
|
+ # rézine
|
|
|
+ "rezine" => "\b(r[eé]z|Isère|Grenoble)",
|
|
|
+ # rhizome
|
|
|
+ "rhizome" => "\b(rh?[iy][sz]om|Oise|Compi[eéêè]gne)",
|
|
|
+ # sames
|
|
|
+ "same" => "\bsam|(Pyrénées[- ]Atlantiques)",
|
|
|
+ # sdn
|
|
|
+ "sdn" => "\b(s(all|dn)|Savoie|Haute[- ]Savoie)",
|
|
|
+ # teleragno
|
|
|
+ "teleragno" => "\b(mars|telerag|telegrano)",
|
|
|
+ # tetaneutral
|
|
|
+ "tetaneutral" => "\b(t(eta|tn|nn)|Toulouse|Comminges|(Haute[- ]Garon?ne))",
|
|
|
+ # ail-network
|
|
|
+ "ail" => "\bail/",
|
|
|
+ # chaul'hertz
|
|
|
+ "chaul" => "\b(c(haul|hz)|hertz|tarn|autan)",
|
|
|
+ # igwan
|
|
|
+ "igwan" => "\b(ig[wn]|sbg|saint[- ]barth)",
|
|
|
+ # neutrinet
|
|
|
+ "neutrinet" => "\b(neutri|n[tre]n|belgique)",
|
|
|
+ # et le meilleur pour la fin
|
|
|
+ "ffdn" => "\bf(ede|fdn|rance|édé)",
|
|
|
+ );
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
# Lis le fichier contenant les infos d'un FAI
|
|
|
sub info {
|
|
|
my $fai = shift @_;
|
|
|
@@ -397,7 +461,7 @@ sub said {
|
|
|
}
|
|
|
|
|
|
# tout ce qu'on écrit dans /tmp/log apparait dans $channel
|
|
|
-my $channel = '#bottestbot';
|
|
|
+my $channel = '#ffdn';
|
|
|
sub connected {
|
|
|
# my $channel = shift;
|
|
|
my $self = shift;
|
