From: elserj <elserj@localhost>
Date: Fri, 1 Mar 2019 21:13:23 +0000 (+0000)
Subject: Add dbconnect_local subroutine
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=34ee77fc6c44b1f43d9bf4009410767e7c3e66f1;p=old-jaiswallab-svn%2F.git

Add dbconnect_local subroutine

svn path=/; revision=661
---

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;