From 7ab574e36eefbe2f11aa88ab5c56d6c91722b370 Mon Sep 17 00:00:00 2001 From: slerena Date: Thu, 19 Jul 2007 19:23:51 +0000 Subject: [PATCH] 2007-07-19 Sancho Lerena * 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 --- pandora_server/ChangeLog | 2 ++ pandora_server/bin/pandora_DBI_test.pl | 33 -------------------------- 2 files changed, 2 insertions(+), 33 deletions(-) delete mode 100644 pandora_server/bin/pandora_DBI_test.pl diff --git a/pandora_server/ChangeLog b/pandora_server/ChangeLog index 8fdd2afa75..5539cbf613 100644 --- a/pandora_server/ChangeLog +++ b/pandora_server/ChangeLog @@ -1,5 +1,7 @@ 2007-07-19 Sancho Lerena + * 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 diff --git a/pandora_server/bin/pandora_DBI_test.pl b/pandora_server/bin/pandora_DBI_test.pl deleted file mode 100644 index a7c5ccb80d..0000000000 --- a/pandora_server/bin/pandora_DBI_test.pl +++ /dev/null @@ -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; -}