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>
|
||||
|
||||
* 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
|
||||
|
|
|
@ -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