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:
parent
f6fb9a2567
commit
31651ad879
|
@ -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
|
||||||
|
|
|
@ -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;
|
|
||||||
}
|
|
Loading…
Reference in New Issue