From 34ee77fc6c44b1f43d9bf4009410767e7c3e66f1 Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Fri, 1 Mar 2019 21:13:23 +0000
Subject: [PATCH] Add dbconnect_local subroutine

svn path=/; revision=661
---
 interactome_scripts/DbiFloret.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/interactome_scripts/DbiFloret.pm b/interactome_scripts/DbiFloret.pm
index a4dc781..6433273 100755
--- a/interactome_scripts/DbiFloret.pm
+++ b/interactome_scripts/DbiFloret.pm
@@ -39,6 +39,26 @@ sub dbconnect_auto {
 	
 	return $dbh;
 }
+
+sub dbconnect_local {
+	my $self = @_;
+	
+	print "Username: ";
+	chomp(my $username = <STDIN>);
+	print "Password: ";
+	ReadMode('noecho');
+	chomp(my $password = <STDIN>);
+	ReadMode(0);
+	print "\nDatabase: ";
+	chomp(my $database = <STDIN>);
+	
+	my $dbh = DBI->connect("DBI:mysql:$database;host=localhost", $username, $password,
+		{ RaiseError=> 1, AutoCommit=>1 }
+		) or die "Failed to connect to database: $DBI::errstr";
+		
+	
+	return $dbh;
+}
 	
 
 return 1;
-- 
2.34.1