Advertisement
Aha2Y

Untitled

Mar 8th, 2012
390
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sub cmd_check {
  2.     my ($text) = @_;
  3.     my ($server, $data, $nick, $mask, $target, $channel, ) =@_;
  4.     if ($data=~/^!test/){
  5.         my ($alpha) = IO::Socket::INET->new(PeerAddr=>'alpha.elitebnc.net',PeerPort=>'1337',Proto=>'tcp');
  6.         my ($alphacheck) = 'status';           
  7.         if($alpha) { my ($alphacheck) = 'online'; }        
  8.         else { my ($alphacheck) = 'offline'}
  9.         $server->command("/MSG ".$target." Alpha: ".$alphacheck."");
  10.     }
  11. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement