2007-07-19 Sancho Lerena <slerena@artica.es>

* bin/pandora_DBI_test.pl: This is in /util and shound not be there.



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@570 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
slerena 2007-07-19 19:23:51 +00:00
parent f6fb9a2567
commit 31651ad879
2 changed files with 2 additions and 33 deletions

View File

@ -1,5 +1,7 @@
2007-07-19 Sancho Lerena <slerena@artica.es> 2007-07-19 Sancho Lerena <slerena@artica.es>
* bin/pandora_DBI_test.pl: This is in /util and shound not be there.
* pandora_network.pl: Added concurrency locking for ICMP and * pandora_network.pl: Added concurrency locking for ICMP and
removed previos method (repeating tests). This sould work fine and removed previos method (repeating tests). This sould work fine and
faster. ICMP Latency added as independent function. This sould go faster. ICMP Latency added as independent function. This sould go

View File

@ -1,33 +0,0 @@
#!/usr/bin/perl
##################################################################################
# DBI Memory Leak Tester
##################################################################################
# Copyright (c) 2004-2006 Sancho Lerena, slerena@gmail.com
##################################################################################
use DBI(); # DB interface with MySQL
#$dbh = DBI->connect("DBI:mysql:pandora:localhost:3306","pandora","pandora",{ RaiseError => 1 });
while (1){
dbd_open_test();
#dbd_select_test($dbh);
}
sub dbd_select_test {
my $dbh = shift;
my $query = "select * from tagente";
my $result = $dbh->prepare($query);
$result ->execute;
$result = "";
$query = "";
$dbh = "";
undef $dbh;
undef $query;
undef $result;
}
sub dbd_open_test {
$dbh = DBI->connect("DBI:mysql:pandora:localhost:3306","pandora","pandora",{ RaiseError => 1 });
$dbh->disconnect;
}