bot-irc/unefede.pl

#!/usr/bin/perl
use warnings;
use strict;

package MyBot;
use base qw( Bot::BasicBot );


binmode STDOUT, ":utf8";
use utf8;

my $nb_adh = 0; # nombre d'adhérents
my $nb_abo = 0; # nombre d'abonnés
my $site = ""; # site web
my $salon = ""; # salon irc/xmpp
my $statut = 0; # étape de 1 à 8 du FAI
my $date_crea = ""; # date de la création de l'asso
my $date_jffdn = ""; # date de la rentrée dans la fédé
my $contact = ""; # email de contact
my $description = ""; # description de l'asso

# le repectoire des données du bot aka autoconf
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 @_;
    my $filename = $dir.$fai.".info";
    if (-e $filename)
    {
	my $fh;
	open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
	while (my $line = <$fh>)
	{
	    return $line;
	}
	close $fh;
    }
    else
    {
	return "pas d'information pour ". $fai ."\n";
    }
}

# Lis le fichier contenant les nombres adh/abo d'un FAI
sub adh {
    my $fai = shift @_;
    my $filename = $dir.$fai.".adh";
    if (-e $filename)
    {
	my $fh;
	open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
	while (my $line = <$fh>)
	{
	    return $line;
	}
	close $fh;
    }
    else
    {
	return "pas d'information pour ". $fai ."\n";
    }
}

# lis le fichier et retourne le contenu
sub lecture_fichier {
    my $fichier;
    my $filename = $dir.$fichier;
    if (-e $filename)
    {
	my $fh;
	open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
	while (my $line = <$fh>)
	{
	    return $line;
	}
	close $fh;
    }
    else
    {
	return "pas d'information pour \n";
    }
    
}

sub adh_abo_ffdn {
    my $filename = $dir."ffdn.adh";
    if (-e $filename)
    {
	my $fh;
	open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
	while (my $line = <$fh>)
    {
	return $line;
    }
	close $fh;
    }
    else
    {
	return "pas d'information\n";
    }
    
}


