#!/usr/bin/perl

#use warnings;
use strict;

use POE;
use POE::Component::IRC;
use POE::Component::Client::TCP;
use POE::Filter::Stream;;

### BEGIN REMREM ###

## RenRem Settings
my $renport = 4853;    # The gameserver port 
my $renhost  = 'somehost';  # Ip/hostname of the gameserver
my $renpassword = 'somepass';  # admin password

## Buffering OFF!
$| = 1; # Prevents buffering problems

##renrem output settings
my $reout = 'off';

### OUTPUT STARTUP MESSAGES TO CONSOLE
my $botver = 'TRiNiTY build 118';
my $botver2 = 'A lightweight Renegade admin facility.';
my $startuptime = localtime;
my $uptime = $startuptime;
print " [$startuptime] ### TRiNiTY RenAdmin Facility. Designed by Phil W ;-) ###\n";
print " [$startuptime] ######\n";
print " [$startuptime] $botver Starting up...\n";
print " [$startuptime] Initializing connection to RenRem server...\n";

sub renrem_on 
# Connetion to RenRem
POE::Component::Client::TCP->new
      ( RemoteAddress => $renhost,
        RemotePort => $renport,        
        Connected => \&on_renconnect,
	ServerInput => \&on_renrecieve,
	Disconnected   => \&on_rendisconnect,
      );

sub on_rendisconnect{
	# Attempt to reconnect when disconnected from renrem
	my $tsa = localtime;
	#my $kernel;
	#$_[KERNEL]->delay( reconnect => 60 );
	print " [$tsa] WARNING!:Disconnection Detected, trying to re-establish communication with renrem...\n";
}

sub on_renconnect {
	    my $ts = localtime;
            print " [$ts] Sucessfully connected to $renhost:$renport !...\n";
	    $_[HEAP]->{server}->put($renpassword);    
}

