Script using DBI does nothing in game, works out of game?

[Hateborne]

Hello ladies and gents, I seem to have run into an odd problem. I have written a simple script to pull some info from the database. Outside of the game, I can perfectly pull information at will with a junk "driver" line. In game, it stops. No response, no errors, no "quest::say..." commands, nothing.

Could anyone point out the stupid mistake I've made? It's always something like a variable name typo or line termination failure.

use DBI;

my (@arr, $sth, $instanceID);
my $db = "peq";
my $user = "root";
my $pass = "password";
my $host = "127.0.0.1";
my $dsn = "DBI:mysql:database=$db:host=$host";
my $dbh = DBI->connect ($dsn, $user, $pass);


sub CheckForInstance
{
	
	
	#quest::say("Start CheckForInstance");
	# try to find an instance ID in database
	my $gID = $_[0];
	my $zID = $_[1];
	my $destroyOn;
	my $timeLeft;
	my $foundID;
	my $foundDestroy;
	my $instanceID;
	my $var;
	my $searchString = " SELECT id FROM instances WHERE guild = $gID AND zone = $zID ";
	#quest::say("$searchString");
	$sth = $dbh->prepare ($searchString);
	$sth->execute();
	
	while(@arr = $sth->fetchrow_array())
	{
		$instanceID = @arr[0];
		$foundID = 1;
		#quest::say("Found $instanceID belonging to $gID");
	}
	
	# release result set
	$sth->finish();
	
	if($foundID == 1)
	{
		# get the invite key end time
		$searchString = "SELECT destroy FROM instances WHERE id = $instanceID";
		$sth = $dbh->prepare($searchString);
		$sth->execute();
		# read data into appropriate variable(s)
		@arr = $sth->fetchrow_array();
		$destroyOn = @arr[0];
		# clean for next query
		$sth->finish();
	} else 
	{
		quest::say("Found nothing");
		return "FALSE"; 
	}
	
	if(defined($destroyOn))
	{
		$searchString = "SELECT TIME_TO_SEC(TIMEDIFF('$destroyOn', NOW()))";
		$sth = $dbh->prepare($searchString);
		$sth->execute();
		@arr = $sth->fetchrow_array();
		#while(@arr = $sth->fetchrow_array())
		#{
			$timeLeft = @arr[0];
			#printf "\n$timeLeft\n";
		#}
	
		# final release result set
		$searchString = undef;
		$sth->finish();
	} else { $timeLeft = 0; }
	
	# was an instance ID returned?
	if(($instanceID > 0) && ($timeLeft > 0))
	{
		return $instanceID;
	}
	elsif($timeLeft <= 0)
	{
		return "EXPIRED";
	}
	else
	{
		return "FALSE";
	}
	
}

Thank you so much preemptively!

-Hate

[Akkadius]

Originally Posted by Hateborne

Hello ladies and gents, I seem to have run into an odd problem. I have written a simple script to pull some info from the database. Outside of the game, I can perfectly pull information at will with a junk "driver" line. In game, it stops. No response, no errors, no "quest::say..." commands, nothing.

Could anyone point out the stupid mistake I've made? It's always something like a variable name typo or line termination failure.

use DBI;

my (@arr, $sth, $instanceID);
my $db = "peq";
my $user = "root";
my $pass = "password";
my $host = "127.0.0.1";
my $dsn = "DBI:mysql:database=$db:host=$host";
my $dbh = DBI->connect ($dsn, $user, $pass);

CheckForInstance();

sub CheckForInstance
{
	
	
	#quest::say("Start CheckForInstance");
	# try to find an instance ID in database
	my $gID = $_[0];
	my $zID = $_[1];
	my $destroyOn;
	my $timeLeft;
	my $foundID;
	my $foundDestroy;
	my $instanceID;
	my $var;
	my $searchString = " SELECT id FROM instances WHERE guild = $gID AND zone = $zID ";
	#quest::say("$searchString");
	$sth = $dbh->prepare ($searchString);
	$sth->execute();
	
	while(@arr = $sth->fetchrow_array())
	{
		$instanceID = @arr[0];
		$foundID = 1;
		#quest::say("Found $instanceID belonging to $gID");
	}
	
	# release result set
	$sth->finish();
	
	if($foundID == 1)
	{
		# get the invite key end time
		$searchString = "SELECT destroy FROM instances WHERE id = $instanceID";
		$sth = $dbh->prepare($searchString);
		$sth->execute();
		# read data into appropriate variable(s)
		@arr = $sth->fetchrow_array();
		$destroyOn = @arr[0];
		# clean for next query
		$sth->finish();
	} else 
	{
		quest::say("Found nothing");
		return "FALSE"; 
	}
	
	if(defined($destroyOn))
	{
		$searchString = "SELECT TIME_TO_SEC(TIMEDIFF('$destroyOn', NOW()))";
		$sth = $dbh->prepare($searchString);
		$sth->execute();
		@arr = $sth->fetchrow_array();
		#while(@arr = $sth->fetchrow_array())
		#{
			$timeLeft = @arr[0];
			#printf "\n$timeLeft\n";
		#}
	
		# final release result set
		$searchString = undef;
		$sth->finish();
	} else { $timeLeft = 0; }
	
	# was an instance ID returned?
	if(($instanceID > 0) && ($timeLeft > 0))
	{
		return $instanceID;
	}
	elsif($timeLeft <= 0)
	{
		return "EXPIRED";
	}
	else
	{
		return "FALSE";
	}
	
}

Thank you so much preemptively!

-Hate

You need to execute the subroutine, and are you running this from an NPC?

[Hateborne]

Yes, sorry for the missing documentation

## plugin::CheckForInstance(guild_id, zone_id)
## returns $instance_id, "EXPIRED", or "FALSE" based on `destroy` field

On the quest NPC:

# $gu_ID = 1, $zo_ID = 10
my $instExists = plugin::CheckForInstance($gu_ID, $zo_ID);

-Hate