use Irssi;
use Irssi::Irc;
use strict;
use vars qw($VERSION %IRSSI);
use IO::Socket;
use warnings;

$VERSION = '3.0';
%IRSSI = (
    authors     => 'Aha2Y alias Shiny',
    contact     => 'Aha2Y@Hush.com',
    name        => 'EliteBNC',
    description => 'EliteBNC Module for IRSSI.',
    license     => 'Aha2Y',
	changes	=> "v3.0 - Fixed critical freeze bug."
);

sub cmd_check {
	my ($server, $data, $nick, $mask, $target, $channel) =@_;
	if ($data=~/^!elitebnc/){
	$server->command("/MSG ".$target." Sending PING request to elitebnc servers...");
		my ($alpha) = IO::Socket::INET->new(PeerAddr=>'alpha.elitebnc.net',PeerPort=>'1337',Proto=>'tcp');
		if($alpha) { 
		my ($alpha2) = "online";  }		
		else 	{ 
		my ($alpha2) = "offline"; 	}
		$server->command("/MSG ".$target." Alpha: ".$alpha2."");
	}
}
Irssi::signal_add_last('message public', 'cmd_check');
Irssi::print("Loaded $IRSSI{name} $VERSION by Aha2Y.");