error found in forcecp.pm: syntax error at plugins/forcecp.pm line 48, near ")
                {"
syntax error at plugins/forcecp.pm line 69, near ")
                                if"
Compilation failed in require at (eval 198) line 1.

package forcecp;

use POE;
use plugin;

# define additional events in the POE session

our %additional_events =
(
	# !command functions
	"forcecp" => "forcecp"
);

# BRenBot automatically sets the plugin name
our $plugin_name;

# BRenBot automatically imports the plugin's config (from the xml file) into %config
our %config;

our $currentVersion = 1.00;


sub forcecp
{
	my ( $session, $heap, $args ) = @_[ SESSION, HEAP, ARG0 ];
	my $kernel = $_[KERNEL];
	my %args = %{$args};

	eval
	{
		if (!$args{arg1})
		{
			if ($args{nicktype} == 1)
			{
				my $syntaxvalue = $args{settings}->{syntax}->{value};
				brIRC::ircmsg ( "Usage: $syntaxvalue", $args{'ircChannelCode'} );
			}
			else
			{
				modules::RenRemCMD("msg [BR] Usage: $args{settings}->{syntax}->{value}");
			}
			return;
		}
		my $user = $args{arg1}

        if ( modules::get_module("bhs") )
		{
			my $mod = $args{nick};

			my ( $result, %player ) = playerData::getPlayerData( $user );
			if ( $result == 1 )
			{	

				if (!modules::get_module("gamelog") )
				{
					modules::RenRemCMD("msg [BR] Gamelog must be enabled to be able to use forcecp");
					return;
				}

				my $loaded = gamelog::get_player( $player{'name'} );

                
				
				print "Enforcing Scripts now!\n";
							
				my ( $result, %player ) = playerData::getPlayerData( $user );
				while ( my ( $id, $player ) = each ( %playerData ) )
				if ( length ( $player->{'bhsVersion'} ) == 0 && ( ( time() - $player->{'joinTime'} ) > 10 ) )
				{
					brIRC::ircmsg ( "$admin Forced $player to get scripts.", $args{'ircChannelCode'} );
					modules::RenRemCMD( "pamsg $player->{id} You need Scripts to play on this server" );					
					RenRem::RenRemCMDtimed( "kick $player->{id}", 5 );	
				}
			}
		}
	}
}





#		else
#		{
#		if ( $player->{'bhsVersion'} >= 3.4 ){
#            brIRC::ircmsg ( "$player Has Scripts 3.4 No Reason to Force.", $args{'ircChannelCode'} );





sub start
{
	plugin::set_global ( "version_plugin_forcecp", $currentVersion );
}


sub stop
{

}


sub command
{
	my $kernel = $_[KERNEL];
	my %args = %{@_[ ARG0 ]};
	$kernel->yield( $args{'command'} => \%args);
}


# Return true or the bot will not work properly...
1;

		my %playerlist = playerData::getPlayerList();
		while ( my ( $id, $player ) = each ( %playerlist ) )
		{
			#$player{'name'} = $1;
			#brIRC::ircmsg( "[BR] $player->{'ip'} ." );
			modules::RenRemCMD( "player_info" );
			brIRC::ircmsg( "9 [DEBUG] GOT Player Name 7 $player->{'name'} 4 $player->{'ip'}  7 Ping 4 $player->{'ping'} ", "A" );
		}

# Give BRenBot time to get their IP
$kernel->alarm( myEventName => (int(time()) +3) => $args{'nick'} );

	if ( $line =~ m/Player (.*?) joined the game/ )
	{

		my ( $result, %player ) = playerData::getPlayerData ( $1 );
		if ( $result != 1 )
		{
			$player{'name'} = $1;
		}
		
		brIRC::ircmsg( " Player $player{'name'} $player{'ip'} ", "A" );
	}

		my %playerlist = playerData::getPlayerList();
		while ( my ( $id, $player ) = each ( %playerlist ) )
		{
			if ( modules::get_module( "bhs" ) )
			{
				POE::Session->create
				( inline_states =>
					{
						_start => sub
						{
							$_[HEAP]->{next_alarm_time} = int( time() ) + 5;
							#$_[KERNEL]->alarm( end => (int(time() ) +3) => $player->{'name'}
							$_[KERNEL]->alarm( end => $_[HEAP]->{next_alarm_time} );
						},
						end => sub 
						{
							modules::RenRemCMD ( "player_info" );
							brIRC::ircmsg( "7 Player 4 $player->{'name'} 4 $player->{'ip'}  7 Ping 4 $player->{'ping'} 7Serial 4 $player{'serial'} ", "A" );
						}
					}
				);
			}
		}

	$_[KERNEL]->alarm( end=> (int(time()) +3) => $player->{'name'} );

end => sub 
{
  my ( $result, %player ) = plugin::getPlayerData ( $_[ARG0] );
  if ( $result != 1 )
  {
    brIRC::ircmsg( "7 Player 4 $player->{'name'} 4 $player->{'ip'}  7 Ping 4 $player->{'ping'} 7Serial 4 $player{'serial'} ", "A" );
  }
}