sub on_renrecieve {
	   my ( $kernel, $heap, $input ) = @_[ KERNEL, HEAP, ARG0 ];
	   my $ts = localtime;
	   print " [$ts] $input\n";
	   
	   # NOT all input is wanted, disguard any common stings which are not needed
		if($input =~ /GameSpy mode active/ || $input =~ /Id  Name/ || $input =~ /Welcome to Renegade Remote 
Control/ || $input =~ /Score Side Ping Address/ || $input =~ /([0-9][0-9][0-9]\.[0-9][0-9]\.[0-9][0-9])/ || $input =~ 
/GDI/ || $input =~ /Nod/ || $input =~ /Gameplay in progress/ || $input =~ /Map :/ || $input =~ /NOD :/ || $input =~ 
/Gameplay Pending/ || $input =~ /Time :/ || $input =~ /Fps :/ || $input =~ /Total current bandwidth usage for 
players/ || $input =~ /  NOD / || $input =~ /\[[0-9][0-9]\:[0-9][0-9]\:[0-9][0-9]\W\W(Load)\W\d\d/ || $input =~ 
/Total current bandwidth usage for players/ || $input =~ /\[[0-9][0-9]\:[0-9][0-9]\:[0-9][0-9]\W\W(Load)\W\d/)
		{
			# do nothing if these pattens are matched
		}
		elsif($input =~ /\[[0-9][0-9]\:[0-9][0-9]\:[0-9][0-9]\W\W(No players)/)
		{
			#Check to see if no players are in the server
			$kernel->post( magnet => privmsg => '#ulfserver', "Warning: The renrem output module has been deactivated due to the server being empty at present. It can be re-enabled at a later date using the \!renrem \-on command." );
			$reout = 'off';
		}	
		elsif($input =~ /\[[0-9][0-9]\:[0-9][0-9]\:[0-9][0-9]\W\W[^@ \.]/)
		{
			#otherwise output to IRC
			$kernel->post( magnet => privmsg => '#ulfserver', $input );	
		}
		else
		{	
			#disguard any unmatched or unwanted patterns 	
	   		#$kernel->post( magnet => privmsg => '#ulfserver', $input );
           	}
	   }

}
######################### RENREM COMPLETED - NOW CONNECT TO IRC #######################################################

sub CHANNEL () { "someircchannel" }
my $botver2 = 'A standalone Renegade admin facility..';

#:: IRC Settings
my $ircnetwork = 'someircserver'; 
my $ircport = 6667;	   
my $ircname = 'TRiNiTY-';
my $ircident = $botver;
my $ircnick = 'TRiNiTY-';
my $ircmode;

# Create the component that will represent an IRC network.
POE::Component::IRC->new("magnet");

# Create the bot session.  The new() call specifies the events the bot
# knows about and the functions that will handle those events.
POE::Session->new
  ( _start => \&bot_start,
    irc_001    => \&on_connect,
    irc_public => \&on_public,
    irc_msg => \&on_msg,
    irc_mode => \&on_mode,
  );

# The bot session has started.  Register this bot with the "magnet"
# IRC component.  Select a nickname.  Connect to a server.

sub bot_start {
    my $kernel  = $_[KERNEL];
    my $heap    = $_[HEAP];
    my $session = $_[SESSION];
    $kernel->post( magnet => register => "all" );

    #my $nick = 'TRiNiTY-';
    $kernel->post( magnet => connect =>
          { Nick => $ircnick,
            Username => $ircname,
            Ircname  => $ircident,
            Server   => $ircnetwork,
            Port     => $ircport,
          }
    );
}

# The bot has successfully connected to a server.  Join a channel.
sub on_connect {
        $_[KERNEL]->post( magnet => join => CHANNEL );
		$_[KERNEL]->post( magnet => msg => "NickServ\@services.dal.net :IDENTIFY somepassword\r\n" );
}

# Handle Private Messages to the Bot

sub on_msg {

	my ( $kernel, $who, $where, $msg ) = @_[ KERNEL, ARG0, ARG1, ARG2 ];
	my $nick = ( split /!/, $who )[0];
        my $channel = $where->[0];
        my $ts = localtime;

	print " [$ts] <$nick:$channel> $msg\n";

}

# Will Handle Changes in status on the IRC channel

sub on_mode {
	
	my ( $kernel, $from, $channel, $themode, $userchanged ) = @_[ KERNEL, ARG0, ARG1, ARG2, ARG3 ]; 
        my $fromnick = ( split /!/, $from )[0];
	my $ts = localtime;
	
	print " [$ts] <$fromnick:$channel> $themode $userchanged\n";
	
	
		
}

# The bot has received a public message.  Parse it for commands, and
# respond to interesting things.

sub on_public {

    my ( $kernel, $who, $where, $msg ) = @_[ KERNEL, ARG0, ARG1, ARG2 ];
    my $nick = ( split /!/, $who )[0];
    my $channel = $where->[0];
    my $ts = localtime;
    
    ####### Print What Was Sent to IRC to The Console ######
    print " [$ts] <$nick:$channel> $msg\n";


    # !Version Sent
    if ($msg =~ /!version/) {
	
	print " [$ts] <$channel> version request detected\n";	 
	$kernel->post( magnet => privmsg => CHANNEL, $botver );
        $kernel->post( magnet => privmsg => CHANNEL, $botver2 );
    }
    # !broadcast Messages Sent
    if ($msg =~ /!broadcast/) {
	
	#retrieve the message sent
	my $renmsg = split(/!broadcast/, $msg);
	print " [$ts] <$channel> msg $nick\@TRiNiTY\: $renmsg\n"; # output to console
	$kernel->post( magnet => privmsg => CHANNEL, "$nick\@TRiNiTY\: $renmsg\n"); #output to IRC
	
	## HERE I WANT TO SENT THE $RENMSG FROM THE IRC CHANNEL TO THE TCP SERVER 
	$_[HEAP]->{server}->put("msg $nick\@TRiNiTY\: $renmsg");    # sends message to tcp server
    }   

   # !renrem sent 
   if ($msg =~ /!renrem/) {
	if ($msg =~ /\-on/)
	{
		$kernel->post( magnet => privmsg => CHANNEL, "RenRem output mode: Activated!");
		$reout = 'on';
	}
	elsif ($msg =~ /\-off/)
	{
		$kernel->post( magnet => privmsg => CHANNEL, "RenRem output mode: Deactivated!");
		$reout = 'off';
	}
	elsif ($msg =~ /\-about/)
        {
                $kernel->post( magnet => privmsg => CHANNEL, "$nick: About the RenRem TRiNiTY plugin \- This module allows for server messages to be forwarded over the IRC chat protocol to a pool of clients and provides key gameserver functionality.");
        }
        else
	{		
		$kernel->post( magnet => privmsg => CHANNEL, "!renrem (usage) < -about/-on/-off >");
	}
	print " [$ts] RenRem output set to $reout by $nick on $channel\n"
    }

	   
}


# Run the bot until it is done.
$poe_kernel->run();
exit 0;