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