#!/usr/bin/perl

use Gtk2::TrayIcon;
use Glib::Event;
use Event; # any order
Gtk2->init;

my $terra_page = "diversos.htm";
my $terra_server = "http://chat.terra.com.br:9781";
my $terra_room = "Arte";

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

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

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

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

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

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

Gtk2->main;