cosmetic change

unefede.pl

@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 
 # Copyright (c) 2014 Daniel Jakots <vigdis@chown.me>
-
+#
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
 # copyright notice and this permission notice appear in all copies.
-
+#
 # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
@@ -21,7 +21,6 @@ use strict;
 package MyBot;
 use base qw( Bot::BasicBot );
 
-
 binmode STDOUT, ":utf8";
 use utf8;
 
@@ -41,61 +40,33 @@ 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
     "sames"         => "\\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é)",
     );
 
@@ -160,6 +131,7 @@ sub lecture_fichier {
     
 }
 
+# on compte le nombre d'adh et d'abo pour la fédé
 sub adh_abo_ffdn {
     my $filename = $dir."ffdn.adh";
     if (-e $filename)
@@ -190,7 +162,6 @@ sub said {
 	# Apinnet
 	if($message->{body} =~ /$regex{"apinnet"}/i) {
 	    info("apinnet");
-#	    return "site : http://www.apinnet.fr/ salon : irc://irc.geeknode.org/#Apinnet dans le  Poitou-Charentes";
 	}	
 	# Aquilenet
 	elsif($message->{body} =~ /$regex{"aquilenet"}/i) {
@@ -242,12 +213,10 @@ sub said {
 	}
 	# ndn
 	elsif($message->{body} =~ /$regex{"ndn"}/i) {
-#    	    return "Pas d'info pour Nice data network";
 	    info("ndn");
 	}
 	# netopi
 	elsif($message->{body} =~ /$regex{"netopi"}/i) {
-	    #return "Netopi = site : http://netopi.fr ; pas de salon ; en Seine et Marne";
 	    info("netopi");
 	}
 	# pclight
@@ -268,7 +237,6 @@ sub said {
 	}
 	# sdn
 	elsif($message->{body} =~ /$regex{"sdn"}/i) {
-#	    return"Sallanches Data Network = siteweb : http://sdnet.info/ ; pas de salon ; à Sallanches (73)";
 	    info("sdn");
 	}
 	# teleragno
@@ -282,11 +250,9 @@ sub said {
 	# ail-network
 	elsif($message->{body} =~ /$regex{"ail"}/i) {
 	    info("ail-network");
-#	    return "Aïl-network = siteweb : http://ail-network.org/ ; pas de salon ; Tarn Sud-Est (Pays d'Autan)";
 	}
 	# chaul'hertz
 	elsif($message->{body} =~ /$regex{"chaul"}/i) {
-#	    return "Chaul'Hertz = pas de site ni de salon ; Chauley, hameau à St Maurice en Rivière (71)";	
 	    info("chaul-hertz");
 	}
 	# igwan
@@ -300,7 +266,6 @@ sub said {
 	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.";	
 	}	
-	
 	# Si le FAI n'est pas valide, on l'indique
 	else {
 	    return "commande : +info <fai> ou +info <lieu geographique>";	
@@ -310,11 +275,9 @@ sub said {
     # si on veut le nombre d'adhérent
     elsif ($message->{body} =~ /^\+adh/) {
         shift @_;
-
 	# Apinnet
 	if($message->{body} =~ /$regex{"apinnet"}/i) {
 	    adh("apinnet");
-#	    return "site : http://www.apinnet.fr/ salon : irc://irc.geeknode.org/#Apinnet dans le  Poitou-Charentes";
 	}	
 	# Aquilenet
 	elsif($message->{body} =~ /$regex{"aquilenet"}/i) {
@@ -366,12 +329,10 @@ sub said {
 	}
 	# ndn
 	elsif($message->{body} =~ /$regex{"ndn"}/i) {
-#    	    return "Pas d'adh pour Nice data network";
 	    adh("ndn");
 	}
 	# netopi
 	elsif($message->{body} =~ /$regex{"netopi"}/i) {
-	    #return "Netopi = site : http://netopi.fr ; pas de salon ; en Seine et Marne";
 	    adh("netopi");
 	}
 	# pclight
@@ -392,7 +353,6 @@ sub said {
 	}
 	# sdn
 	elsif($message->{body} =~ /$regex{"sdn"}/i) {
-#	    return"Sallanches Data Network = siteweb : http://sdnet.adh/ ; pas de salon ; à Sallanches (73)";
 	    adh("sdn");
 	}
 	# teleragno
@@ -406,11 +366,9 @@ sub said {
 	# ail-network
 	elsif($message->{body} =~ /$regex{"ail"}/i) {
 	    adh("ail-network");
-#	    return "Aïl-network = siteweb : http://ail-network.org/ ; pas de salon ; Tarn Sud-Est (Pays d'Autan)";
 	}
 	# chaul'hertz
 	elsif($message->{body} =~ /$regex{"chaul"}/i) {
-#	    return "Chaul'Hertz = pas de site ni de salon ; Chauley, hameau à St Maurice en Rivière (71)";	
 	    adh("chaul-hertz");
 	}
 	# igwan
@@ -423,9 +381,7 @@ sub said {
 	}
 	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.";	
-	}	
-
-	
+	}		
     	# Si le FAI n'est pas valide, on l'indique
     	else {
     	    return "commande : +adh <fai> ou +adh <lieu geographique>";	
@@ -436,7 +392,6 @@ sub said {
     # si on veut de l'aide
     elsif ($message->{body} =~ /^\+help/) {
 	return "commandes gérées : +info, +adh, +suivi, +vote, +source";
-#	return "pour les infos +info - pour les nombres d'adhérent·e·s et d'abonné·e·s +adh - pour les informations par rapport aux réunios de suivi +suivi - pour les sources du bot +source - ";
     }
     # les sources du bot
     elsif ($message->{body} =~ /^\+source/) {
@@ -473,14 +428,12 @@ sub said {
 # tout ce qu'on écrit dans /tmp/log apparait dans $channel
 my $channel = '#ffdn';
 sub connected {
-#    my $channel = shift;
     my $self = shift;
     $self->forkit({ channel => $channel,
                     run     => [ qw( /usr/bin/tail -f /tmp/log ) ],
 		  });
 }
 
-
 # aucune idée de comment on déclenche cette ligne
 sub help { "Je suis le bot de la fédé." }