## Le bot lit le chan et réagit
sub said {
    my ($self, $message) = @_;
    # si on veut des info
    if ($message->{body} =~ /^\+info/) {
        shift @_;
	# Apinnet
	if($message->{body} =~ /(ap[in]|Poitou|Charente|Rochelle|(Deux[- ])?S[èe]vres?|Vienne|Angoul[eêè]me|Niort|Poitiers)/) {
	    info("apinnet");
#	    return "site : http://www.apinnet.fr/ salon : irc://irc.geeknode.org/#Apinnet dans le  Poitou-Charentes";
	}	
	elsif($message->{body} =~ /\btest/) {
	    info ("ilico");
	}
	# Aquilenet
	elsif($message->{body} =~ /\b(aq(ui|n)|Bord(o|e?au)|Landes|Gironde)/i) {
	    info ("aquilenet");
	}
 	# ARN
	elsif($message->{body} =~ /\b(a(lsace|rn)|Stras|Colma)/i) {
	    info("arn");
	}
	# Auvernet
	elsif($message->{body} =~ /\b(Auver|Puy[- ](de[- ])D[oô]me|avn)/i) {
	    info ("auvernet");
	}
	# Cafai
	elsif($message->{body} =~ /\b(cafai|champagne|ardenn?e)/i) {
	    info("cafai");
	}
	# faimaison
	elsif($message->{body} =~ /\b(fma|fail?m|Nantes|Loire[- ]Atlantique)/i) {
	    info ("faimaison");
	}
	# FDN
	elsif($message->{body} =~ /\bf(rench|dn)/i) {
	    info ("fdn");
	}
	# franciliens.net
	elsif($message->{body} =~ /\b(f(ranc|cn)|idf|Paris)/i) {
	    info ("franciliens");
	}
	# grifon
	elsif($message->{body} =~ /\b(grif|rennes|[îi]l?le[- ](et[- ])?vilaine)/i) {
	    info("grifon");
	}
	# ilico
	elsif($message->{body} =~ /\b(ilc|ill?[iy][ck])|(Corr?[éêèe][sz])/i) {
	    info("ilico");
	}
	# illyse
	elsif($message->{body} =~ /\b(ill?y|ill?i[sz]|lyon|rh[ôo]ne|loire|((st|saint)[- ]etienn?e))/i) {
	    info ("illyse");
	}
	# iloth
	elsif($message->{body} =~ /\b(ilo|mont?pel|h[ée]rault)/i) {
	    info("iloth");
	}
	# ldn
	elsif($message->{body} =~ /\b(l(or|dn)|Nancy|Metz|Moselle|Meuse|Meurthe|Vosges)/i) {
	    info("ldn");
	}
	# ndn
	elsif($message->{body} =~ /\b(n(ice|dn)|Antibes|Cannes|Valbonne|Alpes[- ]Maritimes)/i) {
#    	    return "Pas d'info pour Nice data network";
	    info("ndn");
	}
	# netopi
	elsif($message->{body} =~ /\b(netopi|Seine[- ](et[- ])?Marne)/i) {
	    #return "Netopi = site : http://netopi.fr ; pas de salon ; en Seine et Marne";
	    info("netopi");
	}
	# pclight
	elsif($message->{body} =~ /\b(yonne|beon|cheny|pc[- ]?l)/i) {
	    info("pclight");
	}
	# rézine
	elsif($message->{body} =~ /\b(r[eé]z|Isère|Grenoble)/i) {
	    info("rezine");
	}
	# rhizome
	elsif($message->{body} =~ /\b(rh?[iy][sz]om|Oise|Compi[eéêè]gne)/i) {
	    info("rhizome");
	}
	# sames
	elsif($message->{body} =~ /\bsam|(Pyrénées[- ]Atlantiques)/i) {
	    info("sames");
	}
	# sdn
	elsif($message->{body} =~ /\b(s(all|dn)|Savoie|Haute[- ]Savoie)/i) {
#	    return"Sallanches Data Network = siteweb : http://sdnet.info/ ; pas de salon ; à Sallanches (73)";
	    info("sdn");
	}
	# teleragno
	elsif($message->{body} =~ /\b(mars|telerag|telegrano)/i) {
	    info ("teleragno");
	}
	# tetaneutral
	elsif($message->{body} =~ /\b(t(eta|tn|nn)|Toulouse|Comminges|(Haute[- ]Garon?ne))/i) {
	    info ("tetaneutral");
	}
	# ail-network
	elsif($message->{body} =~ /\bail/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} =~ /\b(c(haul|hz)|hertz|tarn|autan)/i) {
#	    return "Chaul'Hertz = pas de site ni de salon ; Chauley, hameau à St Maurice en Rivière (71)";	
	    info ("chaul-hertz");
	}
	# igwan
	elsif($message->{body} =~ /\b(ig[wn]|sbg|saint[- ]barth)/i) {
	    info ("igwan");	
	}
	# neutrinet
	elsif($message->{body} =~ /\b(neutri|n[tre]n|belgique)/i) {
	    info("neutrinet");
	}
	elsif($message->{body} =~ /\bf(ede|fdn|rance|édé)/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>";	
	}
    }
    
    # si on veut le nombre d'adhérent
    elsif ($message->{body} =~ /^\+adh/) {
        shift @_;

    	# Apinnet
    	if($message->{body} =~ /\b(ap[in]|Poitou|Charente|Rochelle|(Deux[- ])?S[èe]vres?|Vienne|Angoul[eêè]me|Niort|Poitiers)/i) {
#    	    return "Aucune info pour apinnet";
	    adh("apinnet");
    	}	
    	# Aquilenet
    	elsif($message->{body} =~ /\b(aq(ui|n)|Bord(o|e?au)|Landes|Gironde)/i) {
    	    adh ("aquilenet");
    	}
    	# ARN
    	elsif($message->{body} =~ /\b(a(lsace|rn)|Stras|Colma)/i) {
    	    adh("arn");
    	}
    	# Auvernet
    	elsif($message->{body} =~ /\b(Auver|Puy[- ](de[- ])D[oô]me|avn)/i) {
    	    adh ("auvernet");
    	}
    	# Cafai
    	elsif($message->{body} =~ /\b(cafai|champagne|ardenn?e)/i) {
    	    adh("cafai");
    	}
    	# faimaison
    	elsif($message->{body} =~ /\b(fma|fail?m|Nantes|Loire[- ]Atlantique)/i) {
    	    adh ("faimaison");
    	}
    	# FDN
    	elsif($message->{body} =~ /\bf(rench|dn|rance)/) {
    	    adh("fdn");
    	}
    	# franciliens.net
    	elsif($message->{body} =~ /\b(f(ranc|cn)|idf|Paris)/i) {
    	    adh ("franciliens");
    	}
    	# grifon
    	elsif($message->{body} =~ /\b(grif|rennes|[îi]l?le[- ](et[- ])?vilaine)/i) {
    	    adh("grifon");
    	}
    	# ilico
    	elsif($message->{body} =~ /\b(ilc|ill?[iy][ck])|(Corr?[éêèe][sz])/i) {
    	    adh("ilico");
    	}
    	# illyse
    	elsif($message->{body} =~ /\b(ill?y|ill?i[sz]|lyon|rh[ôo]ne|loire|((st|saint)[- ]etienn?e))/i) {
    	    adh ("illyse");
    	}
    	# iloth
    	elsif($message->{body} =~ /\b(ilo|mont?pel|h[ée]rault)/i) {
    	    adh("iloth");
    	}
    	# ldn
    	elsif($message->{body} =~ /\b(l(or|dn)|Nancy|Metz|Moselle|Meuse|Meurthe|Vosges)/i) {
    	    adh("ldn");
    	}
    	# ndn
    	elsif($message->{body} =~ /\b(n(ice|dn)|Antibes|Cannes|Valbonne|Alpes[- ]Maritimes)/i) {
#    	    return "Pas d'info pour Nice data network";
	    adh("ndn");
    	}
    	# netopi
    	elsif($message->{body} =~ /\b(netopi|Seine[- ](et[- ])?Marne)/i) {
#    	    return "Netopi = site : http://netopi.fr ; pas de salon ; en Seine et Marne";
	    adh("netopi");
    	}
    	# pclight
    	elsif($message->{body} =~ /\b(yonne|beon|cheny|pc[- ]?l)/i) {
    	    adh("pclight");
    	}
    	# rézine
    	elsif($message->{body} =~ /\b(r[eé]z|Isère|Grenoble)/i) {
    	    adh("rezine");
    	}
    	# rhizome
    	elsif($message->{body} =~ /\b(rh?[iy][sz]om|Oise|Compi[eéêè]gne)/i) {
    	    adh("rhizome");
    	}
    	# sames
    	elsif($message->{body} =~ /\bsam|(Pyrénées[- ]Atlantiques)/i) {
    	    adh("sames");
    	}
    	# sdn
    	elsif($message->{body} =~ /\b(s(all|dn)|Savoie|Haute[- ]Savoie)/i) {
#    	    return "aucune info pour SDN";
	    adh ("sdn");
    	}
    	# teleragno
    	elsif($message->{body} =~ /\b(mars|telerag|telegrano)/i) {
    	    adh ("teleragno");
    	}
    	# tetaneutral
    	elsif($message->{body} =~ /\b(t(eta|tn|nn)|Toulouse|Comminges|(Haute[- ]Garon?ne))/i) {
    	    adh ("tetaneutral");
    	}
    	# ail-network
    	elsif($message->{body} =~ /\bail/i) {
	    adh ("ail-network");
    	    #return "aucune info pour Aïl-network";
    	}
    	# chaul'hertz
    	elsif($message->{body} =~ /\b(c(haul|hz)|hertz|tarn|autan|hh)/i) {
	    adh ("chaul-hertz");
#    	    return "aucune info pour Chaul-Hertz";	
    	}
    	# igwan
    	elsif($message->{body} =~ /\b(ig[wn]|sbg|saint[- ]barth)/i) {
    	    adh ("igwan");	
    	}
    	# neutrinet
    	elsif($message->{body} =~ /\b(neutri|n[tre]n|belgique)/i) {
    	    adh("neutrinet");
    	}
    	elsif($message->{body} =~ m{\bf(ede|fdn|rance|édé)}i) {
    	    adh_abo_ffdn;	
    	}	
	
    	# Si le FAI n'est pas valide, on l'indique
    	else {
    	    return "commande : +adh <fai> ou +adh <lieu geographique>";	
    	}
    }


    # 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/) {
	lecture_fichier ("source");
    }
    # les infos par rapport aux réunions de suivies
    elsif ($message->{body} =~ /^\+suivi/) {
	lecture_fichier("suivi");
    }
    # les infos par rapport aux réunions de suivies
    elsif ($message->{body} =~ /^\+vote/) {
	lecture_fichier("vote");
    }
    elsif ($message->{body} =~ /datafoin/) {
	my $de = int rand(5);
	if ($de==1) {
	    return "il ne faut pas me donner à manger après minuit /o\\";
	}
	elsif($de==2){
	    return "omnomnom";
	}
	elsif($de==3){
	    return "mais je vais grossir /o\\";
	}
	elsif($de==4){
	    return "vouiii";
	}
	elsif($de==5){
	    return "datafoin <3";
	}
    }
}

# 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é." }

#Info de connexion du bot
MyBot->new(
    server => 'irc.geeknode.org',
    channels => [ '#bottestbot', '#ffdn'],
    nick => 'UneFede',
    username => 'bot',
    name => 'Droide de la Federation FDN, run by Vigdis'
    )->run();