AUTO-FOLLOW/UNFOLLOW [TWITTER] EN [PERL] UTILISANT NET::TWITTER AVEC INTERFACE GRAPHIQUE TK

#!/usr/bin/perl

use warnings;
use strict;
use Net::Twitter;
use Tk;
use threads;
use threads::shared;

my @tfollowers : shared; 
my @tlogs : shared;
my $tnbf : shared;
my $heure : shared = "Mise à jour des followers";
my ($nt, $auth, $frameb, $authCode);
my ($access_token, $access_token_secret, $user_id, $screen_name);

# Fenetre principale.
my $fenetre = MainWindow->new(-title => "Auto-follow/unfollow by DynasyX");
my $frameh = $fenetre->Frame(-relief => "raised")->pack(-side => "top");
my $framehg = $frameh->Frame(-relief => 'raised')->pack(-side => "left");
my $nbf = $framehg->Label(-text => "Followers : ");$nbf->pack();
my $listf = $framehg->Scrolled('Listbox', -scrollbars => "e", -height=>"20")->pack();
my $framehd = $frameh->Frame()->pack(-fill => "y", -expand => 1);
$framehd->Label(-text => "Logs des changements :")->pack();
my $logs = $framehd->Listbox(-width => 50);$logs->pack(-fill => "y", -expand => 1);
my $dmaj = $fenetre->Label(-text => $heure);$dmaj->pack(-side => "left");


# Connection a twitter.
$nt = Net::Twitter->new(
		traits => ['API::REST', 'OAuth'],
		consumer_key => "XXXXXXXxxxxxxxXXXXXXXxxxxxxx",
		consumer_secret => "XXXXXXXXXXXXXxxxxxxxxxxxxXXXXXXXXXXXX");

# Demande d'autorisation de gestion du compte twitter par l'application.
# Si on a deja autorisé l'application, on continue, on lance les threads.
($access_token, $access_token_secret) = restore_tokens();
if ($access_token && $access_token_secret) {
   $nt->access_token($access_token);
   $nt->access_token_secret($access_token_secret);
   $fenetre->repeat(1000, \&AfficherNews);
   threads->create(\&FoncTwit)->detach();
}
# Si l'application n'a pas encore été autorisée par l'utilisateur, on le fait.
unless ( $nt->authorized ) {
    # On affiche la fenetre secondaire $auth.
    $fenetre->withdraw();
    $auth = $fenetre->Toplevel(-title => "Autorisation de l'application par twitter");
    $auth->protocol( "WM_DELETE_WINDOW", sub { exit; } );
    $auth->Label(-text => "Veuillez confirmer a Twitter que vous autoriser\n".
            "l'application a acceder a votre compte via\n".
            "la fenetre de votre navigateur qui va s'ouvrir.\n\n".
            "Notez le code que Twitter va fournir et entrez le ci-dessous.")->pack();
    $frameb = $auth->Frame()->pack(-pady => 30);
    $authCode = $frameb->Entry()->pack(-side => "left", -padx => 10);
    $frameb->Button(-text => "Valider le code", -command => \&ValidAuth)->pack(-padx => 10);
    # On demande a twitter d'afficher la page web d'autorisation.
    my $lien = $nt->get_authorization_url;
    system("start $lien");
    $auth->Popup();
}

MainLoop();

# Lors de la validation du code d'authentification
sub ValidAuth{
    # On verifie le code entré.
    ($access_token, $access_token_secret, $user_id, $screen_name) = $nt->request_access_token(verifier => $authCode->get());
    # Enregistrement des tokens pour une prochaine execution du programme.
    save_tokens($access_token, $access_token_secret);
    # On detruit la fenetre authentification et on affiche la principale.
    $auth->destroy();
    $fenetre->raise();
    $fenetre->Popup();
    # On lance les 2 threads.
    $fenetre->repeat(1000, \&AfficherNews);
    threads->create(\&FoncTwit)->detach();
}

# Thread Tk toutes les secondes.
sub AfficherNews{
    # Si l'heure de la mise a jour à changer,
    # on actualise l'heure / la liste des followers /
    # le nombre de followers / le log des changements.
    my $temp = $dmaj->cget(-text);
    if ($temp ne $heure){
        $listf->delete(0, "end");
        foreach (@tfollowers){
          $listf->insert('end', $_);
        }
        $logs->delete(0, "end");
        foreach (@tlogs){
            $logs->insert('end', $_);
        }
        $tnbf = "Followers : ".scalar(@tfollowers);
        $nbf->configure(-text => $tnbf);
        $nbf->update();
        $dmaj->configure(-text => $heure);
        $dmaj->update();
    }
}

# Thread principal.
sub FoncTwit{
    while(1){
        # Mise a jour liste followers
        boucle_principale($nt);
        # Mise a jour de l'heure
        $heure = "Heure derniere maj : ";
        my ($sec, $min, $hour) = localtime(time);
        if ($hour<10){
            $heure.= "0";
        }
        $heure.= $hour.":";
        if ($min<10){
            $heure.="0";
        }
        $heure.= $min;
        # Toutes les 5 minutes
        sleep(300);
    }
}

sub boucle_principale{
    my ($nt) = @_;
    my ($rfollowers, @followers, %user, @oldf, $count);
    $rfollowers = $nt->followers();
    # Pour chaque follower, on note son nom dans un tableau.
    # Si on ne le suit pas encore, on le follow maintenant.
    foreach (@$rfollowers){ 
        %user = %$_;
        push(@followers, $user{screen_name});
        if ($user{following}!=1){
        	push(@tlogs, "$user{screen_name} : Nouveau follower !");
		$nt->create_friend($user{screen_name});
		push(@tlogs, "Maintenant vous le suivez egalement.");
        }
    };
    # On regarde si tous vos anciens followers vous suivent toujours.
    # Si non, on unfollow :)
    @oldf = old_followers();
    $count = 0;
    if(@oldf>0){
        foreach (@oldf){
	    if(!(join(" ", @followers) =~ m/$_/)){
	        #L'ancien nom ne vous suit plus. On l'unfollow aussi !
               eval{
	        $nt->destroy_friend($_);
	       };
	       if ($@){
                  push(@tlogs, "$_ a changé de nom ou a supprimé son compte.");
	       };
	        push(@tlogs, "$_ ne vous suit plus. Utilisateur unfollow a son tour.");
	        $count ++;
	    }
        }
    }
    if($count != 0){
        push(@tlogs, "Vous avez perdu $count followers. RIP.");
    }else{
        push(@tlogs, "Vous n'avez perdu aucun follower.");
    }
    # On enregistre notre nouveau fichier :)
    save_followers(@followers);
    @tfollowers = @followers;
}
sub save_followers{
    open(FILE, ">followers.txt");
    foreach (@_){
	print FILE $_."\n";
    }
    close FILE;
}
sub old_followers{
    open(FILE, "followers.txt") or return;
    my @list = <FILE>;
    foreach (@list){
	chomp($_);
    }
    close FILE;
    return @list;
}
sub save_tokens{
    open(FILE, ">tokens.txt") || die "Erreur E/S:$!\n";
    print FILE "$_[0] $_[1]";
    close FILE;
}
sub restore_tokens{
    open(FILE , "tokens.txt") || return;
    my (@fichier) = <FILE>;    
    close FILE;
    my ($a, $b) = split(/ /, $fichier[0]);
    return ($a, $b);
}