Terra Chat Monitor

CPAN é mesmo uma maravilha... Quem programa em Perl é abençoado com uma ótima ferramenta de instalação de recursos para usar em seus programas... Sempre me admiro com o CPAN.

Antes de mais nada, este artigo é um tanto técnico. Para quem programa soluções simples para o dia-a-dia. Programa no sentido de criação de código-fonte mesmo.

O Problema

Comecei a frequentar sala do Chat do Terra. É legal, mas tem alguns problemas para quem acessa fazendo outras coisas.

• Você não sabe quando alguém entrou no chat, se você estiver em outra janela;
• Você não sabe quando alguém no chat falou com você.

Claro, isso não é um problema só do serviço de Chat do Terra, mas de todo webchat que eu conheço.

A Idéia

Resolvi o primeiro problema em algumas horas. O segundo é mais complicado...

A idéia é bem simples: sabe a bandeja? Também chamada de System Tray? Onde ficam o Gaim e outros programinhas quando abertos? Isso, a bandeja. Criar um programa que entre no Terra e veja quantas pessoas tem na sua sala favorita e então colocar na bandeja.

O projeto é o seguinte. No Chat do Terra tem uma página que lista as salas e diz quantas pessoas têm em cada sala naquele momento. Criamos um código que pegue essa página e extraia esse número dela.

Teoria

Vamos supor que você goste de Astronomia. O chat de Astronomia fica na sessão Diversos.

Se você vir o código deste arquivo, notará que há um Select de onde podemos pegar facilmente esta informação.

Assim, a estratégia é fazer download desse arquivo, filtrar especificamente este select e então atualizar o ícone na bandeja. Isso deve ocorrer a cada 25s, por exemplo.

Código

Para o código funcionar, você deve instalar o suporte a Gtk2::TrayIcon, Event e Glib::Event. Instalei isso tudo via CPAN, com o comando *cpan* para chamar o shell e comandos install para instalar isso efetivamente. Lembrando que usei Debian GNU/Linux, versão Sarge.

#!/usr/bin/perl
use Gtk2::TrayIcon;
use Glib::Event;
use Event;
# any order Gtk2->init;

Aqui você coloca a página onde está a sala de chat que te interessa.

my $terra_page = "diversos.htm";

Este código funciona só no Terra, mas para facilitar adaptações, uma variável com o endereço do servidor é um bom começo...

my $terra_server = "http://chat.terra.com.br:9781";

Aqui você coloca o nome exato da sala, com todos os espaços e maiúsculos que tem direito.

my $terra_room = "Arte";
my $icon= Gtk2::TrayIcon->new("test");
my $label= Gtk2::Label->new("#");
$icon->add($label);
$icon->show_all;

Este código é que faz o principal: pegar o arquivo e verificar quantas pessoas tem na sala de tempos em tempos. Aqui, a cada 25 segundos.

Event->timer (after => 1, interval => 25, cb => sub {

Se já houver arquivo, ele é apagado.

if ( -f $terra_page ) {
`rm $terra_page`;
}

Estou usando o wget para pegar o arquivo. Ele tem que estar instalado, portanto.

`wget $terra_server/$terra_page &> /dev/null`;
open(FILE, "< $terra_page");
$num = "#";

Esta é a sessão que pega mesmo o número de pessoas no arquivo. Parece complicado mas é bem simples. Nem usa tanta expressão regular quanto deveria... (daria pra fazer isso em bem menos linhas)

foreach $line() {
if ($line =~ /$terra_room /) {
@aux1 = split(/(/, $line);
@aux2 = split(/)/, $aux1[1]);
$num = int($aux2[0]);
}
}
close(FILE);

Aqui a gente atualiza o mostrador na bandeja.

$label->set_label($num);
});
Gtk2->main;

Pronto! E aqui está o resultado, no WindowMaker! Não é legal?!