From e61d2f5807669ae2a6255b9f941ccf27c7dd2511 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Sun, 22 Jan 2006 22:32:47 +0000
Subject: [PATCH] more api fixen.

---
 sbin/testEnvironment.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/sbin/testEnvironment.pl b/sbin/testEnvironment.pl
index 2f6d06c14..190dc6a75 100644
--- a/sbin/testEnvironment.pl
+++ b/sbin/testEnvironment.pl
@@ -120,7 +120,7 @@ foreach my $filename (keys %{$configs}) {
 	# Checking uploads folder
 	###################################
 	printTest("Verifying uploads folder");
-        if (opendir(DIR,$configs->{$filename}{uploadsPath})) {
+        if (opendir(DIR,$configs->{$filename}->get("uploadsPath"))) {
 		printResult("OK");
 		closedir(DIR);
 	} else {
@@ -128,7 +128,7 @@ foreach my $filename (keys %{$configs}) {
 	}
 	printTest("Verifying DSN");
 	my $dsnok = 0;
-	if ($configs->{$filename}{dsn} !~ /\DBI\:\w+\:\w+/) {
+	if ($configs->{$filename}->get("dsn") !~ /\DBI\:\w+\:\w+/) {
 		printResult("DSN is improperly formatted.");
 	} else {
 		printResult("OK");
@@ -141,7 +141,7 @@ foreach my $filename (keys %{$configs}) {
 	if ($dsnok) {
 		printTest("Verifying database connection");
 		my ($dbh, $test);
-		unless (eval {$dbh = DBI->connect($configs->{$filename}{dsn},$configs->{$filename}{dbuser},$configs->{$filename}{dbpass})}) {
+		unless (eval {$dbh = DBI->connect($configs->{$filename}->get("dsn"),$configs->{$filename}->get("dbuser"),$configs->{$filename}->get("dbpass"))}) {
 			printResult("Can't connect with info provided!");
 		} else {
 			printResult("OK");