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>
* bin/pandora_DBI_test.pl: This is in /util and shound not be there.
* pandora_network.pl: Added concurrency locking for ICMP and
removed previos method (repeating tests). This sould work fine and
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;
}