#!usr/bin/env perl 
 
use Tk; 
use common::sense; 
use WWW::Mechanize;  
use WWW::Mechanize::DecodedContent;  
use JSON -support_by_pp; 
use HTTP::Cookies; 
use URI::Escape; 
 
 
 
my $mw = new MainWindow(-background => 'blue');  
$mw->geometry("600x400"); 
$mw->minsize(qw(400 650)); 
$mw->maxsize(qw(800 750));  
$mw->title("Invaders External ShoutBox"); 
 
my $getmsg = $mw -> Frame(-background => 'red', -relief=>'raised', 
  -borderwidth=>1, 
  ) ->place(-x =>70, -y =>25); 
my $gmsg = $getmsg->Scrolled ('Text',  
			-width=> 60, -height => 20, -background => 'black', -foreground => 'green')->pack; 
$gmsg->insert('end',"Start External ShoutBox...\nInVaDeRs\n"); 
 
my $ww = 1; 
while ($ww == 1){ 
	$gmsg->insert('end',&I); 
} 
 
 
 
my $putmsg = $mw -> Frame(-background => 'red', -relief=>'raised', 
  -borderwidth=>1, 
  ) ->place(-x => 70, -y => 450); 
my $pmsg = $putmsg->Scrolled ('Text',  
			-width=> 60, -height => 5, -background => 'black', -foreground => 'green')->pack; 
$pmsg->insert('end',"..."); 
 
 
 
 
 
 
my $url = WWW::Mechanize->new(); 
$url->get("http://www.forum-invaders.com.br/vb/login.php"); 
 
$url->submit_form( 
    fields => {  
        vb_login_username => 'login', 
        vb_login_password => 'password', 
    } 
); 
 
 
 
 
	if($url->decoded_content !~ /Bem-vindo/gi){$gmsg->insert('end', "Loggin Error\n");} 
		else {$gmsg->insert('end', "Login OK!\n");} 
		 
		my $work = 1; 
		my @old; 
		my $num = 0; 
	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) . "\n"; 
		if ($num == 0){ 
			$gmsg->insert('end', $now); 
			 
			push (@old, $now); 
			$num++; 
		} 
		elsif($old[$num - 1] ne $now){ 
			$gmsg->insert('end', $now); 
			 
			push (@old, $now); 
			$num++; 
		} 
		 
	} 
 
MainLoop; 
 
__END__

#!usr/bin/env perl  
  
use Tk;  
use common::sense;  
use WWW::Mechanize;   
use WWW::Mechanize::DecodedContent;   
use JSON -support_by_pp;  
use HTTP::Cookies;  
use URI::Escape;  
  
  
my $mw = new MainWindow(-background => 'blue');   
$mw->geometry("600x400");  
$mw->minsize(qw(400 650));  
$mw->maxsize(qw(800 750));   
$mw->title("Invaders External ShoutBox");  
  
my $getmsg = $mw -> Frame(-background => 'red', -relief=>'raised',  
  -borderwidth=>1,  
  ) ->place(-x =>70, -y =>25);  
my $gmsg = $getmsg->Scrolled ('Text',   
			-width=> 60, -height => 20, -background => 'black', -foreground => 'green')->pack;  
$gmsg->insert('end',"Start External ShoutBox...\nInVaDeRs\n");  
  
my $putmsg = $mw -> Frame(-background => 'red', -relief=>'raised',  
  -borderwidth=>1,  
  ) ->place(-x => 70, -y => 450);  
my $pmsg = $putmsg->Scrolled ('Text',   
			-width=> 60, -height => 5, -background => 'black', -foreground => 'green')->pack;  
$pmsg->insert('end',"...");  
  
   
my $url = WWW::Mechanize->new();  
$url->get("http://www.forum-invaders.com.br/vb/login.php");  
  
$url->submit_form(  
    fields => {   
        vb_login_username => 'login',  
        vb_login_password => 'password',  
    }  
);  
  
  
	if($url->decoded_content !~ /Bem-vindo/gi){$gmsg->insert('end', "Loggin Error\n");}  
		else {$gmsg->insert('end', "Login OK!\n");}  
		  
		my $work = 1;  
		my @old;  
		my $num = 0;  
	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) . "\n";  
		if ($num == 0){  
			$gmsg->insert('end', $now);  
			  
			push (@old, $now);  
			$num++;  
		}  
		elsif($old[$num - 1] ne $now){  
			$gmsg->insert('end', $now);  
			  
			push (@old, $now);  
			$num++;  
		}  
		  
	}  
  
MainLoop;