From eeba2f348e01c41b827ed96a3af0d9282f8e7bc4 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 23 Sep 2007 15:28:30 +0000
Subject: * now makes use of readPassword() from Utils.pm

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1343 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/OpenSLX/MetaDB/mysql.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'config-db')

diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm
index 865b035d..6b298bc8 100644
--- a/config-db/OpenSLX/MetaDB/mysql.pm
+++ b/config-db/OpenSLX/MetaDB/mysql.pm
@@ -24,6 +24,7 @@ use base qw(OpenSLX::MetaDB::DBI);
 ################################################################################
 use DBD::mysql;
 use OpenSLX::Basics;
+use OpenSLX::Utils;
 
 ################################################################################
 ### implementation
@@ -50,11 +51,7 @@ sub connect		## no critic (ProhibitBuiltinHomonyms)
 			: (getpwuid($>))[0];
 	my $dbPasswd = $openslxConfig{'db-passwd'};
 	if (!defined $dbPasswd) {
-		use Term::ReadLine;
-		my $term = Term::ReadLine->new('slx');
-		my $attribs = $term->Attribs;
-		$attribs->{redisplay_function} = $attribs->{shadow_redisplay};
-        $dbPasswd = $term->readline("db-password> ");
+        $dbPasswd = readPassword("db-password> ");
 	}
 	
 	vlog(1, "trying to connect user '$dbUser' to mysql-database '$dbSpec'");
-- 
cgit v1.2.3-55-g7522