View difference between Paste ID: DZudTXnx and 78MEURg9

 use Irssi;
-	my ($text) = @_;
+use Irssi::Irc;
-	my ($server, $data, $nick, $mask, $target, $channel, ) =@_;
+use strict;
-	if ($data=~/^!test/){
+use vars qw($VERSION %IRSSI);
 use IO::Socket;
-		my ($alphacheck) = 'status';
+use warnings;
-		if($alpha) { my ($alphacheck) = 'online'; }
+
-		else { my ($alphacheck) = 'offline'}
+$VERSION = '3.0';
-		$server->command("/MSG ".$target." Alpha: ".$alphacheck."");
+%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.");