BOT Chat Forum-Invader - 9/12/12

#!usr/bin/env perl

###############
### Modulos ###
###############
use common::sense;
use WWW::Mechanize; # Ja tem os cookies automaticos
use WWW::Mechanize::DecodedContent; # Plugin que adiciona o decoded_content
use JSON -support_by_pp;
use URI::Escape;

#########################
### Variáveis globais ###
#########################
my ($login, $senha);
my $url = WWW::Mechanize->new();

###############
###  LogIn  ###
###############

&login;

sub login {
    #cookieuser
    if (-e 'login.txt') { # Caso tenha os dados de login salvos no computador, tentar acessar por eles
        print "Realizando login com os dados armazenados no 'login.txt'\n";
        my @linesFile;

        open FILE_LOGIN_LEITURA, "<" . 'login.txt' or die "Cannot open file: $!";
        @linesFile = <FILE_LOGIN_LEITURA>;
        close FILE_LOGIN_LEITURA;

        $login = @linesFile[0]; $senha = @linesFile[1];
    } else {
        print "Login: ";
        chomp ($login = <>);
        print "Senha: ";
        chomp ($senha = <>);
    }

    $url->get("http://www.forum-invaders.com.br/vb/login.php");

    $url->submit_form(
        fields => {
            vb_login_username => $login,
            vb_login_password => $senha,
        }
    );

    # Conferindo o LogIn
    if($url->decoded_content =~ /Bem-vindo/gi) {
        print "Bem-vindo, $login\n";
        &logado;
    } else {
        $url->decoded_content =~ /re">(.+?)<\/div>/s;
        &loginError($1);
    }
}

sub logado {
    # Lembrar de mim?
    if (!-e 'login.txt') {
        print "Deseja salvar seu login e senha? (s/n) \n";
        chomp (my $resposta = <>);

        if ($resposta eq 's') {
            open FILE_LOGIN_ESCRITA,">". 'login.txt' or die "Cannot create file login.txt: $!";
            print FILE_LOGIN_ESCRITA "$login\n$senha\n";
            close FILE_LOGIN_ESCRITA;
        }
    }

    # Realizar leitura do arquivo mensagens.txt
    print "Preparando leitura da lista de Ação -> Reação... \n";
    my (@mensagemAcao, @mensagemReacao, $acao, $reacao);
    if (-e 'mensagens.txt') {
        open FILE_MENSAGENS, "<" . 'mensagens.txt' or die "Cannot open file: $!";
        while (<FILE_MENSAGENS>) {
            ($acao, $reacao) = split(/\t+/, $_);
            push (@mensagemAcao, $acao);
            push (@mensagemReacao, $reacao);
            print "$acao    $reacao";
        }
        close FILE_MENSAGENS;
    } else {
        print "Erro: Você não tem o arquivo 'mensagens.txt'! Crie e configure conforme o tópico informa!\n";
    }

    # Exibir os avisos do chat
    my $chatDecorde = $url->get("http://www.forum-invaders.com.br/vb/vbshout.php?type=activeusers&do=ajax&action=fetch&instanceid=2")->decoded_content;
    $chatDecorde =~ /y":"(.+?)(",)/;
    print "Avisos do chat: $1 \n\n";

    # Definindo as variáveis antes de iniciar o loop
    open OUT,">". 'log.txt' or die "Cannot create file log.txt: $!";
    my $content = $url->get("http://www.forum-invaders.com.br/vb/forum.php")->decoded_content;
    $content =~ /SECURITYTOKEN = "(.*?)"/g;
    my $token = $1;
    my $work = 1;
    my @old;
    my $num = 0;

    # Loop para atualizar as mensagens e guardar-las em um arquivo
    while ($work == 1){
                    my $r = $url->get("http://www.forum-invaders.com.br/vb/vbshout.php?type=activeusers&do=ajax&action=fetch&instanceid=2");
                    my $json = JSON->new->relaxed;
                    my $s = $json->decode($r->decoded_content);
                    my $msg = $s->{"shouts"}->{0}->{"message_raw"};
                    my $user = $s->{"shouts"}->{0}->{"musername"};
                    my $name;
                    if ($user =~ />(.+)<\/span/gi) {$name = $1;}
                    else {$name = $user}
                    my $now = join(" => ", $name, $msg);
                    # Essa rotina implementei para evitar ficar repetindo mensagens
                    if ($num == 0){
                                   print $num . "\n" . "#" x 80 . "\n" . $now . "\n" . "#" x 80 . "\n";
                                   print OUT $num . "\n" . "#" x 80 . "\n" . $now . "\n" . "#" x 80 . "\n";
                                   push (@old, $now);
                                   $num++;
                    }
                    elsif($old[$num - 1] ne $now){
                                   print $num . "\n" . "#" x 80 . "\n" . $now . "\n" . "#" x 80 . "\n";
                                   print OUT $num . "\n" . "#" x 80 . "\n" . $now . "\n" . "#" x 80 . "\n";
                                   push (@old, $now);
                                   $num++;

                        # Rotina para responder uma mensagem se tiver alguma relação pré-definida
                        for (my $i = 0; $i <= @mensagemAcao; $i++) {
                            if ($msg =~ /$mensagemAcao[$i]/gi) {
                                my $msg = uri_escape(@mensagemReacao[$i]);
                                $url->post("http://www.forum-invaders.com.br/vb/vbshout.php",{
                                message => $msg, securitytoken => $token,
                                do => "ajax", action => "save", instanceid => "2"});
                                }
                        }
                    }
    }
    close OUT;
}

sub loginError {
    print "Erro ao realizar login!\n";
    print "Mensagem de erro: @_\n";
    print "Tentar realizar login novamente? (s/n)\n";
    chomp (my $resposta = <>);

    if ($resposta eq 's') {
        &login;
    }
}

__END__